关于VB连接SQL2000的问题
我这边有一台服务器,用的是SQL2000,IP为10.1.1.1,数据库名称为ais20061030151249,登陆用户和密码都为sa,我用VB做了一段代码如下,想用客户机连接服务器的SQL2000 Private Sub Command1_Click() Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.ConnectionString = "driver={sql server};server=10.1.1.1;uid=sa;pwd=sa;database=ais20061030151249" conn.ConnectionTimeout = 30 conn.Open rs.Open "select * from richard2" End Sub 运行的时候提示:连接无法用于执行此操作.在此上下文中它可能已被关闭或无效. 如果我只执行下面的代码: Private Sub Command1_Click() Set conn = New ADODB.Connection Set rs = New ADODB.Recordset conn.ConnectionString = "driver={sql server};server=10.1.1.1;uid=sa;pwd=sa;database=ais20061030151249" conn.ConnectionTimeout = 30 conn.Open End Sub 不会提示此错误,请问为什么会这样,怎么能通过VB连接到服务器的SQL2000,请高手指教,万分感谢!! |