Overhere
جمعه 03 آبان 1392, 13:16 عصر
سلام دوستان من از این کد برای اضافه کردن datarow استفاده میکنم:
Dim cmm As New OleDb.OleDbCommand
Dim con As New OleDb.OleDbConnection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Sandman\Desktop\db.mdb"
con.Open()
MsgBox("db is now connect")
Dim i As Integer
Dim name, lastname As String
Dim rw As DataRow
rw = DbDataSet.Tables(0).NewRow()
name = TextBox3.Text
lastname = TextBox4.Text
rw.Item("name") = name
rw.Item("lastname") = lastname
Try
DbDataSet.Tables(0).Rows.Add(rw)
i = Table1TableAdapter.Update(DbDataSet)
MessageBox.Show("Added")
Catch ex As Exception
MsgBox(ex.Message)
End Try
و این هم برای Remove :
Dim cmm As New OleDb.OleDbCommand
Dim con As New OleDb.OleDbConnection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Sandman\Desktop\db.mdb"
con.Open()
MsgBox("db is now connect")
Dim i As Integer
Dim name, lastname As String
Dim rw As DataRow
rw = DbDataSet.Tables(0).NewRow()
Name = TextBox1.Text
lastname = TextBox2.Text
rw.Item("name") = Name
rw.Item("lastname") = lastname
Try
DbDataSet.Table1.Rows.Remove(rw)
i = Table1TableAdapter.Update(DbDataSet)
MessageBox.Show("Removed")
Catch ex As Exception
MsgBox(ex.Message)
End Try
Add میکنه ولی Remove نمیکنه.....!مشکل از چیه?ارورش هم اینه:
The given DataRow is not in the current DataRowCollection.
Dim cmm As New OleDb.OleDbCommand
Dim con As New OleDb.OleDbConnection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Sandman\Desktop\db.mdb"
con.Open()
MsgBox("db is now connect")
Dim i As Integer
Dim name, lastname As String
Dim rw As DataRow
rw = DbDataSet.Tables(0).NewRow()
name = TextBox3.Text
lastname = TextBox4.Text
rw.Item("name") = name
rw.Item("lastname") = lastname
Try
DbDataSet.Tables(0).Rows.Add(rw)
i = Table1TableAdapter.Update(DbDataSet)
MessageBox.Show("Added")
Catch ex As Exception
MsgBox(ex.Message)
End Try
و این هم برای Remove :
Dim cmm As New OleDb.OleDbCommand
Dim con As New OleDb.OleDbConnection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Sandman\Desktop\db.mdb"
con.Open()
MsgBox("db is now connect")
Dim i As Integer
Dim name, lastname As String
Dim rw As DataRow
rw = DbDataSet.Tables(0).NewRow()
Name = TextBox1.Text
lastname = TextBox2.Text
rw.Item("name") = Name
rw.Item("lastname") = lastname
Try
DbDataSet.Table1.Rows.Remove(rw)
i = Table1TableAdapter.Update(DbDataSet)
MessageBox.Show("Removed")
Catch ex As Exception
MsgBox(ex.Message)
End Try
Add میکنه ولی Remove نمیکنه.....!مشکل از چیه?ارورش هم اینه:
The given DataRow is not in the current DataRowCollection.