Question

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

如题

Answer 1

Imports System.Data
Public Class Form1
Dim cn As New OleDb.OleDbConnection
Dim cd As New OleDb.OleDbCommand
Dim dr As OleDb.OleDbDataReader
'获取当前路径
Dim strpath As String = System.IO.Directory.GetCurrentDirectory
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'填入一个存在的字段数据
MsgBox(readData("xxx"))
End Sub

Function readData(ByVal s As String) As string
Dim i As Integer
cn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & strpath & "\infor.mdb"
cd.Connection = cn
cd.CommandText = "select * from 表明 where 字段名='" & s & "'"
cd.Connection.Open()
If dr.HasRows Then
'我在第一个字段中设计为自动编号
dim i as integer =dr.Item(0)
msgbox("此数据在第"+i +"行")
'返回对应的字段值
return dr.item (3)
End If
End Function
End Class

Answer 2

不知你说的一个数据是不是指一个字段的值？查询语句写
select 主键 from 表 where XXX=一个数据
XXX=一个数据 ,xxx是字段名，一个数据是你要找的，如果xxx是非数字，则要等号右边添加单引号

Answer 3

aa
select 主键 from 表 where XXX=一个数据
XXX=一个数据 ,xxx是字段名，一个数据是你要找的，如果xxx是非数字，则要等号右边添加单引号aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa