[DeSSaR]

السلام عليكم ورحمة الله وبركاته

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

البيانات تظهر بجدول واريد ان اعمل فورم ثاني يكون للبحث بحيث يعطيني النتائج المحتوية على كلمة مشابهة للبحث في جدول

مثلا لو كتبت اسم محمد يعطيني جميع السجلات التي يجد فيها محمد على هيئة جدول.

المطلوب ما هي الطريقة ؟ وماهو الكود ؟ وكيفية عملها ؟ (انا مبتدأ جدا )

اشكركم مقدما

[vbnet]

.....

قلت أن البيانات تظهر بالجدول،،،
والسؤال ما هي طريقتك في ربط الجدول بقاعدة البيانات،،،،
إذا كان بالمعالج فنادراً ترى من يجيبك لأنها طريقة غير مرغوبة وصعبة التصحيح والتعديل
وإذا كانت بالكود فضع لنا جزء من الكود الذي استخدمته لنعرف اسلوبك ولا نشوش عليك بأساليب أخرى

.....

[DeSSaR]

اللي سويته ربط عن طريق project - add new data source

ما كتبت اي كود انا مبتدا ولا اعرف اي كود ^^"

[DeSSaR]

عند البحث عن الطريقة لقيت هذا الكود

كود :

Dim search2

search2 = inputbox("أدخل اسم الشخص المراد البحث عنه",,"مختار سيد صالح")

Data1.RecordSource = "SELECT * FROM mok WHERE name LIKE (""" & "*" & search2 & "*" & """)"

data1.*******

لكن ما اعرف كيف اسويه ~~

[المهنا]

هذا افضل مثال لحفظ البيانات حتى الصورة وعرضها أيضا في الجدول

إضافة - حفظ - حذف - بحث وكلها تعرض لك في جدول

مثال مثالي ممتاز في هذا الجانب

[mfhalragi]

الله يحفظكم اريد كود يعمل في البحث برقم الهوية او رقم الجوال تعبت وانا ابحث عن هذا الشي

[سعود]

(10-02-19, 02:29 PM)mfhalragi كتب : الله يحفظكم اريد كود يعمل في البحث برقم الهوية او رقم الجوال تعبت وانا ابحث عن هذا الشي

اخي الكريم لو تكتب سؤالك بموضوع مستقل بيكون افضل ..
وكذلك رفع مثال بسيط للتعديل عليه .

[karim5009]

انا عامل فورم فيه البحث عن طريق كومبو بوكس بالاسم و رقم الهاتف لما اختار البحث بالاسم مش بيطلع اى نتائج لما بختار بالهاتف بتطلع النتائج صحيحة
الكود :
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

If ComboBox1.SelectedIndex = 0 Then

Dim DT As New DataTable
Dim DA As New SqlClient.SqlDataAdapter
DT.Clear()
DA = New SqlClient.SqlDataAdapter("SELECT * FROM Customers WHERE STATE = 'TRUE' AND Cus_NAME LIKE '%" & TextBox1.Text & "%'ORDER BY Cus_NAME", sqlconn)
DA.Fill(DT)
DataGridView1.DataSource = DT.DefaultView
Else
ComboBox1.SelectedIndex = 1
Dim DT As New DataTable
Dim DA As New SqlClient.SqlDataAdapter
DT.Clear()
DA = New SqlClient.SqlDataAdapter("SELECT * FROM Customers WHERE STATE = 'TRUE' AND Cus_PHONE LIKE '%" & TextBox1.Text & "%'", sqlconn)
DA.Fill(DT)
DataGridView1.DataSource = DT.DefaultView
End If

End Sub
End Class

[abdalaziz224]

اريد طريقة البحث عن الرقم او الجوال للاكسس في الفيجوال بيسك نت