Форум: "Основная";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];
ВнизХелп!!! Конвертация из *.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 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c