请问错在那里?VB连接MSSQL

Question

Dim CN As New ADODB.Connection
Dim Rs As New ADODB.RecordsetCN.Open "Provider=sqloledb.1;Data Source=jhd;Initial Catalog=agdhrlbm;User Id=sa;Password=;"
             
Rs.Open "select stksbal.branchid,zname.branchname,sum(stksbal.balqtyichguntilc) as jhd01,sum(stksbal.balqtyichgafterc) as jhd02,sum(stksbal.balqtyibegin) as jhd03 from stksbal,zname where stksbal.branchid=zname.branchid and workyymm='0707' goup by stksbal.branchid,zname.branchname "
Set DataGrid1.DataSource = Rs运行后报这个错误码:
 实时错误'-2147467259(80004005)':
[DBNETLIB][Connectionopen(Connect()).] SQL server 不存在或拒绝访问

Answer 1

漏掉了cn对象了
Rs.Open "select stksbal.branchid,zname.branchname,sum(stksbal.balqtyichguntilc) as jhd01,sum(stksbal.balqtyichgafterc) as jhd02,sum(stksbal.balqtyibegin) as jhd03 from stksbal,zname where stksbal.branchid=zname.branchid and workyymm='0707' goup by stksbal.branchid,zname.branchname ",cn

Answer 2

漏掉了cn对象了
Rs.Open "select stksbal.branchid,zname.branchname,sum(stksbal.balqtyichguntilc) as jhd01,sum(stksbal.balqtyichgafterc) as jhd02,sum(stksbal.balqtyibegin) as jhd03 from stksbal,zname where stksbal.branchid=zname.branchid and workyymm='0707' goup by stksbal.branchid,zname.branchname ",cn这样写不好你可以用一个string变量
sql="select stksbal.branchid,zname.branchname,sum(stksbal.balqtyichguntilc) as jhd01,sum(stksbal.balqtyichgafterc) as jhd02,sum(stksbal.balqtyibegin) as jhd03 from stksbal,zname where stksbal.branchid=zname.branchid and workyymm='0707' goup by stksbal.branchid,zname.branchname "
rs.open sql,cn,1,1

Answer 3

cn有,我漏打了,还是报那个错,
提示是这行出错CN.Open "Provider=sqloledb.1;Data Source=jhd;Initial Catalog=agdhrlbm;User Id=sa;Password=;"

Answer 4

jhd 改为 . 试试

Answer 5

Data Source=jhd; 这个就是Sql服务器.
你用ADO控件,生成一个串试试.在生成时,可以测试能不能连接数据源(SQL服务).
生成完了,再把Ado控件删除

Answer 6

jhd改为IP地址,如果是本机直接用127.0.0.1

Answer 7

先用adodc来测试，然后再复制过来就可以了，我也试过这样的错误

Answer 8

对了,可能是你的密码错了.看:User Id=sa;Password=;
你没以勾adodc的保存密码吧