delphi控制台如何访问数据库
如题

[解决办法]
试试这样：

Delphi(Pascal) code

uses 
 ……, ADODB; 
  
 procedure MyQuery; 
 var 
 qryADO: TADOQuery; 
 begin 
 qryADO:= TADOQuery.Create(nil); 
 try 
   qryADO.ConnectionString := '……'; 
   qryADO.SQL.Text := '……'; 
   qryADO.Open; 
   while not qryADO.Eof do 
   begin 
   ……; 
   qryADO.Next; 
   end; 
 finally 
   FreeAndNil(qryADO); 
 end; 
 end;

如果还是出现提示“尚未调用 Coinitialize”，就试试这样：

Delphi(Pascal) code

uses  ……, ActiveX;begin  CoInitialize(nil);  try    ……;  finally    UnCoInitialize;  end;end;