ايران ويج

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

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

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

شما مي توانيد با ايجاد يك 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:
اميدوارم به دردتون بخوره