ممكن كود للبحث في الداتا بيز

استعمل جمل الاستعلام SQL مثال

لتكن الكلمة المراد البحث عنها في متغير X طبعا من نوع String راح يكون الاستعلام كالتالي:

select * from [اسم الجدول] where [اسم الحقل] like '%" & X & "%'

هذا شرح مع الكود

للبحث و

ترتيب و

إحصاء و

حفظ و

حذف السجلات

في داتا بيز

من جود خضر

Jado

'Add To Your Form ( 5 = Command ; 1 = Adodc ; 1 = DataGrid )

'By : Joud . Net 

'Professional Technology & Communication Network's

'كود البحث

Private Sub Command1_Click()

Dim x

x =text1

Adodc1.RecordSource = "select * from اسم الجدول where اسم العمود like '" & x & "%'"

Adodc1.CommandType = adCmdText

Adodc1.Refresh

'ولإحصاء النتائج

Label.Caption = Adodc1.Recordset.RecordCount

End Sub

'=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

'كود ترتيب السجلات

Private Sub command2_Click()

On Error Resume Next

'order=تعليمة ترتيب الملفات

Adodc1.RecordSource = "select * from اسم الجدول order by اسم العمود"

Adodc1.CommandType = adCmdText

Adodc1.Refresh

End Sub

'=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

'كود عرض جميع السجلات

Private Sub Command3_Click()

On Error Resume Next

Adodc1.Refresh

Adodc1.RecordSource = " select * from اسم الجدول "

'ولإحصاء النتائج

Label1.Caption = Adodc1.Recordset.RecordCount

End Sub

'=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

'كود حذف السجل

Private Sub Command4_Click()

On Error Resume Next

x = MsgBox("هل تريد حذف السجل", vbOKCancel)

If x = vbOK Then

Adodc1.Recordset.Delete

End If

'=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

Private Sub Command5_Click()

'كود حفظ وتعديل سجل

Adodc1.Recordset.Update

MsgBox "نم حفظ السجل بنجاح", vbOKOnly + vbMsgBoxRight + vbMsgBoxRtlReading, "حفظ التعديل"

End If