把datagrid 中選中記錄的位置顯示在label上，，-有解無憂

知道recordset中有個absoluteposition 但不知道怎么用。

uj5u.com熱心網友回復：

關鍵要設 CursorLocation = adUseClient，AbsolutePosition 就是從1開始的行號了。

MSDN 6.0 幫助:

AbsolutePosition 和 CursorLocation 屬性范例
該范例說明 AbsolutePosition 屬性如何對列舉所有 Recordset 記錄的回圈行程進行跟蹤。它通過將游標設定為客戶端游標，使用 CursorLocation 屬性激活 AbsolutePosition 屬性。

Public Sub AbsolutePositionX()



   Dim rstEmployees As ADODB.Recordset

   Dim strCnn As String

   Dim strMessage As String



   ' 使用客戶端游標為雇員表打開一個記錄集。

   strCnn = "Provider=sqloledb;" & _

      "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "

   Set rstEmployees = New ADODB.Recordset

   ' 使用客戶端游標激活 AbsolutePosition 屬性。

   rstEmployees.CursorLocation = adUseClient

   rstEmployees.Open "employee", strCnn, , , adCmdTable

   

   ' 列舉記錄集。

   Do While Not rstEmployees.EOF

      ' 顯示當前記錄資訊。

      strMessage = "Employee: " & rstEmployees!lName & vbCr & _

         "(record " & rstEmployees.AbsolutePosition & _

         " of " & rstEmployees.RecordCount & ")"

      If MsgBox(strMessage, vbOKCancel) = vbCancel _

         Then Exit Do

      rstEmployees.MoveNext

   Loop



   rstEmployees.Close



End Sub

uj5u.com熱心網友回復：

參考 1 樓 Tiger_Zhao 的回復:

關鍵要設 CursorLocation = adUseClient，AbsolutePosition 就是從1開始的行號了。
[Quote=MSDN 6.0 幫助:]AbsolutePosition 和 CursorLocation 屬性范例
該范例說明 AbsolutePosition 屬性如何對列舉所有 Recordset 記錄的回圈行程進行跟蹤。它通過將游標設定為客戶端游標，使用 CursorLocation 屬性激活 AbsolutePosition 屬性。

Public Sub AbsolutePositionX()



   Dim rstEmployees As ADODB.Recordset

   Dim strCnn As String

   Dim strMessage As String



   ' 使用客戶端游標為雇員表打開一個記錄集。

   strCnn = "Provider=sqloledb;" & _

      "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "

   Set rstEmployees = New ADODB.Recordset

   ' 使用客戶端游標激活 AbsolutePosition 屬性。

   rstEmployees.CursorLocation = adUseClient

   rstEmployees.Open "employee", strCnn, , , adCmdTable

   

   ' 列舉記錄集。

   Do While Not rstEmployees.EOF

      ' 顯示當前記錄資訊。

      strMessage = "Employee: " & rstEmployees!lName & vbCr & _

         "(record " & rstEmployees.AbsolutePosition & _

         " of " & rstEmployees.RecordCount & ")"

      If MsgBox(strMessage, vbOKCancel) = vbCancel _

         Then Exit Do

      rstEmployees.MoveNext

   Loop



   rstEmployees.Close



End Sub

1.rstEmployees!lName這個變數代表什么？
2.操作的界面是在datagrid上移動記錄，上面代碼只是連接到資料庫，還可以詳細一點嗎，

uj5u.com熱心網友回復：

和你有關的只有 CursorLocation 和 AbsolutePosition。

轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/89556.html

標籤：VB基礎類

上一篇：CAD的 VBA怎么后臺寫代碼打開指定路徑的DXF檔案?

下一篇：求助，windows 下列印驅動設定編程思路