پرش روی دیتا بیس

[saeedmasih]

سلام
من با ویبی 6 و اکسس در حال نوشتن برنامه ای کوچک هستم.
بعد از ارتباط دیتابیس برای اینکه کلیدی به عنوان Next یا Privios داشته باشم تا به
رکوردهای قبلی و بعدی دسترسی داشته باشم چه باید کنم؟

[ako]

اگه از adodc استفاده كردي مي توني از اين كد استفاده كني

کد:

adodc1.Recordset.MoveNext

البته الان نگاه كردم اگه ار ديتا نيز استفاده كرده باشي همين كدو بنويس به ركورد بعدي مي رود

[Mohandese_Javan]

سلام!
كاري كه شما ميخواي انجام بدي هم با كامپوننت خود ويبي قابل انجامه() هم ميشه اصلا كامپوننت به كار نبرد و اون رو هم با كدنويسي به وجود آورد. حالا كدوم روش رو مي خواي انجام بدي؟ بگو تا اينجا دوستان جواب بدن.(خودمم اگه بودم و تونستم جواب ميدم) :wink:

[elinaz]

شما مي توانيد با ايجاد يك command براي هر عمل و تايپ دستورات زير كارتان را انجام دهيد:


Private Sub cmdfirst_Click()eee
Data1.Recordset.MoveFirst
cmdfirst.Enabled = False
cmdprevious.Enabled = False
cmdlast.Enabled = True
cmdnext.Enabled = True
End Sub

Private Sub cmdlast_Click()eee
Data1.Recordset.MoveLast
cmdlast.Enabled = False
cmdnext.Enabled = False
cmdfirst.Enabled = True
cmdprevious.Enabled = True
End Sub

Private Sub cmdnext_Click()eee
Data1.Recordset.MoveNext
cmdfirst.Enabled = True
cmdprevious.Enabled = True
If Data1.Recordset.EOF = True Then
Data1.Recordset.MovePrevious
cmdlast.Enabled = False
cmdnext.Enabled = False
End If
End Sub


Private Sub cmdprevious_Click()eee
Data1.Recordset.MovePrevious
cmdlast.Enabled = True
cmdnext.Enabled = True
If Data1.Recordset.BOF = True Then
Data1.Recordset.MoveNext
cmdfirst.Enabled = False
cmdprevious.Enabled = False
End If
End Sub

البته اگه خواستيد دستورات زير براي اضافه و حذف يك ركورد مي باشد:

Private Sub cmdadd_Click()eee
If cmdadd.Caption = "add" Then
cmdadd.Caption = "update"eee
Data1.Recordset.AddNew
cmddelete.Enabled = False
Else
cmdadd.Caption = "add"eee
Data1.Recordset.Update
cmddelete.Enabled = True
End If
End Sub

Private Sub cmddelete_Click()eee
Dim i As Integer
i = MsgBox("do you want delete current record?", vbOKCancel + vbQuestion + vbDefaultButton1, "delete record")eee
If i = 1 Then
Data1.Recordset.Delete
Data1.Refresh
End If
End Sub

براي عمل اضافه از يك command با caption add استفاده كردم و همچنين هر جا 3 تا eee)e) ديديد حذف كنيد چون مي خواستم انگليسي ها به هم نريزه نوشتم :wink:
اميدوارم به دردتون بخوره