做了一个ADO连接SQLServer数据库查询的小程序,运行时出现这种错误,纳闷中...
在我本机运行正常,在别的机上运行,一旦连接远程的SqlServer数据库,则出现以下错误提示?
[DBNMPNTW]ConnectionOpen(CreateFile())
这是什么原因?
程序片断:
var
serveruptime,localuptime:Tdatetime;
const
serverconn='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=jf_db;Data Source=192.168.1.25';
localconn='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=a.mdb;Persist Security Info=False';
{$R *.dfm}
procedure TForm1.connecttoserverClick(Sender: TObject);
begin
if connecttoserver.Checked then //一个checkbox的值
begin
Adoconn.ConnectionString:=serverconn;
suistatusbar1.Panels[1].Text:='远程查询';
end
else
begin
Adoconn.ConnectionString:=localconn;
suistatusbar1.Panels[1].Text:='本地查询';
end;
Adoconn.Connected:=true;
end;