下面是我的一个小的测试程序,单击按钮后,有错文提示:对象ee无效.
如果去掉b.Open "select * from ee", a这句,没有错误,所以我觉得数据库还是能连上,但是不知道为甚还是会出错.请高手给看看了,多谢!!
Private Sub Command1_Click()
Dim a As New ADODB.Connection
Dim b As New ADODB.Recordset
Dim ss As String
ss = "uid=sa;pwd=aaa;driver={SQL SERVER};server=YQQ;datebase=wy;connection=adConnectAsync"
a.ConnectionString = ss
a.Open
b.Open "select * from ee", a
End Sub
如果去掉b.Open "select * from ee", a这句,没有错误,所以我觉得数据库还是能连上,但是不知道为甚还是会出错.请高手给看看了,多谢!!
Private Sub Command1_Click()
Dim a As New ADODB.Connection
Dim b As New ADODB.Recordset
Dim ss As String
ss = "uid=sa;pwd=aaa;driver={SQL SERVER};server=YQQ;datebase=wy;connection=adConnectAsync"
a.ConnectionString = ss
a.Open
b.Open "select * from ee", a
End Sub
你还是msgbox a.state来判断吧
datebase=wy;connection=adConnectAsync"
好像database就写错了,我想应该不行吧!这样找不到数据库名啦!
郁闷!