execute ibeblock
returns (CustNo integer, Company varchar(100), Addr1 varchar(100))
as
begin
InCust = 3000;
OdbcCon = ibec_CreateConnection(__ctODBC, 'DBQ=D:\Delphi5\CMP\mODBC\DB\demo.mdb;DRIVER=Microsoft Access Driver (*.mdb)');
ibec_UseConnection(OdbcCon);
execute statement 'select Company from customer where CustNo = 4312' into :MyCust;
for select CustNo, Company, Addr1 from customer
where CustNo > :InCust
order by company
into :CustNo, :Company, :Addr1
do
begin
suspend;
end
ibec_CloseConnection(OdbcCon);
end
Connection Strings offers a huge range of ODBC drivers for all possible databases:
along with the connection strings. For example, if you want to access Excel data:
Please also refer to IBExpert's ODBC Viewer.