Question

（急）VB 运行时,出现From子句语法错误,怎么解决？

Private Sub cmbName_Change()
Dim condition
condition = Trim(cmbField.Text)
If Adodc1.Recordset.Fields(condition).Type = 202 Then
'被选择的字段类型如果是文本类型
Adodc1.RecordSource = "select * from 目录表 where" & condition & "='" & cmbName.Text & "'"
'被选择的字段类型如果是数值类型
Else
Adodc1.RecordSource = "select * form 目录表 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("数量")
End Sub
各位大哥帮帮忙，十分感谢！

Answer 1

在sql 查询语句中的where和双引号之间加一个空格试下。你可以下断点查看运行时生成的sql 语句对不对，在数据库中测试你得sql 语句