M
mazheng
Unregistered / Unconfirmed
GUEST, unregistred user!
uses
SysUtils,ADODB;
var ADQrySql2k,ADQryMdb: TADOQuery;
//ADOConnection: TADOConnection;
MdbFile :string;
begin
{ TODO -oUser -cConsole Main : Insert code here }
try
ADQrySql2k:=TADOQuery.Create(nil);
ADQryMdb:=TADOQuery.Create(nil);
try
MdbFile := paramstr(1);
finally
ADQrySql2k.Free;
ADQrySql2k.Free;
end;
except
end;
end.
SysUtils,ADODB;
var ADQrySql2k,ADQryMdb: TADOQuery;
//ADOConnection: TADOConnection;
MdbFile :string;
begin
{ TODO -oUser -cConsole Main : Insert code here }
try
ADQrySql2k:=TADOQuery.Create(nil);
ADQryMdb:=TADOQuery.Create(nil);
try
MdbFile := paramstr(1);
finally
ADQrySql2k.Free;
ADQrySql2k.Free;
end;
except
end;
end.