تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة في كود البحث فرجاء المساعدة
#1
السلام عليكم الاخوة الاعزاء

الكود المرفق اتحل من حيث الاضافة والتعديل ولكن خرب من حيث البحث Huh

الرجاء المساعدة ياشباب

مع فائق الشكر


الملفات المرفقة
.rar   Code-2.rar (الحجم : 96 ك ب / التحميلات : 55)
الرد
تم الشكر بواسطة:
#2
(18-05-17, 06:04 PM)alma2  تسلم ايديك  الاخ الكريم  Alam 2 علي المساعدة الحين كله تمام الا حاجة بسيطة وهي عدم وجود ربط بين الداتا جريد فيو والتكست بوكس كتب : بمعني اذا وقفت علي اي صف المفروض تظهر الداتا تبعه في التكست بوكس

 بتشتغل معايا لم باعمل  

DataGridView1_SelectionChanged

بس للاسف بتخرب الباقي كله  

مع جزيل الشكر الاخ الحبيب
كود :
Imports System.Data.OleDb

Public Class Form1

   ' جملة الربط
   Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Code.accdb")

   Dim da As New OleDbDataAdapter ' جدول مصدر المعلومات

   Dim dt As New DataTable        ' مكان التخزين

   Sub Load_Data()
       dt.Clear()
       da = New OleDbDataAdapter("Select * From Table1", con)
       da.Fill(dt)
   End Sub
   Sub save_Data()
       Dim save As New OleDbCommandBuilder(da)
       save.QuotePrefix = "["
       save.QuoteSuffix = "]"
       da.Update(dt)
       dt.AcceptChanges()
   End Sub

   ' جملة تحميل الجدول الي الداتا جريد فيو

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Load_Data()
       DataGridView1.DataSource = dt

   End Sub

   ' مفتاح الاضافة

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       dt.Rows.Add()
       Dim pos As String = dt.Rows.Count - 1
       dt.Rows(pos).Item(1) = TextBox1.Text
       dt.Rows(pos).Item(2) = TextBox2.Text
       dt.Rows(pos).Item(3) = Val(TextBox3.Text)
       ' تستخدم هذا الكود لو مطلوب نكتب التاريخ مع الوقت
       'dt.Rows(pos).Item(4) = DateTimePicker1.Value
       ' تستخد هذا الكود لو مطلوب نكتب التاريخ فقط
       dt.Rows(pos).Item(4) = DateTimePicker1.Value
       dt.Rows(pos).Item(5) = Val(TextBox4.Text)
       dt.Rows(pos).Item(6) = TextBox5.Text


   End Sub
   ' كود عرض السطر اللي واقفين عليه في الداتا جريد فيو في التكست بوكس
   Private Sub DataGridView1_SystemColorsChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGridView1.SystemColorsChanged

       Dim pos As String = BindingContext(dt).Position

       TextBox1.Text = dt.Rows(pos).Item(1)
       TextBox2.Text = dt.Rows(pos).Item(2)
       TextBox3.Text = dt.Rows(pos).Item(3)
       DateTimePicker1.Value = dt.Rows(pos).Item(4)
       TextBox4.Text = dt.Rows(pos).Item(5)
       TextBox5.Text = dt.Rows(pos).Item(6)
   End Sub
   ' كود التعديل
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

       Dim pos As String = BindingContext(dt).Position

       dt.Rows(pos).Item(1) = TextBox1.Text
       dt.Rows(pos).Item(2) = TextBox2.Text
       dt.Rows(pos).Item(3) = Val(TextBox3.Text)
       dt.Rows(pos).Item(4) = DateTimePicker1.Value
       dt.Rows(pos).Item(5) = Val(TextBox4.Text)
       dt.Rows(pos).Item(6) = TextBox5.Text


   End Sub
   ' كود الحذف
   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       dt.Rows(BindingContext(dt).Position).Delete()
     
   End Sub
   ' كود البحث عن الاسم
   Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged

       dt.Clear()
       da = New OleDbDataAdapter("Select * From Table1 where Name Like '%" & TextBox6.Text.Trim & "%'", con)
       da.Fill(dt)

   End Sub
   '' كود البحث عن العنوان
   Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged
       dt.Clear()
       da = New OleDbDataAdapter("Select * From Table1 where Address Like '%" & TextBox7.Text.Trim & "%'", con)
       da.Fill(dt)
   End Sub
   ' كود البحث عن رقم  التليفون
   Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged
       dt.Clear()
       da = New OleDbDataAdapter("Select * From Table1 where Telephone Like '%" & TextBox8.Text.Trim & "%'", con)
       da.Fill(dt)
   End Sub

   ' كود البحث عن  ألتاريخ
   Private Sub DateTimePicker2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker2.ValueChanged
       dt.Clear()
       da = New OleDbDataAdapter("Select * From Table1 where Date = #" & DateTimePicker2.Text & "#", con)
       da.Fill(dt)
   End Sub

   ' كود البحث عن  المرتب

   Private Sub TextBox10_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox10.TextChanged

       dt.Clear()
       da = New OleDbDataAdapter("Select * From Table1 where Salary Like '%" & Val(TextBox10.Text.Trim) & "%'", con)
       da.Fill(dt)
   End Sub

   Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

       TextBox1.Clear()
       TextBox2.Clear()
       TextBox3.Clear()
       TextBox4.Clear()
       TextBox5.Clear()
       DateTimePicker1.Value = Now

   End Sub

 
   Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
       save_Data()
   End Sub

