السلام عليكم ورحمة الله وبركاته
اخواني انا عملت برنامج فيجوال بيسك 2012 بقاعدة بيانات اكسس
البيانات تظهر بجدول واريد ان اعمل فورم ثاني يكون للبحث بحيث يعطيني النتائج المحتوية على كلمة مشابهة للبحث في جدول
مثلا لو كتبت اسم محمد يعطيني جميع السجلات التي يجد فيها محمد على هيئة جدول.
المطلوب ما هي الطريقة ؟ وماهو الكود ؟ وكيفية عملها ؟ (انا مبتدأ جدا 
)
اشكركم مقدما
.....
قلت أن البيانات تظهر بالجدول،،،
والسؤال ما هي طريقتك في ربط الجدول بقاعدة البيانات،،،،
إذا كان بالمعالج فنادراً ترى من يجيبك لأنها طريقة غير مرغوبة وصعبة التصحيح والتعديل
وإذا كانت بالكود فضع لنا جزء من الكود الذي استخدمته لنعرف اسلوبك ولا نشوش عليك بأساليب أخرى
.....
اللي سويته ربط عن طريق project - add new data source
ما كتبت اي كود
انا مبتدا ولا اعرف اي كود ^^"
عند البحث عن الطريقة لقيت هذا الكود
كود :
Dim search2
search2 = inputbox("أدخل اسم الشخص المراد البحث عنه",,"مختار سيد صالح")
Data1.RecordSource = "SELECT * FROM mok WHERE name LIKE (""" & "*" & search2 & "*" & """)"
data1.*******
لكن ما اعرف كيف اسويه ~~
هذا افضل مثال لحفظ البيانات حتى الصورة وعرضها أيضا في الجدول
إضافة - حفظ - حذف - بحث وكلها تعرض لك في جدول
مثال مثالي ممتاز في هذا الجانب
الله يحفظكم اريد كود يعمل في البحث برقم الهوية او رقم الجوال تعبت وانا ابحث عن هذا الشي
(10-02-19, 02:29 PM)mfhalragi كتب : [ -> ]الله يحفظكم اريد كود يعمل في البحث برقم الهوية او رقم الجوال تعبت وانا ابحث عن هذا الشي
اخي الكريم لو تكتب سؤالك بموضوع مستقل بيكون افضل ..
وكذلك رفع مثال بسيط للتعديل عليه .
انا عامل فورم فيه البحث عن طريق كومبو بوكس بالاسم و رقم الهاتف لما اختار البحث بالاسم مش بيطلع اى نتائج لما بختار بالهاتف بتطلع النتائج صحيحة
الكود :
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
اريد طريقة البحث عن الرقم او الجوال للاكسس في الفيجوال بيسك نت