متاسفانه بازه همان خطا را داد
صفحه را کامل آپلود میکنم (ضمیمه)
کد صفحه را هم کامل میذارم.
--- دوستان و اساتید دست به دامنتان، بلوزتان،تی شرت شلوار و... نه البته هر جایی که خواستید به جای 3نقطه بذارید
Imports System.Data.OleDb
Public Class UserAccountForm
Private Sub UserAccountForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
MainForm.UserAccountToolStripMenuItem.Enabled = False
filldgw()
End Sub
'---------------------پرکردن جدول از اطلاعات
Private Sub filldgw()
Dim con As OleDbConnection = New OleDbConnection(cnString)
Dim S2 As String = "SELECT * FROM Users"
Dim ds As New DataSet
Dim objdataadapter As New OleDbDataAdapter(S2, con)
objdataadapter.Fill(ds, "Users")
If con.State = ConnectionState.Closed Then con.Open()
DataGridView1.DataSource = ds
DataGridView1.DataMember = "Users"
End Sub
'-----------------------------update
Public Sub UpdateDataSet()
Dim con As OleDbConnection = New OleDbConnection(cnString)
Dim command As New OleDbCommand
command.Connection = con
command.CommandText = "update Users set PK=@PK , UserID=@UserID ,Password=@Password , where pk = '" & pktxtbx.Text & "'"
command.Parameters.AddWithValue("pk", Trim(pktxtbx.Text))
command.Parameters.AddWithValue("UserID", Trim(usrtxtbox.Text))
command.Parameters.AddWithValue("Password", Trim(passtxtbox.Text))
con.Open()
command.ExecuteNonQuery()
con.Close()
DataGridView1.Refresh()
End Sub
'------------------بستن فرم
Private Sub UserAccountForm_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
MainForm.UserAccountToolStripMenuItem.Enabled = True
End Sub
'-----------------کلید ذخیره
Private Sub btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsave.Click
'Me.DataGridView1.Item(0, Me.DataGridView1.CurrentRow.Index).Value = Me.pktxtbx.Text
'Me.DataGridView1.Item(1, Me.DataGridView1.CurrentRow.Index).Value = Me.usrtxtbox.Text
'Me.DataGridView1.Item(2, Me.DataGridView1.CurrentRow.Index).Value = Me.passtxtbox.Text
'Me.DataGridView1.Item(3, Me.DataGridView1.CurrentRow.Index).Value = Me.adminchkbox.Checked
'Me.DataGridView1.Item(4, Me.DataGridView1.CurrentRow.Index).Value = Me.ADchkbox.Checked
Dim con As OleDbConnection = New OleDbConnection(cnString)
Dim command As New OleDbCommand
command.Connection = con
command.CommandText = "update Users set PK=@PK , UserID=@UserID ,Password=@Password , where pk = '" & pktxtbx.Text & "'"
command.Parameters.AddWithValue("@pk", Trim(pktxtbx.Text))
command.Parameters.AddWithValue("@UserID", Trim(usrtxtbox.Text))
command.Parameters.AddWithValue("@Password", Trim(passtxtbox.Text))
command.Parameters.AddWithValue("@Password", Trim(passtxtbox.Text))
con.Open()
command.ExecuteNonQuery()
con.Close()
DataGridView1.Refresh()
End Sub
'-----------------کلید لغو
Private Sub btncancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncancel.Click
Gropbxsave.Enabled = False
CancelToolStripMenuItem.Visible = False
End Sub
'-----------------پیغام سورت
Private Sub DataGridView1_ColumnHeaderMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArg s) Handles DataGridView1.ColumnHeaderMouseClick
MessageBox.Show("مرتب سازی انجام گردید.")
End Sub
'----------------فراخوانی و بازسازی اطلاعات ادیتور گروپ
Private Sub DataGridView1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGridView1.MouseUp
Mov2edit()
End Sub
Private Sub DataGridView1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyUp
Mov2edit()
End Sub
Private Sub DataGridView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGridView1.DoubleClick
EnabEdit()
End Sub
Private Sub EditToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditToolStripMenuItem.Click
EnabEdit()
End Sub
Private Sub CancelToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CancelToolStripMenuItem.Click
desEdit()
End Sub
'----------------فعال/غیرفعال سازی ادیتور گروپ
Private Sub EnabEdit()
Gropbxsave.Enabled = True
CancelToolStripMenuItem.Visible = True
ToolStripSeparator2.Visible = True
End Sub
Private Sub desEdit()
Gropbxsave.Enabled = False
CancelToolStripMenuItem.Visible = False
ToolStripSeparator2.Visible = False
End Sub
'----------------انتقال اطلاعات به ادیتور گروپ
Private Sub Mov2edit()
Dim crindx As Integer
crindx = Me.DataGridView1.CurrentRow.Index
If crindx < 0 Then
Exit Sub
End If
Me.pktxtbx.Text = Me.DataGridView1.Item(0, crindx).Value
Me.usrtxtbox.Text = Me.DataGridView1.Item(1, crindx).Value
Me.passtxtbox.Text = Me.DataGridView1.Item(2, crindx).Value
Me.adminchkbox.Checked = Me.DataGridView1.Item(3, crindx).Value
Me.ADchkbox.Checked = Me.DataGridView1.Item(4, crindx).Value
End Sub
End Class