تحديث قاعدة البيانات

أخي حازم جرب هذا الكود فهو الصحيح

Try
            Dim constr As String = "workstation id=HASAN;packet size=4096;integrated security=SSPI;data source=HASAN;persist security info=False;initial catalog=Salary"
            Dim mycon As New SqlClient.SqlConnection(constr)
            Dim mycom As New SqlClient.SqlCommand
            Dim myset As New DataSet
            Dim myadpt As New SqlClient.SqlDataAdapter

            mycon.Open()
            mycom.CommandText = "select * from hazemo"
            mycom.Connection = mycon
            myadpt.SelectCommand = mycom
            myadpt.SelectCommand.ExecuteNonQuery()
            myadpt.Fill(myset, "hazemo")

            mycom.CommandText = "INSERT INTO hazemo (FN,LN) VALUES ('" + TextBox1.Text + "','" + TextBox2.Text + "')"
            mycom.Connection = mycon
            myadpt.InsertCommand = mycom
            myadpt.InsertCommand.ExecuteNonQuery()

            myadpt.Update(myset, "hazemo")
            MessageBox.Show("OK")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

ألف شكر يا أخ حسن لكن أليس من المفروض أن يقوم ال Adapter أن يقوم بتنفيذ ال Command

تلقائيا علي أساس أنه يستخدمه كـ Parameter ويكون لا داعي لهذه الجمله :

myadpt.SelectCommand.ExecuteNonQuery()

اخي حازم لقد جربت العديد من المحاولات ولكنها باءت بالفشل ولم يتم ارسال البيانات لقاعدة البيانات الا بعد استخدام executenonequery

والله اعلم

ألف شكر يا عم حسن تعبتك معايا ,

أليس من المفروض أن يقوم هذا الكود بالاضافه الي الجدول الموجود في ال Dataset فقط ولا يقوم بتحديث قاعدة البيانات :

Dim constr As String = "Integrated Security=SSPI;Initial Catalog=Northwind;Data Source=."
Dim mycon As New SqlConnection(constr)
Dim mycom As New SqlCommand()
Dim myset As New DataSet()
Dim myadpt As New SqlDataAdapter()

mycon.Open()

mycom.CommandText = "select * from hazemo"
mycom.Connection = mycon
myadpt.SelectCommand = mycom
myadpt.SelectCommand.ExecuteNonQuery()
myadpt.Fill(myset, "hazemo")

mycom.CommandText = "INSERT INTO hazemo (FN,LN) VALUES ('" & TextBox1.Text & "','" & TextBox2.Text & "')"
mycom.Connection = mycon
myadpt.InsertCommand = mycom
myadpt.InsertCommand.ExecuteNonQuery()

ولكي نطبق التعديل نقوم باضافة السطر التالي :

myadpt.Update(myset, "hazemo")

فهمتوني ولا لأ ؟؟؟

يا جماعه حد يعبرني أو يرد عليا .... :( :( :( !!!

حد يديني مثال لعمل تعديلات علي قادعة بيانات مباشره بدون Dataset مره وبالـ Dataset مره أخري يعني بطرقه أخري مثال لعمل تعديلات علي قاعدة البيانات في البيئه المنفصله مره والبيئه المتصله مره أخري........؟؟؟

أرجوكم أنا حيران جدا.......... :( :( :( ,,,

ايه يا جماعه خليكوا معايا شويه :( ,

التعامل مع الـ Dataset هل يتم بجمل الـ SQL ولا لأ ؟؟؟

حد يرد علياااااااا....... :( :( :( ,,,

اولا لكي يقوم ال SqlDataAdapter بالتحديث Update لابد من وجد عمود Primary Key في الجدول و جملة ال Select لتصبح كالامثلة التالية

Select id,fn,ln From MyTable
او
select * from MyTable

ثانيا لست بحاجة الي

myadpt.SelectCommand.ExecuteNonQuery()

لان طريقتي الfill و ال update في ال SqlDataAdapter تقوم بفتح الاتصال و تنفذ الاوامر بنفسها

ثالثا لكي يتم التنفيذ لابد من وجود UpdateCommand صالح للاستخدام و يستحسن استخدام CommandBuilder لتوليد هذا الامر كالتالي

Dim cb as  new SqlCommandBuilder(myadpt)
myadpt.UpdateCommand = cb.GetUpdateCommand() ' للتعديل
myadpt.InsertCommand = cb.GetInsertCommand() 'للاضافة
myadpt.DeleteCommand = cb.GetDeleteCommand() 'للحذف
myadpt.Update(ds,"MyTable")

ربنا يكرمك يا ريت تحط مثال علشان تسهل العمليه لأني تعبت بسبب الموضوع ده ,,,

شكرا على المعلومة المفيدة