الكود كان شغال لما كنت ماخذ da = New OleDbDataAdapter("select * from table2", con) هاي
ولكن انا غيرت بلكود وحدث خطا
Imports System.Data.OleDb
Imports Toast_Notification
Imports Bunifu.Framework
Public Class Form13
Dim Notification As Notification = New Notification()
Dim con As New OleDbConnection("provider=microsoft.ACE.OLEDB.12.0; data source=database.accdb")
Dim da As New OleDbDataAdapter()
Dim dt As New DataTable
Dim table As New DataTable
Function load_date()
Dim cmd As New OleDbCommand("SELECT [رقم الايدي], m, [تاريخ تعين الدرس], [الساعه], [عدد الدروس], [حضور/غياب] FROM table2 WHERE m=@m ", con)
cmd.Parameters.Add(New OleDbParameter("@m", OleDbType.VarChar)).Value = Label1.Text
Dim da As New OleDbDataAdapter(cmd)
Dim dt As New DataTable
da.Fill(dt)
Return dt
End Function
Sub save_date()
Dim save As New OleDbCommandBuilder(da)
save.QuotePrefix = "["
save.QuoteSuffix = "]"
da.Update(dt)
dt.AcceptChanges()
End Sub
Private Sub Form13_Load(sender As Object, e As EventArgs) Handles MyBase.Load
DataGridView1.DataSource = load_date()
DataGridView1.Refresh()
Me.DataGridView1.Columns(1).HeaderText = "اسم المشترك"
End Sub
Private Sub DataGridView1_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles DataGridView1.MouseDoubleClick
End Sub
Private Sub DataGridView1_MouseClick(sender As Object, e As MouseEventArgs) Handles DataGridView1.MouseClick
Dim pos As String = BindingContext(dt).Position
TextBox1.Text = dt.Rows(pos).Item(1).ToString()
MaskedTextBox1.Text = dt.Rows(pos).Item(2).ToString()
TextBox3.Text = dt.Rows(pos).Item(3).ToString()
TextBox4.Text = dt.Rows(pos).Item(4).ToString()
If dt.Rows(pos).Item(2).ToString() = "" Then
MaskedTextBox1.Text = ""
Exit Sub
End If
MaskedTextBox1.Text = Convert.ToDateTime(dt.Rows(pos).Item(2).ToString()).ToString("yyyy/MM/dd")
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If (String.IsNullOrWhiteSpace(TextBox1.Text) Or String.IsNullOrWhiteSpace(MaskedTextBox1.Text) Or String.IsNullOrWhiteSpace(TextBox3.Text) Or String.IsNullOrWhiteSpace(TextBox4.Text)) Then
Notification.Show_Noti(3000, False, "يجب ملئ جميع الخانات", My.Resources.Warning_50, Color.FromArgb(54, 59, 63), Color.FromArgb(222, 223, 225), 80)
Return
End If
Dim pos1 As String = BindingContext(dt).Position
dt.Rows(pos1).Item(1) = TextBox1.Text
dt.Rows(pos1).Item(2) = MaskedTextBox1.Text
dt.Rows(pos1).Item(3) = TextBox3.Text
dt.Rows(pos1).Item(4) = TextBox4.Text
Notification.Show_Noti(3000, False, "تم التعديل بنجاح", My.Resources.suc_50, Color.FromArgb(54, 59, 63), Color.FromArgb(222, 223, 225), 80)
save_date()
load_date()
End Sub
End Class
ما هو الخطاء
بلفورم 5 اضغط دبل كليك على الرو ليضهر لك فورم وهناك المشكله هاذا هو مشروعي
بعرف انو راح تقلويلب المشكله ب dt وda
ولكن عدلتهن وبقت المشطله نفس الاشي
Imports System.Data.OleDb
Public Class Form8
Dim con As New OleDbConnection("provider=microsoft.ACE.OLEDB.12.0; data source=database.accdb")
Dim da As New OleDbDataAdapter()
Dim dt As New DataTable
Dim table As New DataTable
Function load_date()
Dim cmd As New OleDbCommand("SELECT [رقم الايدي], m, [تاريخ تعين الدرس], [الساعه], [عدد الدروس], [حضور/غياب] FROM table2 WHERE m=@m ", con)
cmd.Parameters.Add(New OleDbParameter("@m", OleDbType.VarChar)).Value = Label1.Text
Dim da As New OleDbDataAdapter(cmd)
Dim dt As New DataTable
da.Fill(dt)
Return dt
End Function
Sub save_date()
Dim save As New OleDbCommandBuilder(da)
save.QuotePrefix = "["
save.QuoteSuffix = "]"
da.Update(dt)
dt.AcceptChanges()
End Sub
Private Sub Form8_Load(sender As Object, e As EventArgs) Handles MyBase.Load
DataGridView1.DataSource = load_date()
DataGridView1.Refresh()
Me.DataGridView1.Columns(1).HeaderText = "اسم المشترك"
End Sub
Private Sub DataGridView1_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles DataGridView1.MouseDoubleClick
End Sub
Private Sub DataGridView1_MouseClick(sender As Object, e As MouseEventArgs) Handles DataGridView1.MouseClick
Dim pos As String = BindingContext(dt).Position
TextBox1.Text = dt.Rows(pos).Item(1).ToString()
MaskedTextBox1.Text = dt.Rows(pos).Item(2).ToString()
TextBox3.Text = dt.Rows(pos).Item(3).ToString()
TextBox4.Text = dt.Rows(pos).Item(4).ToString()
If dt.Rows(pos).Item(2).ToString() = "" Then
MaskedTextBox1.Text = ""
Exit Sub
End If
MaskedTextBox1.Text = Convert.ToDateTime(dt.Rows(pos).Item(2).ToString()).ToString("yyyy/MM/dd")
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If (String.IsNullOrWhiteSpace(TextBox1.Text) Or String.IsNullOrWhiteSpace(MaskedTextBox1.Text) Or String.IsNullOrWhiteSpace(TextBox3.Text) Or String.IsNullOrWhiteSpace(TextBox4.Text)) Then
Return
End If
Dim pos1 As String = BindingContext(dt).Position
dt.Rows(pos1).Item(1) = TextBox1.Text
dt.Rows(pos1).Item(2) = MaskedTextBox1.Text
dt.Rows(pos1).Item(3) = TextBox3.Text
dt.Rows(pos1).Item(4) = TextBox4.Text
save_date()
load_date()
End Sub
End Class
هاذا الكود بعد التعديل وضلت نفس المشكله ما هو السبب
ولكن انا غيرت بلكود وحدث خطا
Imports System.Data.OleDb
Imports Toast_Notification
Imports Bunifu.Framework
Public Class Form13
Dim Notification As Notification = New Notification()
Dim con As New OleDbConnection("provider=microsoft.ACE.OLEDB.12.0; data source=database.accdb")
Dim da As New OleDbDataAdapter()
Dim dt As New DataTable
Dim table As New DataTable
Function load_date()
Dim cmd As New OleDbCommand("SELECT [رقم الايدي], m, [تاريخ تعين الدرس], [الساعه], [عدد الدروس], [حضور/غياب] FROM table2 WHERE m=@m ", con)
cmd.Parameters.Add(New OleDbParameter("@m", OleDbType.VarChar)).Value = Label1.Text
Dim da As New OleDbDataAdapter(cmd)
Dim dt As New DataTable
da.Fill(dt)
Return dt
End Function
Sub save_date()
Dim save As New OleDbCommandBuilder(da)
save.QuotePrefix = "["
save.QuoteSuffix = "]"
da.Update(dt)
dt.AcceptChanges()
End Sub
Private Sub Form13_Load(sender As Object, e As EventArgs) Handles MyBase.Load
DataGridView1.DataSource = load_date()
DataGridView1.Refresh()
Me.DataGridView1.Columns(1).HeaderText = "اسم المشترك"
End Sub
Private Sub DataGridView1_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles DataGridView1.MouseDoubleClick
End Sub
Private Sub DataGridView1_MouseClick(sender As Object, e As MouseEventArgs) Handles DataGridView1.MouseClick
Dim pos As String = BindingContext(dt).Position
TextBox1.Text = dt.Rows(pos).Item(1).ToString()
MaskedTextBox1.Text = dt.Rows(pos).Item(2).ToString()
TextBox3.Text = dt.Rows(pos).Item(3).ToString()
TextBox4.Text = dt.Rows(pos).Item(4).ToString()
If dt.Rows(pos).Item(2).ToString() = "" Then
MaskedTextBox1.Text = ""
Exit Sub
End If
MaskedTextBox1.Text = Convert.ToDateTime(dt.Rows(pos).Item(2).ToString()).ToString("yyyy/MM/dd")
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If (String.IsNullOrWhiteSpace(TextBox1.Text) Or String.IsNullOrWhiteSpace(MaskedTextBox1.Text) Or String.IsNullOrWhiteSpace(TextBox3.Text) Or String.IsNullOrWhiteSpace(TextBox4.Text)) Then
Notification.Show_Noti(3000, False, "يجب ملئ جميع الخانات", My.Resources.Warning_50, Color.FromArgb(54, 59, 63), Color.FromArgb(222, 223, 225), 80)
Return
End If
Dim pos1 As String = BindingContext(dt).Position
dt.Rows(pos1).Item(1) = TextBox1.Text
dt.Rows(pos1).Item(2) = MaskedTextBox1.Text
dt.Rows(pos1).Item(3) = TextBox3.Text
dt.Rows(pos1).Item(4) = TextBox4.Text
Notification.Show_Noti(3000, False, "تم التعديل بنجاح", My.Resources.suc_50, Color.FromArgb(54, 59, 63), Color.FromArgb(222, 223, 225), 80)
save_date()
load_date()
End Sub
End Class
ما هو الخطاء
بلفورم 5 اضغط دبل كليك على الرو ليضهر لك فورم وهناك المشكله هاذا هو مشروعي
بعرف انو راح تقلويلب المشكله ب dt وda
ولكن عدلتهن وبقت المشطله نفس الاشي
Imports System.Data.OleDb
Public Class Form8
Dim con As New OleDbConnection("provider=microsoft.ACE.OLEDB.12.0; data source=database.accdb")
Dim da As New OleDbDataAdapter()
Dim dt As New DataTable
Dim table As New DataTable
Function load_date()
Dim cmd As New OleDbCommand("SELECT [رقم الايدي], m, [تاريخ تعين الدرس], [الساعه], [عدد الدروس], [حضور/غياب] FROM table2 WHERE m=@m ", con)
cmd.Parameters.Add(New OleDbParameter("@m", OleDbType.VarChar)).Value = Label1.Text
Dim da As New OleDbDataAdapter(cmd)
Dim dt As New DataTable
da.Fill(dt)
Return dt
End Function
Sub save_date()
Dim save As New OleDbCommandBuilder(da)
save.QuotePrefix = "["
save.QuoteSuffix = "]"
da.Update(dt)
dt.AcceptChanges()
End Sub
Private Sub Form8_Load(sender As Object, e As EventArgs) Handles MyBase.Load
DataGridView1.DataSource = load_date()
DataGridView1.Refresh()
Me.DataGridView1.Columns(1).HeaderText = "اسم المشترك"
End Sub
Private Sub DataGridView1_MouseDoubleClick(sender As Object, e As MouseEventArgs) Handles DataGridView1.MouseDoubleClick
End Sub
Private Sub DataGridView1_MouseClick(sender As Object, e As MouseEventArgs) Handles DataGridView1.MouseClick
Dim pos As String = BindingContext(dt).Position
TextBox1.Text = dt.Rows(pos).Item(1).ToString()
MaskedTextBox1.Text = dt.Rows(pos).Item(2).ToString()
TextBox3.Text = dt.Rows(pos).Item(3).ToString()
TextBox4.Text = dt.Rows(pos).Item(4).ToString()
If dt.Rows(pos).Item(2).ToString() = "" Then
MaskedTextBox1.Text = ""
Exit Sub
End If
MaskedTextBox1.Text = Convert.ToDateTime(dt.Rows(pos).Item(2).ToString()).ToString("yyyy/MM/dd")
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If (String.IsNullOrWhiteSpace(TextBox1.Text) Or String.IsNullOrWhiteSpace(MaskedTextBox1.Text) Or String.IsNullOrWhiteSpace(TextBox3.Text) Or String.IsNullOrWhiteSpace(TextBox4.Text)) Then
Return
End If
Dim pos1 As String = BindingContext(dt).Position
dt.Rows(pos1).Item(1) = TextBox1.Text
dt.Rows(pos1).Item(2) = MaskedTextBox1.Text
dt.Rows(pos1).Item(3) = TextBox3.Text
dt.Rows(pos1).Item(4) = TextBox4.Text
save_date()
load_date()
End Sub
End Class
هاذا الكود بعد التعديل وضلت نفس المشكله ما هو السبب