End Class
الرد
تم الشكر بواسطة:
#3
وضح أكثر يعني ايه عدم وجود ربط بين الداتا جريد فيو والتكست بوكس
التعديل والحفظ والحذف والبحث كله شغال
الرد
تم الشكر بواسطة:
#4
(19-05-17, 11:30 AM)alma2 كتب : وضح أكثر يعني ايه عدم وجود ربط بين الداتا جريد فيو والتكست بوكس
التعديل والحفظ والحذف والبحث كله شغال

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


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#5
كود :
Imports System.Data.OleDb

Public Class Form1

    ' جملة الربط
    Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Code.accdb")

    Dim da As New OleDbDataAdapter ' جدول مصدر المعلومات

    Dim dt As New DataTable        ' مكان التخزين

    Sub Load_Data()
        dt.Clear()
        da = New OleDbDataAdapter("Select * From Table1", con)
        da.Fill(dt)
    End Sub
    Sub save_Data()
        Dim save As New OleDbCommandBuilder(da)
        save.QuotePrefix = "["
        save.QuoteSuffix = "]"
        da.Update(dt)
        dt.AcceptChanges()
    End Sub

    ' جملة تحميل الجدول الي الداتا جريد فيو

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Load_Data()
        DataGridView1.DataSource = dt

    End Sub

    ' مفتاح الاضافة

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        dt.Rows.Add()
        Dim pos As String = dt.Rows.Count - 1
        dt.Rows(pos).Item(1) = TextBox1.Text
        dt.Rows(pos).Item(2) = TextBox2.Text
        dt.Rows(pos).Item(3) = Val(TextBox3.Text)
        ' تستخدم هذا الكود لو مطلوب نكتب التاريخ مع الوقت
        'dt.Rows(pos).Item(4) = DateTimePicker1.Value
        ' تستخد هذا الكود لو مطلوب نكتب التاريخ فقط
        dt.Rows(pos).Item(4) = DateTimePicker1.Value
        dt.Rows(pos).Item(5) = Val(TextBox4.Text)
        dt.Rows(pos).Item(6) = TextBox5.Text


    End Sub


    ' كود عرض السطر اللي واقفين عليه في الداتا جريد فيو في التكست بوكس
    Private Sub DataGridView1_CellClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
        Dim pos As String = BindingContext(dt).Position

        TextBox1.Text = dt.Rows(pos).Item(1)
        TextBox2.Text = dt.Rows(pos).Item(2)
        TextBox3.Text = dt.Rows(pos).Item(3)
        DateTimePicker1.Value = dt.Rows(pos).Item(4)
        TextBox4.Text = dt.Rows(pos).Item(5)
        TextBox5.Text = dt.Rows(pos).Item(6)
    End Sub
    ' كود التعديل
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim pos As String = BindingContext(dt).Position

        dt.Rows(pos).Item(1) = TextBox1.Text
        dt.Rows(pos).Item(2) = TextBox2.Text
        dt.Rows(pos).Item(3) = Val(TextBox3.Text)
        dt.Rows(pos).Item(4) = DateTimePicker1.Value
        dt.Rows(pos).Item(5) = Val(TextBox4.Text)
        dt.Rows(pos).Item(6) = TextBox5.Text


    End Sub
    ' كود الحذف
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        dt.Rows(BindingContext(dt).Position).Delete()

    End Sub
    ' كود البحث عن الاسم
    Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged

        dt.Clear()
        da = New OleDbDataAdapter("Select * From Table1 where Name Like'%" + TextBox6.Text.Trim + "%'", con)
        da.Fill(dt)

    End Sub
    '' كود البحث عن العنوان
    Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged
        dt.Clear()
        da = New OleDbDataAdapter("Select * From Table1 where Address Like '%" + TextBox7.Text.Trim + "%'", con)
        da.Fill(dt)
    End Sub
    ' كود البحث عن رقم  التليفون
    Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged
        dt.Clear()
        da = New OleDbDataAdapter("Select * From Table1 where Telephone Like '%" + TextBox8.Text.Trim + "%'", con)
        da.Fill(dt)
    End Sub

    ' كود البحث عن  ألتاريخ
    Private Sub DateTimePicker2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker2.ValueChanged
        dt.Clear()
        da = New OleDbDataAdapter("Select * From Table1 where Date = #" + DateTimePicker2.Text + "#", con)
        da.Fill(dt)
    End Sub

    ' كود البحث عن  المرتب

    Private Sub TextBox10_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox10.TextChanged

        dt.Clear()
        da = New OleDbDataAdapter("Select * From Table1 where Salary =" & Val(TextBox10.Text), con)
        da.Fill(dt)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        DateTimePicker1.Value = Now

    End Sub


    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        save_Data()
    End Sub

