PDA

View Full Version : مشکل در حذف از دیتابیس



Overhere
جمعه 03 آبان 1392, 12: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.

ali.hojjati
شنبه 04 آبان 1392, 08:03 صبح
از remove استفاده نکن از delete استفاده کن

Overhere
شنبه 04 آبان 1392, 13:28 عصر
از remove استفاده نکن از delete استفاده کن

منظورتون چیه؟آخه delete نداره

میشه اصلاح شدشو بگید؟

ali.hojjati
شنبه 04 آبان 1392, 13:42 عصر
datatable.rows.deleteat(rowid)