请教:如何实现数据库的远程访问?在线,急!!!!!!

Question

现在有一段代码:如下
   procedure TForm1.Button1Click(Sender: TObject);
var
  connstr:widestring;
begin
   connstr:='Provider=SQLOLEDB.1;Password='';Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=192.168.1.4';
    ADOConnection1.Close;
   ADOConnection1.ConnectionString:=connstr;
   try
     ADOConnection1.connected:=true;
   except
      showmessage('数据库连接不上，请重新配置');
   end;
end;end.我现在想连接到192.168.1.4这台机器的数据库
但是每次运行的时候,总是提示:
  指定初始化字符串不符合OLE DB规定.
请高手解答.付上原码.

Answer 1

如果没密码则把Password后面的两个单引号去掉 procedure TForm1.Button1Click(Sender: TObject);
var
  connstr:widestring;
begin
   connstr:='Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=192.168.1.4';
    ADOConnection1.Close;
   ADOConnection1.ConnectionString:=connstr;
   try
     ADOConnection1.connected:=true;
   except
      showmessage('数据库连接不上，请重新配置');
   end;
end;end.如果有密码，比如123，则
 procedure TForm1.Button1Click(Sender: TObject);
var
  connstr:widestring;
begin
   connstr:='Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=192.168.1.4';
    ADOConnection1.Close;
   ADOConnection1.ConnectionString:=connstr;
   try
     ADOConnection1.connected:=true;
   except
      showmessage('数据库连接不上，请重新配置');
   end;
end;end.