VB连接数据库查询

来源：百度知道 编辑：UC知道 时间：2024/06/23 12:30:56
我的构想是一个名称为mp.mdb数据库,表名为"表1"
字段1 下载编号
字段2 歌手
字段3 歌名
字段4 文件地址
两个text文本框一个用于输入查询编号,一个用于显示结果

VB连接数据库查询过程基本是这样子：
须引用ADO.
private sub 查询_click()
Dim Cnn1 As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Dim cnnstr As String, s As Boolean
CnnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\mp.mdb;Persist Security Info=False"
Cnn1.Open CnnStr

s = "select * from 表1 where 下载编号='" & Text1.Text & "'"
Rs.Open s, Cnn1, adOpenStatic, adLockReadOnly
If Rs.RecordCount > 0 Then
Text2.text = rs!歌手 & rs!歌名 & rs!文件地址
else
Text2.text = "没找到!"
End If
Rs.Close
Cnn1.Close
Set Rs = Nothing
Set Cnn1 = Nothing
end sub