MDB в DELHI

[cowboy]

Добрый день уважаемые всем! Требуется мне решить следующую задачу.. В mic accses db экспортируется он лайн таблица , которая обновляется почти каждое мгновение. Требуется Дельфей подцеплять из нее все строчки таблицы , так же в режиме онлайн(как можно быстрее) и соответствующим образом обрабатывать их... Как это мне лучше сделать?

[S@fer]

кидаешь на форму таймер и каждую секунду выполняешь запрос на выборку данных. Но если данных много. то запрос может обрабатываться долго. (поэтому советую выбирать только новые строчки и их уже обрабатывать)

[cowboy]

Понял.Допустим базу я создал. Данные в нее пишутся.. А как мне обратится к этой базе и к примеру перевести все данные из нее в текстовик?

[Stilet]

А как мне обратится к этой базе и к примеру перевести все данные из нее в текстовик?

Ну в цикле по каждой записи выбирай поля и пиши в файл.

[cowboy]

а можно примерчик ,если не сложно? .. Просто в делфя я работал тока в институте. И с такими вещями не сталкивался.. Спасибо

[cowboy]

Лично я пробую это делать следующим образом..

procedure TForm1.Button1Click(Sender: TObject);
begin
f:=filecreate('C:\áàçà\1.txt');
CoInitialize(nil);
try
try
c:= TADOConnection.create(nil);
if assigned(c) then try
c.ConnectionString:= 'Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\áàçà\db1.mdb;Uid=;P wd=;';
c.Open;
q:= TAdoQuery.create(nil);
try
q.Connection:= c;
q.SQL.Text:= 'select * from Personal';
q.open;
while not q.eof do try
filewrite(f,q.fieldbyname('Name').a sstring);
'writeln(q.fieldbyname('Name').asst ring);

finally q.next; end;
finally freeandnil(q); end;
c.close;
finally freeandnil(c); end;
finally CoUnInitialize; end;
except on e: exception do writeln('Exception: ', e.message); end;
write('press ENTER to exit'); readln;
end;

end.

Но вылетает ошибка на строке когда я пишу в файл.

[Stilet]

Ну в общем так:

 var s:string;
 ...
 for i:=0 to table.recordcount-1 do begin
   s:='';
   for j:=0 to table.fields.count-1 do s:=s+table.Fields[j].asЧетамзатипзаписи+';';
   // Тут мы S выводим в файл с помошью Write
 end;

Ну в целом так.