语法错误(操作符丢失)在查询表达式’* from添加模板where疾病名称='" & Text1.Text & "'"中
PrivateSubCommand2_Click()IfText1.Text<>""ThenAdodc1.RecordSource="select*from添加模板whe...
Private Sub Command2_Click()
If Text1.Text <> "" Then
Adodc1.RecordSource = "select * from添加模板where疾病名称='" & Text1.Text & "'"
Adodc1.Refresh
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
End If
List1.RemoveItem (List1.ListIndex)
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Combo1_Click
End If
End Sub
代码如上,目的是要点击command2删除数据库中的text1(字段名“疾病名称”)、text2(字段名“超声所见”)、text3(字段名“超声提示”)的内容和list1中当前选中的项。
不知为什么每次操作都出现“语法错误(操作符丢失)在查询表达式’* from添加模板where疾病名称='" & Text1.Text & "'"中”这句话!
找不出哪里的问题?求高手帮帮忙!! 展开
If Text1.Text <> "" Then
Adodc1.RecordSource = "select * from添加模板where疾病名称='" & Text1.Text & "'"
Adodc1.Refresh
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
End If
List1.RemoveItem (List1.ListIndex)
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Combo1_Click
End If
End Sub
代码如上,目的是要点击command2删除数据库中的text1(字段名“疾病名称”)、text2(字段名“超声所见”)、text3(字段名“超声提示”)的内容和list1中当前选中的项。
不知为什么每次操作都出现“语法错误(操作符丢失)在查询表达式’* from添加模板where疾病名称='" & Text1.Text & "'"中”这句话!
找不出哪里的问题?求高手帮帮忙!! 展开
2个回答
展开全部
Adodc1.RecordSource = "select * from 添加模板 where 疾病名称 ='" & Text1.Text & "'"
“添加模板”的前后各加一个空格
“疾病名称”的前面也加一个空格
不然的话,“from添加模板where疾病名称”这一大串被当作一个单词,SQL就不知道是什么意思了。
改成这样:
Adodc1.RecordSource = "select * from 添加模板 where 疾病名称 ='" & Text1.Text & "'"
“添加模板”的前后各加一个空格
“疾病名称”的前面也加一个空格
不然的话,“from添加模板where疾病名称”这一大串被当作一个单词,SQL就不知道是什么意思了。
改成这样:
Adodc1.RecordSource = "select * from 添加模板 where 疾病名称 ='" & Text1.Text & "'"
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询