procedure TForm1.Button1Click(Sender: TObject);
var
connect,mdb_table:olevariant; // add uses comobj
slinks:variant;
i:integer;
table_name:WideString='Parsel'; // Don't forget to change the table name here
field_name:WideString='json'; // Don't forget to change the field name here
begin
OpenDialog1.Filter:='Microsoft Access Driver | *.mdb';
if OpenDialog1.Execute then begin
if fileExists(OpenDialog1.Filename) then begin
connect:=CreateoleObject('ADODB.Connection');
slinks:='DRIVER={Microsoft Access Driver (*.mdb)}; DBQ='+ OpenDialog1.FileName;
connect.open (slinks);
mdb_table:=CreateoleObject('ADODB.Recordset');
slinks:=' Select * from '+table_name;
mdb_table.open(slinks,connect,1,3);
showmessage('Total Record Count :'+ inttostr(mdb_table.recordcount));
mdb_table.movefirst;
for i:=0 to mdb_table.recordcount-1 do
begin
if i<3 then showmessage(mdb_table.Fields[field_name].Value);
mdb_table.movenext;
end;
mdb_table.close;
end;
end;
end;