Question

VB6.0 问题，一直各种错误，求大神解答，在线等

Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strCnn As String
Dim Tname As String
Tname = Trim(T_name.Text)
'strCnn = "DRIVER={SQL SERVER};SERVER＝XROS;UID＝sa;PWD＝sa;DATABASE＝jiaoxuedb"
Set cn = New ADODB.Connection
cn.Open = ("DRIVER={SQL SERVER};SERVER＝XROS;UID＝sa;PWD＝sa;DATABASE＝jiaoxuedb")
strSQL = "select cname from tc,teacher,course where teacher.tno=tc.tno and"
tc.cno = course.cno And teacher.Tname = "＋Tname＋"""
Set rs = New ADODB.Recordset
rs.CursorType = adOpenStatic
rs.CursorLocation = adUseClient
Set rs = cn.Execute(strSQL)
Do While rs.EOF = False
List1.AddItem rs!cname
rs.MoveNext
Loop
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

代码与错误如图所示。。。求能在今晚内迅速解决





Answer 1

去掉 open 后面等于号。
cn.Open "DRIVER={SQL SERVER};SERVER＝XROS;UID＝sa;PWD＝sa;DATABASE＝jiaoxuedb"

追问

现在又变成这样了。。。跟我用Win8.1  64位系统写有关系吗？明明是对着书写的程序都这么多错

追答

看看你的窗体有没有t_text 的textbox控件，就是文本输入框。你肯定没画到窗体界面上。