Question

关于在VB中查询ACCESS表的问题，求教。

我在ACCESS表中建立一个表，有学号，姓名，班级等，现在我在VB中用INPUTBOX输入一个数，查询学号是这个数的这个人的所有信息，并且在VB中显现出来（主要是这个显示问题，用n = Val(InputBox("请输入该同学的学号", "注意")) sql = "select * From 表名 where 学号=n "应该没错吧？）。后面的就不会了。。。
请问这段代码该如何编写？还需要哪些控件？
PS：vb和access以连接并且测试好。而且貌似SQL sever语句貌似不能用？
哦，那么接下来该怎么做呢？？？就是怎么把他显示出来也 ？求解答啊......

Answer 1

sql = "select * From 表名 where 学号=n "
这一句就错了
sql = "select * From 表名 where 学号=" & n

我做了个打开数据库并显示指定记录的最简单的程序代码如下：

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim n As Long, sql As String
n = Val(InputBox("请输入该同学的学号", "注意"))
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\tmp\学生.mdb"
sql = "select * From 学生情况 where 学号=" & n
rs.Open sql, conn
MsgBox "学号：" & rs("学号") & vbCrLf & "姓名：" & rs("姓名") & vbCrLf & "班级：" & rs("班级")
rs.Close
conn.Close

里面的数据库名及路径、表名、字段名等等要根据你的实际情况进行修改。
另外你要在工程中引用ADODB才能使用。
仅供你参考，因为功能非常简单。如果扩展就你自己研究了。