Question

VB用data控件连接access数据库，要求用sql语句查询，求高手纠错，详细如下

data控件的connect等属性已经设好无误，数据库内的表名字段名也是和sql语句相应的，但是总是对不了……语句如下

Private Sub Command1_Click()
Dim sql As String
Dim x As String
x = InputBox("请输入学号", "查询")
sql = "select * from 课程成绩 where 学号='" & x & "'"
Data1.DatabaseName = App.Path + "\exp2datasource.mdb"
Data1.RecordSource = sql
Data1.Refresh
End Sub

每次输入完数据库表中已经存在的一个学号就出现
数据库引擎找不到'select * from 课程成绩 where 学号='" & x & "'' 我疑惑了，求高手不吝赐教，纠错……

Answer 1

你看看你的sql中，输入select * from 课程成绩 where 学号=(input的内容)。sql是否能正确查询出来。不一定是你vb的问题。如果你学号设置在sql中为数据的话，查询时不用‘’的。

Answer 2

"select * from 课程成绩 where 学号=" + x

Answer 3

x = InputBox("请输入学号", "查询")
如果是字符类型 ，也要去一下空格，用去空格函数trim(x).

Answer 4

小型数据库用access，功能足够用。安全性较差。
大型数据库用sql
server，功能强大，效率高，安全性好。