新手求助！在线等，急用……！！！

Question

我的VB工程在执行到连接数据库的这一步就报错了，错误信息是：
[DBNETLIB][Connection Open (Connect()).]SQL Server不存在或拒绝访问。
点击调试以后，出现的语句是：
rsq.Open "select * from xcom.dbo.C_SHB_HAO", "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=hbjhy;Initial Catalog=xcom;Data Source=" + server_name, adOpenDynamic, adLockOptimistic, adCmdText此时server_name的值是本机名，adOpenDynamic=2，     adLockOptimistic=3，             adCmdText=1
用户名和密码没错，dbnetlib.dll文件在C:\WINDOWS\system32中存在。
请各位大哥大姐帮帮小弟啊！！！

Answer 1

这样写吧
dim conn as new adodb.connection
conn.open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=hbjhy;Initial Catalog=xcom;Data Source=" & server_name
rsq.Open "select * from xcom.dbo.C_SHB_HAO", conn, adOpenDynamic, adLockOptimistic, adCmdText你的数据库连接应该还没打开吧

Answer 2

就是连接数据库没打开啊，
上面个哥哥给的代码我试过了，换汤不换药，没起作用！！！
继续等待ing……

Answer 3

把server_name换成你的ip地址

Answer 4

或者
conn.open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=hbjhy;Initial Catalog=xcom;Data Source=(Local)"
rsq.Open "select * from xcom.dbo.C_SHB_HAO", conn, adOpenDynamic, adLockOptimistic, adCmdText

Answer 5

谢谢，
刚才你说的把server_name换成的ip地址提醒了我，那个计算机名，我命名为jhy-sql2k
但是它会自动变成jhy-sql2k.  后面多了个小数点，结果我在server_name后多加了个小数点就搞定了，谢谢！