access vba 得到一个表中记录行，代码？

在VBA (Visual Basic for Applications) 中，如果你想要获取Access数据库表中的记录行，通常会通过Recordset对象来操作。这里是一个简单的例子，演示如何打开一个表、设置游标并获取第一行数据：

Sub GetTableRows()
    ' 定义连接字符串和表名
    Dim strCon As String
    Dim strSQL As String
    Dim rst As Recordset
    
    ' 假设数据库名为myDatabase，表名为myTable
    strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\myDatabase.accdb"
    
    ' SQL查询以获取所有记录
    strSQL = "SELECT * FROM myTable"
    
    ' 打开记录集
    Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
    
    ' 检查是否成功打开记录集
    If Not rst.EOF Then
        ' 获取并显示第一条记录的数据
        Debug.Print "字段1值: " & rst!FieldName1 ' 请替换 FieldName1为实际的字段名称
        Debug.Print "字段2值: " & rst!FieldName2
        
        ' 移动到下一行
        rst.MoveNext
    Else
        MsgBox "表中无数据!"
    End If
    
    ' 关闭记录集
    rst.Close
End Sub