| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Хелп!!! Конвертация ;из *.dbf ;в ;*.txt [D6, Win95/98]
Sombrero © (2002-10-30 12:51:00)Люди знающие! Подскажите плиз, как мне выборочно столбцы из DBF-файла перегнать в TXT-файл. Проги, работающие с DBF и выложенные в "кладовке" не имеют исходников:(( то был обман). Не игнорируйте, подскажите, это наверно не сложно, для тех кто хорошо ведает дельфи, очень надо!!!
Sombrero (2002-10-30 13:54:00) [1]Спасибо большое, попробую!!!
neodiX (2002-10-30 13:10:00) [2]2 Sombrero: у Андрея Прокофьева вариант лучше
Андрей Прокофьев (2002-10-30 13:07:00) [3]Можно использовать 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:00) [4]Ну это очень просто...
Я делал так: настроил ODBC драйвер для конктертной базы, потом на форму бросил TTable, приконектился к базе и... все! Теперь ты имешь доступ к любой ячейке.
| |
