請問,如何不用控件來實現移動記錄的方法(ADO)

Question

現在我想不利用VB自帶的控件來移動記錄,我想用代碼來移動,請問如何做.希望給出源程序謝謝

Answer 1

用recordset的move、movefirst,movenext,moveprevious,movelast等方法

Answer 2

你得采用Ado对象编程，不用Adodc控件等。

Answer 3

TO sunwo(sunwo)兄:
     不好意思,由于是初學者,故不知如何使用ADO對象編程,可以給出一份源碼嗎?謝謝

Answer 4

Option Explicit
Dim rs As New ADODB.Recordset'最前
Private Sub Command1_Click()
  rs.MoveFirst
End Sub
'最后
Private Sub Command2_Click()
  rs.MoveLast
End Sub
'向前
Private Sub Command3_Click()
  If Not rs.BOF Then
     rs.MovePrevious
  End If
End Sub
'向后
Private Sub Command4_Click()
  If Not rs.EOF Then
     rs.MoveNext
  End If
End SubPrivate Sub Form_Load()
   Dim cnnstr As String
   Dim sqlstr As String
   
   cnnstr = "Provider=Microsoft.Jet.OLEDB.4.0;"
   cnnstr = cnnstr & "Source=E:\学生学籍.mdb;"  '改为你的数据库
   cnnstr = cnnstr & "Persist Security Info=False"
   sqlstr = "select * from 密码表"
  ‘这一句你要查一下MSDN
   rs.Open sqlstr, cnnstr, adOpenKeyset, adLockOptimistic
   '如果未打开，设置四个按钮为ENABLED
   'Status的值我忘了是几了
   If rs.Status <> 1 Then
   
      Command1.Enabled = False
      Command2.Enabled = False
      Command3.Enabled = False
      Command4.Enabled = False
   End If
   End Sub