مشكلة في كود البحث فرجاء المساعدة - khaled12345 - 18-05-17
السلام عليكم الاخوة الاعزاء
الكود المرفق اتحل من حيث الاضافة والتعديل ولكن خرب من حيث البحث
الرجاء المساعدة ياشباب
مع فائق الشكر
RE: مشكلة في كود البحث فرجاء المساعدة - khaled12345 - 18-05-17
(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
RE: مشكلة في كود البحث فرجاء المساعدة - alma2 - 19-05-17
وضح أكثر يعني ايه عدم وجود ربط بين الداتا جريد فيو والتكست بوكس
التعديل والحفظ والحذف والبحث كله شغال
RE: مشكلة في كود البحث فرجاء المساعدة - khaled12345 - 19-05-17
(19-05-17, 11:30 AM)alma2 كتب : وضح أكثر يعني ايه عدم وجود ربط بين الداتا جريد فيو والتكست بوكس
التعديل والحفظ والحذف والبحث كله شغال
السلام عليكم ورحمة الله أخي الكريم
يعني لما اقف علي اي سطر في الداتا جريد فيو المفروض
ان تظهر المعلومات الخاصة بهذ السطر في التكست بوكس
التي في الاسفل
RE: مشكلة في كود البحث فرجاء المساعدة - alma2 - 19-05-17
كود :
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
RE: مشكلة في كود البحث فرجاء المساعدة - khaled12345 - 19-05-17
(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
|