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

Хелп!!! Конвертация из *.dbf в *.txt   Найти похожие ветки 

← →
Sombrero   (2002-10-30 12:51) [0]

Люди знающие! Подскажите плиз, как мне выборочно столбцы из DBF-файла перегнать в TXT-файл. Проги, работающие с DBF и выложенные в "кладовке" не имеют исходников:(( то был обман). Не игнорируйте, подскажите, это наверно не сложно, для тех кто хорошо ведает дельфи, очень надо!!!

---

← →
Андрей Прокофьев ©   (2002-10-30 13:07) [1]

Можно использовать ADO.

var AQ : TADOQuery;
F : TextFile;
AQ := TADOQuery.Create(nil);
Assign(F, "");
Rewrite(F);
try
AQ.ConnectionString := "..."
AQ.SQL.Text := "select MyField1, MyField2 from MyTable"
AQ.Open;
while not AQ.Eof do
begin
Write(F, AQ.FieldByName("MyField1").AsString, " ");
WriteLn(F, AQ.FieldByName("MyField2").AsString);
AQ.Next;
end;
finally
AQ.Free;
CloseFile(F);
end;

P.S. Возможны ошибки, но принцип верный

---

← →
neodiX ©   (2002-10-30 13:07) [2]

Ну это очень просто...
Я делал так: настроил ODBC драйвер для конктертной базы, потом на форму бросил TTable, приконектился к базе и... все! Теперь ты имешь доступ к любой ячейке.

---

← →
neodiX ©   (2002-10-30 13:10) [3]

2 Sombrero: у Андрея Прокофьева вариант лучше

---

← →
Sombrero   (2002-10-30 13:54) [4]

Спасибо большое, попробую!!!

---

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

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



Память: 0.45 MB
Время: 0.011 c