به روز رسانی از طریق DataTable

[gharibeh223]

سلام .

برای به روز رسانی جدول از روش ارسال DataTable استفاده می کنم .
کدش به شکل زیر همه چیز درست کار می کنه به جز عملیات حذفش .
خیلی برام جای سواله !!
از راهنمایی دوستان ممنون .

Dim ado As New OleDb.OleDbDataAdapter("", Cn)

Dim sqlCommandselect = New OleDb.OleDbCommand("SELECT PersonMore.Id,PersonMore.IdPerson, PersonMore.IdMore,More.Name, PersonMore.Name, PersonMore.Dis FROM PersonMore inner join More on (More.Id=PersonMore.IdMore)")
Dim sqlCommandupdate = New OleDb.OleDbCommand("UpDate PersonMore set IdPerson=@IdPerson , IdMore=@IdMore, Name=@Name, Dis=@Dis where Id = @Id")
Dim sqlCommandinsert = New OleDb.OleDbCommand("Insert into PersonMore( IdPerson, IdMore, Name, Dis) values( @IdPerson, @IdMore, @Name,@Dis)")
Dim sqlCommanddelete = New OleDb.OleDbCommand("DELETE FROM PersonMore where Id = @Id")

sqlCommandselect.Connection = Cn
sqlCommandupdate.Connection = Cn
sqlCommandinsert.Connection = Cn
sqlCommanddelete.Connection = Cn

sqlCommandupdate.Parameters.Add("@IdPerson", OleDb.OleDbType.Integer).Value = Val(TxtId.Text)
sqlCommandupdate.Parameters.Add("@IdMore", OleDb.OleDbType.Integer, 2, "IdMore")
sqlCommandupdate.Parameters.Add("@Name", OleDb.OleDbType.VarChar, 100, "Name")
sqlCommandupdate.Parameters.Add("@Dis", OleDb.OleDbType.VarChar, 100, "Dis")
sqlCommandupdate.Parameters.Add("@Id", OleDb.OleDbType.Integer, 2, "Id")

sqlCommandinsert.Parameters.Add("@IdPerson", OleDb.OleDbType.Integer).Value = Val(TxtId.Text)
sqlCommandinsert.Parameters.Add("@IdMore", OleDb.OleDbType.Integer, 2, "IdMore")
sqlCommandinsert.Parameters.Add("@Name", OleDb.OleDbType.VarChar, 100, "Name")
sqlCommandinsert.Parameters.Add("@Dis", OleDb.OleDbType.VarChar, 100, "Dis")

sqlCommanddelete.Parameters.Add("@Id", OleDb.OleDbType.Integer, 2, "Id")

ado.SelectCommand = sqlCommandselect
ado.UpdateCommand = sqlCommandupdate
ado.InsertCommand = sqlCommandinsert
ado.DeleteCommand = sqlCommanddelete

ado.Update(_dt)

[gharibeh223]

مشکل حل شد .
مشکل در نحوه delete بود .