请问VB如何这样与数据库结合？

来源：百度知道 编辑：UC知道 时间：2024/06/21 01:20:26
先用查询语言在数据库中找到合适条件的5条，然后再VB中把这5条显示出来，如果鼠标指针选中其中的一条数据的话，那么之前定义好的变量被赋予这些选中的数据。请问如何实现？使用什么控件？？很急，很感谢！！！！

不知道你要实现什么,给你个参考
先引用 : Microsoft Activex Data Objects 2.1 Library
准备工作:
在D:\下,有一个数据库文件 Mydb.Mdb(Access数据库)
数据库有,有一个表,名叫Mytable
Mytable下,有四个字段
DM 自动编号
XX 文本型(也可以是其它的
YY 文本型(也可以是其它的
FF 文本型(也可以是其它的
数据表下,随便添加几个记录吧,DM系统会自动分配

程序方面:
在窗体上,添加四个文本框,一个命令按钮,编写如下代码,你试试看
Private Sub Command1_Click()
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb"
'请将路径换成你的数据库位置
Dim Sql As String, S As Long
S = Val(Text1.Text)
If S > 0 Then
Sql = "Select * From [MyTable] Where DM=" & S
Rs.Open Sql, Conn, 1, 3
If Rs.EOF Then
MsgBox "没有找到此记录"
Else
Text2.Text = Rs("XX")
Text3.Text = Rs("YY")
Text4.Text = Rs("FF")