Question

无效的SQL语句,对象Refresh的方法IAdodc失败

下面是vb的代码,当选择第二个复选框(即cmbName的时候)的内容时就弹出"无效的SQL语句……",紧接着弹出"对象Refresh的方法IAdodc失败",我也不知道是为什么啊?哪位高手帮我想想办法,小弟刚学vb啊,谢谢了!
Private Sub cmbField_Click()
cmbName.Clear '清空cmbname
Adodc1.RecordSource = "select * from 重量查询表"
Adodc1.Refresh
Do While Not Adodc1.Recordset.EOF
cmbName.AddItem Adodc1.Recordset.Fields(cmbField.Text)
Adodc1.Recordset.MoveNext
Loop
cmbName.Text = cmbName.List(0)
End Sub

Private Sub cmbName_Click()
Dim condition
condition = Trim(cmbField.Text)
If Adodc1.Recordset.Fields(condition).Type = 202 Then
'被选择的字段类型如果是文本类型
Adodc1.RecordSource = "selcet * from 重量查询表 where" & condition & "='" & cmbName.Text & "'"
'被选择的字段类型如果是数值类型
Else
Adodc1.RecordSource = "select * from 重量查询表 where" & condition & "=" & cmbName.Text
End If
Adodc1.Refresh '显示这里出错啊
Text1.Text = Adodc1.Recordset.Fields("产品型号") '将字段值在文本中显示
Text2.Text = Adodc1.Recordset.Fields("零件件号")
Text3.Text = Adodc1.Recordset.Fields("零件名称")
Text4.Text = Adodc1.Recordset.Fields("零件代号")
Text5.Text = Adodc1.Recordset.Fields("加工工段") '将字段值在文本中显示
Text6.Text = Adodc1.Recordset.Fields("每台件数")
Text7.Text = Adodc1.Recordset.Fields("零件材料")
Text8.Text = Adodc1.Recordset.Fields("材料类型")
Text9.Text = Adodc1.Recordset.Fields("热处理工序1") '将字段值在文本中显示
Text10.Text = Adodc1.Recordset.Fields("热处理工序1重量")
Text11.Text = Adodc1.Recordset.Fields("热处理工序2")
Text12.Text = Adodc1.Recordset.Fields("热处理工序2重量")
Text13.Text = Adodc1.Recordset.Fields("热处理工序3") '将字段值在文本中显示
Text14.Text = Adodc1.Recordset.Fields("热处理工序3重量")
Text15.Text = Adodc1.Recordset.Fields("热处理工序4")
Text16.Text = Adodc1.Recordset.Fields("热处理工序4重量")
Text17.Text = Adodc1.Recordset.Fields("热处理工序5") '将字段值在文本中显示
Text18.Text = Adodc1.Recordset.Fields("热处理工序5重量")
Text19.Text = Adodc1.Recordset.Fields("热处理工序6")
Text20.Text = Adodc1.Recordset.Fields("热处理工序6重量")
End Sub

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
Dim i As Integer
Adodc1.RecordSource = "select * from 重量查询表" '连接库存表
Adodc1.Refresh '刷新连接
cmbField.Clear '清空cmbfield
For i = 0 To Adodc1.Recordset.Fields.Count - 1
'将每个字段的名字作为一个项目，添加到cmbfield中
cmbField.AddItem Adodc1.Recordset.Fields(i).Name
Next i
cmbField.Text = cmbField.List(0) '默认显示第一项
End Sub

程序就是上面这个样子了.谢谢

Answer 1

怎么能听你说明白啊
说了一大堆，VB是可视化的，必须有界面才能明白