مساعدة

الاخوة الاعزاء ارجو المساعدة

لقد استخدمت هذا الاجراء لتعديل البيانات وتحديثها

Sub a()

Try

myCn.Open()

myda.Fill(myDS, "vItem")

myDS.Tables("vItem").Rows(1)("name_i") = "rrr"

myDS.Tables("vItem").Rows(1)("v1") = "1"

myDS.Tables("vItem").Rows(1)("v2") = "1"

myDS.Tables("vItem").Rows(1)("v3") = "1"

myDS.Tables("vItem").Rows(1)("v4") = "1"

If myDS.HasChanges Then

Dim AffectedDS As DataSet = myDS.GetChanges

Dim ComBuilder As New OleDb.OleDbCommandBuilder(myda)

myda.UpdateCommand = ComBuilder.GetUpdateCommand

myda.Update(AffectedDS, "vItem")

End If

Catch e1 As OleDb.OleDbException

MessageBox.Show(e1.Message)

Finally

myCn.Close()

End Try

End Sub

ولكن تفشل اللعملية

وتظهر هذه الرسالة

Dynamic SQL generation for the UpdateCommand is not supported against a SelectCommand that does not return any key column information.

فما الحل

شكرا