مساعدة في مشروعي عملية( البحث في قاعدةالبيانات

-9

إن شاء الله سأحاول توضيح معنى هذا الكود

function = وظيفة يتم إرجاع ناتج منها

الوظيفة public لكى تستخدم على مدار الproject كله , إسمها search وهى تأخذ 3 قيم وهم إسم الtable وإسم الfield والقيمة الموجودة فى الfield المراد البحث عنها وتعطينا dataset

Public Function Search(ByVal Table As String, ByVal field As String, ByVal Txt As String) As DataSet

Try

CMD هو إسم الcommand وأختار نوعه بtext أى أن المبرمج هو الذى سيرسل جملة الcommand من الapplication إلى الserver

CMD.CommandType = CommandType.Text

هنا كتب جملة الcommand

CMD.CommandText = "select * from " + Table + " where " + field + " like('" + Txt + "%')"

عرف الdataset بإسم ds

Dim ds As DataSet = New DataSet

عرف dataadapter بإسم da

Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter

عرف الselectcommand في الdataadapter للcommand وهو السابق تعريفه

da.SelectCommand = CMD

عرف الconnection للcommand السابق ذكره

CMD.Connection = Connection

إفراغ الdataset

ds.Clear()

ملء الdataset

da.Fill(ds)

هذة الوظيفة تعيد إلينا الdataset كما ذكرت في أول الكود

Return ds

يعيد الإستثناءات أو الأخطاء في messagebox إن وجدت

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

End Function

يمكنك إستخدام هذة الوظيفة عن طريق إستدعائها في زر

Me.Search("your table name", "your field name", "the value you want to serarch")

ولكن قبل ذلك عليك تعريف ال connection وال command بهذا الكود قبل كتابة أى كود

Dim connection As New OleDb.OleDbConnection
    Dim CMD As New OleDb.OleDbCommand

إن كان هناك شئ لم أوضحه جيدا فأخبرنى وأنا تحت أمرك

-waf

-9

اقتباس

حيث اسم قاعدة البيانات daleel ويوجد فيها جدول واحد اسمة ALL ويحتوي على order - family - name - city - phone number

يمكنك إستخدام هذة الfunction بهذة الطريقة بداخل زر على سبيل المثال

Me.Search("ALL", "name", "dream qq")

-waf

نسيت أن إذكر لك أن تعمل تربط ال labels بالdataset فى الزر

مشكور اخوي بس حبيت اعرف ليش علامة % في الكود

وجاري التجربة

ومشكور اخوي وتعبتك معاي وجزاك الله كل خير

وهذه الصورة

-9

اقتباس

ليش علامة % في الكود

هذة العلامة معناها أنك عندما تبحث عن إسم فلا تكتبه بالكامل وأنما تكتب مثلا الإسم الأول وتريد باقى الإسم

مثال

عندك أسم (محمد مصطفى إبراهيم) وتريد البحث بإسم محمد

select * from table1 where name like 'محمد%'

وأن كنت تريد البحث عن إسم محمد ولا تعرف أن كان في الأول أو الوسط أو الأخر

select * from table1 where name like '%محمد%'

بالنسبة لسؤالك فأنى أعتقد أنك تقوم بعمل drag and drop لdataadapter سواء أكانت access أو sql وتحدد جملة الselect فيها ومن right click على الdataaadapter تختار genrate dataset وتقوم بربط الlabels من الproperties لكل label من databindings ثم text ثم تختار من الdataset ما تريد ربطه بكل label

في جملة الselect يمكنك كتابة where family = @family

في زر البحث تكتب

(Oledb)SqlDataadapter.SelectCommand.Parameter("@family").value = CStr(FamilyTextbox.Text)
(Oledb)SqlDataadapter.Fill(Dataset1,"Table_Name")

وأن شاء الله تظهر البيانات التى تريدها

-waf

مشكور اخوي على التوضييح و البرنامج اشتغل