这么连接数据库为什么会出错了(ADO连SQL2000)

Question

begin
  tmp := 'Provider=SQLOLEDB.1;Password=sms;Persist Security Info=True;User ID=sa;Initial Catalog=smsplatform;Data Source=SHENYANG-0W1I7D';
  try
    ADOConnection1.Close;
    ADOConnection1.ConnectionString := tmp; //ADO连接字符串
    ADOConnection1.Open;
  except
    application.MessageBox('未成功连接数据库，请重试', '提示信息', mb_ok);
    application.Terminate;
  end;
end;因为我要做无界面的,所以控件的属性就这么写的,但是在创建时就提示不能连上,各位大吓帮忙看看

Answer 1

ADOConnection1的ConnectionString ,你要吧IDE中设置窗体里,就连接好SQLServer,再copy到代码中试试吧

Answer 2

动态设置ConnectionString，和有没有界面没有什么关系。先确定是否能连上SQL服务器，把Data Source换成服务器的IP试试。

Answer 3

你的ADO控件在哪个窗体中呢.....

Answer 4

如果没问题的话,看一看是不是SQL的用户中,系统用户的访问被禁止了.

Answer 5

except的时候至少要将错误Message提示出来吧？不然大家就猜吧！

Answer 6

我在窗体中用控件直接连接可以成功,不会有问题,但是一旦不放控件在窗体里,直接写源代码,就会出错,用单步运行时,到try下面的第一行就出错了