求救!帮我看看程序为什么报对象名无效“xjjbxx”
前面load和yx_click,都是对的,运行commok_clock()就报对象名无效“xjjbxx”可xjjbxx是表名啊,和前面的连接一模一样,why!!
Dim adoconn As ADODB.Connection
Dim adors As ADODB.Recordset
Dim adors1 As ADODB.Recordset
Dim adors2 As ADODB.Recordset
Dim adors3 As ADODB.Recordset
Dim adors4 As ADODB.Recordset
Dim adors5 As ADODB.Recordset
Private Sub CommOK_Click()
Set adoconn = New ADODB.Connection
Set adors = New ADODB.Recordset
sConnectionString = "provider=sqloledb;data source=210.45.240.136;initial catalog=stuinfosys;uid=sa;pwd=8172045"
adoconn.Open sConnectionString
adors.Open "select * from xjjbxx ", adoconn, adOpenDynamic, adLockOptimistic, adcmdTabe
End Sub
Private Sub Form_Load()
Set adoconn = New ADODB.Connection
Set adors1 = New ADODB.Recordset
Set adors2 = New ADODB.Recordset
Set adors3 = New ADODB.Recordset
sConnectionString = "Provider=MSDASQL.1;Password=8172045;Persist Security Info=True;User ID=sa;Data Source=jxgl;Mode=Read"
adoconn.Open sConnectionString
adors1.Open "select * from dm_mz", adoconn, adOpenDynamic, adLockOptimistic, adcmdTabe
While Not adors1.EOF
mz.AddItem adors1!mc
adors1.MoveNext
Wend
adors2.Open "select * from dm_jg", adoconn, adOpenDynamic, adLockOptimistic, adcmdTabe
While Not adors2.EOF
jg.AddItem adors2!mc
adors2.MoveNext
Wend
adors3.Open "select * from dm_yx", adoconn, adOpenDynamic, adLockOptimistic, adcmdTabe
While Not adors3.EOF
yx.AddItem adors3!yxmc
adors3.MoveNext
Wend
End Sub
Private Sub yx_click()
zy.Clear
Set adoconn = New ADODB.Connection
Set adors4 = New ADODB.Recordset
sConnectionString = "Provider=MSDASQL.1;Password=8172045;Persist Security Info=True;User ID=sa;Data Source=jxgl;Mode=Read"
adoconn.Open sConnectionString
adors4.Open "select * From dm_zy where left(zydm,2) in (select yxdm from dm_yx where yxmc='" & yx.Text & "')", adoconn, adOpenDynamic, adLockOptimistic, adcmdTabe
While Not adors4.EOF
zy.AddItem adors4!zymc
adors4.MoveNext
Wend
End Sub