Хелп!!! Конвертация из *.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]

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

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

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