我在DLL文件中写了一个连接数据库函数,但一调用这个函数,就报错“尚未调用coinitialize”
我在DLL文件中写了一个连接数据库函数,但一调用这个函数,就报错“尚未调用coinitialize”.
函数如下:
function connect(km,bm,su,sp:string):boolean; stdcall;
begin
try
adoc:=Tadoconnection.Create(application);
adoc.connected:=false;
adoc.LoginPrompt:=false;
adoc.ConnectionString:='Provider=SQLOLEDB.1;Password='+#39+sp+#39+
';Persist Security Info=False;User ID='+su +
';Initial Catalog='+ bm +
';Data Source='+km;
adoc.Connected:=true;
result:=true;
except
adoc.Connected:=false;
result:=false;
end;
end;