End Class
الرد
تم الشكر بواسطة:
#6
(19-05-17, 03:28 PM)alma2الف الف مليون شكر لحضرتككله تمام كده مع فائق الاحترام والشكر كتب :
كود :
Imports System.Data.OleDb

Public Class Form1

   ' جملة الربط
   Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Code.accdb")

   Dim da As New OleDbDataAdapter ' جدول مصدر المعلومات

   Dim dt As New DataTable        ' مكان التخزين

   Sub Load_Data()
       dt.Clear()
       da = New OleDbDataAdapter("Select * From Table1", con)
       da.Fill(dt)
   End Sub
   Sub save_Data()
       Dim save As New OleDbCommandBuilder(da)
       save.QuotePrefix = "["
       save.QuoteSuffix = "]"
       da.Update(dt)
       dt.AcceptChanges()
   End Sub

   ' جملة تحميل الجدول الي الداتا جريد فيو

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Load_Data()
       DataGridView1.DataSource = dt

   End Sub

   ' مفتاح الاضافة

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       dt.Rows.Add()
       Dim pos As String = dt.Rows.Count - 1
       dt.Rows(pos).Item(1) = TextBox1.Text
       dt.Rows(pos).Item(2) = TextBox2.Text
       dt.Rows(pos).Item(3) = Val(TextBox3.Text)
       ' تستخدم هذا الكود لو مطلوب نكتب التاريخ مع الوقت
       'dt.Rows(pos).Item(4) = DateTimePicker1.Value
       ' تستخد هذا الكود لو مطلوب نكتب التاريخ فقط
       dt.Rows(pos).Item(4) = DateTimePicker1.Value
       dt.Rows(pos).Item(5) = Val(TextBox4.Text)
       dt.Rows(pos).Item(6) = TextBox5.Text


   End Sub


   ' كود عرض السطر اللي واقفين عليه في الداتا جريد فيو في التكست بوكس
   Private Sub DataGridView1_CellClick(sender As Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick
       Dim pos As String = BindingContext(dt).Position

       TextBox1.Text = dt.Rows(pos).Item(1)
       TextBox2.Text = dt.Rows(pos).Item(2)
       TextBox3.Text = dt.Rows(pos).Item(3)
       DateTimePicker1.Value = dt.Rows(pos).Item(4)
       TextBox4.Text = dt.Rows(pos).Item(5)
       TextBox5.Text = dt.Rows(pos).Item(6)
   End Sub
   ' كود التعديل
   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

       Dim pos As String = BindingContext(dt).Position

       dt.Rows(pos).Item(1) = TextBox1.Text
       dt.Rows(pos).Item(2) = TextBox2.Text
       dt.Rows(pos).Item(3) = Val(TextBox3.Text)
       dt.Rows(pos).Item(4) = DateTimePicker1.Value
       dt.Rows(pos).Item(5) = Val(TextBox4.Text)
       dt.Rows(pos).Item(6) = TextBox5.Text


   End Sub
   ' كود الحذف
   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       dt.Rows(BindingContext(dt).Position).Delete()

   End Sub
   ' كود البحث عن الاسم
   Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged

       dt.Clear()
       da = New OleDbDataAdapter("Select * From Table1 where Name Like'%" + TextBox6.Text.Trim + "%'", con)
       da.Fill(dt)

   End Sub
   '' كود البحث عن العنوان
   Private Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox7.TextChanged
       dt.Clear()
       da = New OleDbDataAdapter("Select * From Table1 where Address Like '%" + TextBox7.Text.Trim + "%'", con)
       da.Fill(dt)
   End Sub
   ' كود البحث عن رقم  التليفون
   Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged
       dt.Clear()
       da = New OleDbDataAdapter("Select * From Table1 where Telephone Like '%" + TextBox8.Text.Trim + "%'", con)
       da.Fill(dt)
   End Sub

   ' كود البحث عن  ألتاريخ
   Private Sub DateTimePicker2_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker2.ValueChanged
       dt.Clear()
       da = New OleDbDataAdapter("Select * From Table1 where Date = #" + DateTimePicker2.Text + "#", con)
       da.Fill(dt)
   End Sub

   ' كود البحث عن  المرتب

   Private Sub TextBox10_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox10.TextChanged

       dt.Clear()
       da = New OleDbDataAdapter("Select * From Table1 where Salary =" & Val(TextBox10.Text), con)
       da.Fill(dt)
   End Sub

   Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

       TextBox1.Clear()
       TextBox2.Clear()
       TextBox3.Clear()
       TextBox4.Clear()
       TextBox5.Clear()
       DateTimePicker1.Value = Now

   End Sub


   Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
       save_Data()
   End Sub

End Class
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال فني للمحترفين..أرجو المساعدة alziny1 4 180 11-10-21, 12:16 AM
آخر رد: alziny1
  مشكلة في توليد arabic qr code osmana2005 6 4,340 10-10-21, 04:49 PM
آخر رد: mahtawfik
  مشكلة عند تحويل البيانات من الداتاقريدفيو الى الإكسل جيولوجي مبتدئ 3 164 09-10-21, 06:55 PM
آخر رد: ahmed4
  [VB.NET] حل مشكلة (لم يتم اغلاق الاتصال . حالة الاتصال الحالية هي مفتوح) saramustafa182 1 162 07-10-21, 11:32 AM
آخر رد: asemshahen5
  [VB.NET] حل مشكلة (لم يتم اغلاق الاتصال . حالة الاتصال الحالية هي مفتوح) saramustafa182 1 194 06-10-21, 08:33 PM
آخر رد: ابو انس
  [VB.NET] حل مشكلة (لم يتم اغلاق الاتصال . حالة الاتصال الحالية هي مفتوح) saramustafa182 0 112 06-10-21, 07:07 PM
آخر رد: saramustafa182
  [VB.NET] حل مشكلة فتح مشروع قديم ibrahimhuseen828 1 197 06-10-21, 04:42 PM
آخر رد: الماجيك مسعد
  [VB.NET] مشكلة تظهر عند تنصيب فيجوال ستوديو 2019 اباذر 4 3,453 04-10-21, 03:57 PM
آخر رد: Mohammed_khalil
  [سؤال] مشكلة عاجلة saja salahiden 1 183 28-09-21, 02:23 PM
آخر رد: alims
  مشكلة في تحويل كود من #c الي vb.net الماجيك مسعد 6 361 27-09-21, 04:31 PM
آخر رد: الماجيك مسعد

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم