vb连接sqlsever数据库报错找不到对象 50
DimADODBAsStringSetconn=NewADODB.ConnectionSetrs=NewADODB.Recordsetconn.ConnectionStr...
Dim ADODB As String
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "Driver={sql server};server=.;uid=sa;pwd=123;database=AIS20180724143002"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select from t_BOSKHBFB where FBillNo='" & Trim(Combo1.Text) & "' And FBase='" & Trim(Text1.Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText
If rs.EOF = True And rs.BOF Then
m = MsgBox("请重新登录", vbExclamation)
Text1.Text = ""
Text1.SetFocus
Else
Form1.Hide
End If
rs.Close 展开
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "Driver={sql server};server=.;uid=sa;pwd=123;database=AIS20180724143002"
conn.ConnectionTimeout = 30
conn.Open
rs.Open "select from t_BOSKHBFB where FBillNo='" & Trim(Combo1.Text) & "' And FBase='" & Trim(Text1.Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText
If rs.EOF = True And rs.BOF Then
m = MsgBox("请重新登录", vbExclamation)
Text1.Text = ""
Text1.SetFocus
Else
Form1.Hide
End If
rs.Close 展开
1个回答
展开全部
你这个错误在出现在哪个行？ 里面有很多对象，不指定的话看不错什么错误。
请检查一下看看 窗体上是不是有一个 组合框(COMBO1)和文本框（text1）?
If rs.EOF = True And rs.BOF Then 你这个条件里rs.EOF = True就可以了。没必要写两个。不过这个不影响你程序结果。
请检查一下看看 窗体上是不是有一个 组合框(COMBO1)和文本框（text1）?
If rs.EOF = True And rs.BOF Then 你这个条件里rs.EOF = True就可以了。没必要写两个。不过这个不影响你程序结果。
更多追问追答
追问
没有窗体，所以rs.Open "select from t_BOSKHBFB where FBillNo='" & Trim(Combo1.Text) & "' And FBase='" & Trim(Text1.Text) & "'", conn, adOpenStatic, adLockReadOnly, adCmdText这句话该怎么改？
追答
没有窗体？？怎么可能，你这个必须在一个叫FORM1窗体里吧？？
找不到
Combo1
Text1你把代码写在哪儿了？ 这应写在窗体的按钮的代码
创建类似有这样窗体把代码复制到登录按钮的单击事件就可以了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
