[قناص الموت]

اداة قاعدة البيانات

تمكنك هذه الاداة من القيام بإعمال عده على قاعدة البيانات بشكل ابسط مما تتخيل ولكن بشكل محدود

لاتحتاج إلى اكثر من وضع النقط على الحروف فمثلا

لربط قاعدة بيانات معينة ماعليك إلا اختيار القاعدة المطلوبة

مثلا




وبعد اختار قاعدة البيانات المطلوبة يجب اختيار بنفس الطريقة مجموعة السجلات وهي هنا الجداول

recordsource عن طريق خاصية

سوف تظهر لك الجداول الموجودة في قاعدة البيانات اختار الجدول الذي تريده

وبكل بساطه إنتهت عملية الربط
بإمكان الان الاشارة إلى خانة نص ووضع الحقول المطلوبة لعرضها
في حقل الاسم بالجدول text1 فمثلا نريد بإن نربط خانة نص
DataField نختار خصائص نص الحقل وعن طريق خاصية



وهذا المثال يوضح جميع الامور المهمة المتعلقة باداة قاعدة البيانات

Dim qry As String
Dim book As String

Private Sub cmd_add_Click()
'If Txtname.Text <> "" And txtaddress.Text <> "" Then
'Data1.Refresh
Data1.Recordset.MoveLast
Data1.Recordset.AddNew


End Sub
Private Sub cmd_update_Click()
Dim title As String
Dim prompt As String
On Error GoTo 10001
If txtname <> "" And txtaddress <> "" Then

Data1.Recordset.Update

Else
title = "من فضلك استكمل باقي البيانات"
prompt = "تعديل لم يكتمل"
MsgBox title, 16, prompt
End If
10001:
End Sub

Private Sub cmd_del_Click()
Dim response As Integer, message_code As Integer
Dim megsage As String, title As String
title = "رسالة تحذيرية"
message = "سيتم مسح بيانات هذا السجل"
message_code = 1 + 16 + 256
response = MsgBox(message, message_code, title)
If response = 1 Then
On Error GoTo 11
Data1.Recordset.Delete
Data1.Refresh
11:
MsgBox "احتمال عدم وجود بيانات للحذف ، الرجاء التأكد"
End If
End Sub


Private Sub Command1_Click()
'الانتقال إلى السجل الاول
Data1.Recordset.MoveFirst

End Sub

Private Sub Command2_Click()
End

End Sub

Private Sub Command3_Click()
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
Beep
Data1.Recordset.MoveFirst
End If

End Sub

Private Sub Command4_Click()
Data1.Recordset.MoveNext
'اذا وصل إلى نهاية الجدول
If Data1.Recordset.EOF Then
Beep
Data1.Recordset.MoveLast
End If

End Sub

Private Sub Command5_Click()
'الذهاب إلى اخر سجل

Data1.Recordset.MoveLast

End Sub

Private Sub Command6_Click()
Dim prompt As String
Dim title As String
Dim d_entery As String

prompt = "ادخل اسم العميل"
title = "البحث عن العميل"
d_entry = InputBox$(prompt, title)
qry = "cust_name = '" & d_entry & "'"

Data1.Recordset.FindFirst qry


If Data1.Recordset.NoMatch Then
MsgBox "لا يوجد عميل بهذا الأسم"
End If




End Sub

Private Sub Command7_Click()

'هنا نقوم بمعرفة اذا كان يوجد اسم ثاني
If Len(qry) > 0 Then
Data1.Recordset.FindNext qry

End If

End Sub

Private Sub Command8_Click()
book = Data1.Recordset.Bookmark
Print book

End Sub

Private Sub Command9_Click()
Data1.Recordset.Bookmark = book

End Sub

Private Sub Form_Load()
'Dim dbdao As Database
'هنا نقوم بفتح القاعدة
Data1.DatabaseName = App.Path & "\market.mdb"

Data1.RecordSource = "customers"

End Sub
التحميل