from子句语法出现错误 vb

显示全部楼层 · 2010-12-25 19:14:53

Private Sub Command3_Click()
Dim mz As String
mzy = InputBox$("请输入学号", "查找窗")
Adodc1.RecordSource = "Select * From 学生信息Where 学号 = mzy"
Adodc1.Refresh
If Adodc1.Recordset.EOF Then

MsgBox "无此学生!", , "提示"

Adodc1.RecordSource = "学生信息"

Adodc1.Refresh
End If
End Sub

千问 · 2010-12-25 19:14:53

1、 "Select * From 学生信息Where 学号 = mzy" 改成："Select * From 学生信息 Where 学号 = " & mzy2、如果你的学号是字符型则要写成：："Select * From 学生信息 Where 学号 = " & "'" & mzy & "'"3、你定义的mz好像没有用或许你是写掉了“y“，如果是这样的话说明你的学号是字符，则就放改成第2条。

千问 · 2010-12-25 19:14:53

Adodc1.CommandType = 8Adodc1.RecordSource = "Select * From 学生信息 Where 学号 = '" & mzy & "'"

千问 · 2010-12-25 19:14:53

Adodc1.Recordset.Source = "select * from 学籍表 where 性别='女' "