(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
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
' جملة الربط
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
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
(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
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