Скачать: CL | DM;

работа с Exsel   Найти похожие ветки 

← →
Kesha   (2002-12-24 14:03) [0]

Есть данные в Exsel нужно перенести в DB и обратно, помогите кто
может компилировал TAPExselTable не получилось ..помогите

---

← →
Jeka   (2002-12-24 16:08) [1]

Ексель можно "сохранить как" выбрать db
из Дельфи в ексель
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
RangeE:Excel2000.Range;
I, Row:Integer;
Bookmark:TBookmarkStr;
begin
ExcelApplication1.Visible[0]:=True;
ExcelApplication1.Workbooks.Add(NULL,0);
RangeE:=ExcelApplication1.ActiveCell;
for I:=0 to Table1.Fields.Count - 1 do
begin
RangeE.Value:=Table1.Fields [I].DisplayLabel;
RangeE:=RangeE.Next;
end;
try
Bookmark:=Table1.Bookmark;
try
Table1.First;
Row:=2;
while not Table1.Eof do
begin
RangeE:=ExcelApplication1.Range["A"+
IntToStr(Row), "A"+ IntToStr(Row)];
for I:=0 to Table1.Fields.Count - 1 do
begin
RangeE.Value:=Table1.Fields[I].AsString;
RangeE:=RangeE.Next;
end;
Table1.Next;
Inc(Row);
end;
finally
Table1.Bookmark:=Bookmark;
end;
finally
Table1.EnableControls;
end;
RangeE:=ExcelApplication1.Range["A1","E"+ IntToStr (Row-1)];
RangeE.AutoFormat(3,NULL,NULL,NULL,NULL,NULL,NULL);
end;


procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
Table1.IndexFieldNames :=Column.FieldName;
end;

---

← →
Kesha   (2002-12-25 07:22) [2]

Jeka огромнейшее спасибо за ответ, половина дела
сделана, обратно из Exsel добавить данные в DB и
будет нормально.
Спасибо еще раз. Kesha

---

← →
Дмитрий К.К. ©   (2002-12-25 08:21) [3]

По-моему, Excel :D

---

← →
Jeka   (2002-12-25 10:52) [4]

незачто

---

← →
Jeka   (2002-12-25 10:56) [5]

Кстати есть интересная прога Table2Table или Т2Т называется
Программа для перекладывания данных из одной таблицы БД в другую, с указанием какое поле в какое перекладывается, и дополнительными возможностями.
поищи в инете
Лично мне очень помогает

---

← →
Игорь Шевченко ©   (2002-12-25 11:07) [6]

Jeka (25.12.02 10:56)

Про Datapump все безнадежно забыли...А ведь в стандартной поставке Delphi устанавливается :-)

---

← →
Kesha   (2002-12-25 11:39) [7]

Задача - из Ехселя данные типа - фам имя отчество год_родж пренести
в DB каждый новый файл из Ехселя новые данные в DB c нарастанием./первая
половинка вопроса только из Ехселя в DB/
///Сохранить данные из DB работает.../

За ответ спасибо.Кеша.

---

← →
Jeka   (2002-12-25 11:43) [8]

да я как то и незнал про это
я ваще то в дельфи тока начинаю
и то тока по работе.
Сам часто вопросы задаю мастакам,
книжки просматриваю всякие

---

← →
Jeka   (2002-12-25 11:45) [9]

а из дельфи че неработает чтоли?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.013 c