当前位置:编程学习 > VB >>

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

我在ACCESS表中建立一个表,有学号,姓名,班级等,现在我在VB中用INPUTBOX输入一个数,查询学号是这个数的这个人的所有信息,并且在VB中显现出来(主要是这个显示问题,用n = Val(InputBox("请输入该同学的学号", "注意"))
sql = "select * From 表名 where 学号=n "应该没错吧?)。后面的就不会了。。。
请问这段代码该如何编写?还需要哪些控件?
PS:vb和access以连接并且测试好。而且貌似SQL sever语句貌似不能用?
答案: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才能使用。
仅供你参考,因为功能非常简单。如果扩展就你自己研究了。

上一个:vb.net 读取内存失败 求高手解答
下一个:怎么在VB语言中给函数过程传递参数?

CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,