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

显示全部楼层 · 2011-7-10 02:42:52

PrivateSubcmbName_Change()
Dimcondition
condition=Trim(cmbField.Text)
IfAdodc1.Recordset.Fields(condition).Type=202Then
\'被选择的字段类型如果是文本类型
Adodc1.RecordSource=\"select*from目录表where\"defds123conditiondefds123\"=\'\"defds123cmbName.Textdefds123\"\'\"
\'被选择的字段类型如果是数值类型
Else
Adodc1.RecordSource=\"select*form目录表where\"defds123conditiondefds123\"=\"defds123cmbName.Text

EndIf

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(\"数量\")
EndSub
各位大哥帮帮忙，十分感谢！

千问 · 2011-7-10 02:42:52

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