كود عمل تعديل على قاعدة البيانات

[عنـ الشوق ـاد]

كود عمل تعديل على قاعدة البيانات

لعمل تعديل على قاموس الترجمة من عربي الى الانجليزي على قاعدة البيانات مثلا: مسح او إضافة او تعديل نستعمل نستعمل الكود التالي:

Dim i As Byte

Private Sub Command1_Click()

Data1.Recordset.AddNew
Data3.Recordset.AddNew
Text1 = ""
Text2 = ""
Text3 = ""

Data3.Recordset![ar_id] = Text7.Text
Data3.Recordset![en_id] = Text8.Text
End Sub

Private Sub Command10_Click()
Data2.Recordset.MoveNext
If Data2.Recordset.EOF Then
Data2.Recordset.MoveLast
End If
End Sub

Private Sub Command11_Click()
Data2.Recordset.MoveLast

End Sub

Private Sub Command12_Click()
Data2.Recordset.MovePrevious
If Data2.Recordset.BOF Then
Data2.Recordset.MoveFirst
End If

End Sub

Private Sub Command13_Click()
Data2.Recordset.MoveFirst

End Sub

Private Sub Command2_Click()


Data1.Recordset.Update
Data1.Refresh
Data3.Recordset.Update
Data3.Refresh
Data2.Recordset.Update
Data2.Refresh


End If
End Sub






Private Sub Command3_Click(Index As Integer)
If Index = 0 Then
Data1.Recordset.Delete
Data1.Refresh
Else
Data2.Recordset.Delete
Data2.Refresh
End If

End Sub

Private Sub command4_Click()
Unload Me
End Sub

Private Sub Command5_Click()

Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If




End Sub

Private Sub Command6_Click()

Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
End If




End Sub

Private Sub Command7_Click()

Data1.Recordset.MoveLast

End Sub

Private Sub Command8_Click()

Data1.Recordset.MoveFirst



End Sub

Private Sub exit_Click()
Unload Me
End Sub

Private Sub Command9_Click()
Data2.Recordset.AddNew
Data3.Recordset.AddNew

Text4 = ""
Text5 = ""
Text6 = ""

Data3.Recordset![ar_id] = Text7.Text
Data3.Recordset![en_id] = Text8.Text
End Sub

[الـــدانـــة]

اللــــه يعطيــــك العافيـــة أخــــوي عنـــاد
جهـــــــود تشكــــــــر عليهــــــا
دمت ودام عطائـــــك