vb 如何在数据库(Access)中找到一个数据并知道在第几条记录

Imports SystemData

Public Class Form1

Dim cn As New OleDbOleDbConnection

Dim cd As New OleDbOleDbCommand

Dim dr As OleDbOleDbDataReader

'获取当前路径

Dim strpath As String = SystemIODirectoryGetCurrentDirectory

Private Sub Form1_Load(ByVal sender As SystemObject, ByVal e As SystemEventArgs) Handles MyBaseLoad

'填入一个存在的字段数据

MsgBox(readData("xxx"))

End Sub

Function readData(ByVal s As String) As string

Dim i As Integer

cnConnectionString = "provider=microsoftjetoledb40;data source=" & strpath & "\informdb"

cdConnection = cn

cdCommandText = "select from 表明 where 字段名='" & s & "'"

cdConnectionOpen()

If drHasRows Then

'我在第一个字段中设计为自动编号

dim i as integer =drItem(0)

msgbox("此数据在第"+i +"行")

'返回对应的字段值

return dritem (3)

End If

End Function

End Class

If rsFields("姓名") Like "" & LCase(NameQuery ) & "" Then

不需要这样做的,下面的代码要好些

NameQuery = InputBox("请输入要查询的名字", "查询")

Set rs = con3OpenRecordset("SELECT FROM 通讯录 where 姓名 = '" & trim(NameQuery) & "'")

if not rseof then

Txtname = rsFields("姓名")

TxtE_mail = rsFields("E_mail")

Txtmobil = rsFields("手机")

TxtQQ = rsFields("QQ")

Txtphone = rsFields("固定电话")

else

MsgBox "查无此人", , "注意"

end if

首先用VB程序连接数据库，然后用sql语句查询，这些基础 *** 作百度上有很多，可搜索VB *** 作Access数据库。

建议对该数据库结构做一定了解，可用Microsoft的ACCESS打开该数据库，查看其表和字段信息，然后在程序中写出对应的SQL语句查询。

也可以盲检索，用程序获取表列表，再遍历每一个表，对其所有字段进行匹配，对于你稍难。

附上一句SQL语句仅供参考：

"Select  From TableName Where fieldname1 Like '%" + Text1Text + "%'" Or fieldname2 Like '%" + Text1Text + "%'"

以上就是关于vb 如何在数据库(Access)中找到一个数据并知道在第几条记录全部的内容，包括:vb 如何在数据库(Access)中找到一个数据并知道在第几条记录、vb中的数据库查询、VB语言 如何检索mdb数据库等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！