vb2005怎么查询某以有数据库

来源：百度知道 编辑：UC知道 时间：2024/05/17 09:10:04
查询 若没有该数据则告诉用户没有
要求纯代码的 不要绑定 给点关键代码 比如怎么判断有无此数据

Dim conn As System.Data.OleDb.OleDbConnection
Dim cmd As System.Data.OleDb.OleDbCommand
Dim dr As System.Data.OleDb.OleDbDataReader
Dim Tsql As String, connstr As String
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=""C:\db1.mdb"""
Tsql = "SELECT * FROM A1 WHERE ID=1"
conn = New OleDb.OleDbConnection(connstr)
conn.Open()
cmd = New OleDb.OleDbCommand(Tsql, conn)
dr = cmd.ExecuteReader()
dr.Read()
If dr.HasRows Then
'查到数据
Else
'没查到
End If
dr.Close()
cmd.Dispose()
conn.Close()

你的问题很模糊
再补充说明一下啊