السلام عليكم
ممكن اضافة كودين بحث واحد بالاسم واخر بالتاريخ على هذة القاعدة
ولكم منى فائق احترامى
وشكرااا
وارجوا تعديل هذة الاكواد
وشكرا مرة اخرة
الاكواد
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Dim DbOn As New ADODB.Connection 'فتح قاعدة البيانات
Dim RsOn As New ADODB.Recordset 'فتح جدول البيانات
Private Sub Command1_Click()
If Not RsOn.BOF Then RsOn.MoveFirst
If RsOn.BOF And RsOn.RecordCount > 0 Then
Beep
Exit Sub
End If
Call viewRecord
End Sub
Private Sub Command2_Click()
If Not RsOn.BOF Then RsOn.MovePrevious
If RsOn.BOF And RsOn.RecordCount > 0 Then
Beep
RsOn.MoveFirst
Exit Sub
End If
Call viewRecord
End Sub
Private Sub Command3_Click()
If Not RsOn.EOF Then RsOn.MoveNext
If RsOn.EOF And RsOn.RecordCount > 0 Then
Beep
RsOn.MoveLast
End If
'
Call viewRecord
End Sub
Private Sub Command4_Click()
If Not RsOn.BOF Then RsOn.MoveLast
If Not RsOn.BOF And RsOn.RecordCount > 0 Then
Beep
Exit Sub
End If
Call viewRecord
End Sub
Public Function upatedata()
Text1 = RsOn.Fields("Name").Value
Text2 = RsOn.Fields("Age").Value
Text4 = RsOn.Fields("Date").Value
End Function
Private Sub Command5_Click()
On Error Resume Next
'كود البحث هنا
If RsOn.State = adStateOpen Then RsOn.Close
SQL = "SELECT * FROM [Tebol] WHERE [Age] = " & Trim(Text3.Text) & ""
RsOn.Open SQL, DbOn, adOpenStatic, adLockReadOnly
' GO TO FUNCTION upatedata
upatedata
End Sub
Private Sub Command6_Click()
'كود بحث باسم
End Sub
Private Sub Command7_Click()
'كود بحث بالتاريخ
End Sub
Private Sub Form_Load()
DbOn.Provider = "Microsoft.Jet.OLEDB.4.0;" 'تحديد قاعدة البيانات وهنا بأكسس
DbOn.Open App.Path & "\Data1.mdb" 'تحديد مسار قاعدة البيانات عند الفتح
RsOn.Open "[tebol]", DbOn, adOpenStatic, adLockReadOnly 'فتح الجدول الموجود داخل قاعدة البيانات باسم tebol
End Sub
Sub viewRecord()
If Not RsOn.RecordCount = 0 Then
Text1.Text = ""
Text2.Text = ""
Text4.Text = ""
If Not IsNull(RsOn![Name]) Then Text1 = RsOn![Name]
If Not IsNull(RsOn![Age]) Then Text2 = RsOn![Age]
If Not IsNull(RsOn![Date]) Then Text4 = RsOn![Date]
End If
End Sub
