الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

working with datagird

مغلق
بدأه shayma'a في 12 يونيو 2003 · 5 رد · 2,809 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

الاخوه الاكارم في المنتدى

لقد قمت بعمل برنامج لتعديل محتويات datagrid

قمت بعمل fill

من datset معرفه at runtime

ومن ثم اريد عمل update

الكود كالتالي

Dim sqlconn As New SqlConnection("Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Northwind")
    Dim SQLDA As New SqlDataAdapter("SELECT * FROM PRODUCTS", sqlconn)

   Dim dsP As New DataSet()

SQLDA.Fill(dsP)
        DataGrid1.DataSource = dsP.Tables(0)

اما ال update code

SQLDA.Update(dsP, "Products

لكن لم تنجح عملية ال update !!!!!!!!!!!!!!!1

ماذا افعل

#2

يتوجب عليك استيراد أمر التحديث و الاضافة لمهيء البيانات من خلال باني الأوامر

kal_judaia@hotmail.com

#3

aljudaia، هل ممكن مثال لو سمحت؟

#4

أخ روكا أنت تأمر

اتمنى أن يكون المثال واضحا

Dim daPerson As New OleDb.OleDbDataAdapter(sql, con)

        Dim cmdBuilder As New OleDb.OleDbCommandBuilder(daPerson)

        daPerson.UpdateCommand = cmdBuilder.GetUpdateCommand

        Myds.Tables("Person").Rows.Add(New Object() {Nothing, "Agg"})

        Try

            daPerson.Update(Myds, "Person")

        Catch e1 As Exception

            MessageBox.Show(e1.Message)

        End Try

kal_judaia@hotmail.com

#5

اخي الفاضل ..

قمت بكتابة المثال السابق

لكن اعترض على جملة تعريف daPerson

لذلك لم استطع اكمال المثال

سوف اكتب لك ال exception part الذي يدخله ولا ينفذ جملة ال update

Catch ex As Exception

If dsP.HasErrors Then

Dim table As DataTable

For Each table In dsP.Tables

If table.HasErrors Then

Dim row As DataRow

For Each row In table.Rows

If row.HasErrors Then

MessageBox.Show("Row: " & row("ProductID"), row.RowError) Dim column As DataColumn

For Each column In row.GetColumnsInError

MessageBox.Show(column.ColumnName, "Error in this column")

Next

row.ClearErrors()

row.RejectChanges()

End If

Next

End If

Next

End If

End Try

#6

هذا الكود مجرب

Dim Myds As New DataSet()

        Dim con As New OleDb.OleDbConnection()

        Dim sql As String = "select id,name,ename from person"

        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

         "Data Source=C:TelDir.mdb;Persist Security Info=False"

        Try

            Dim daPerson As New OleDb.OleDbDataAdapter(sql, con)

            daPerson.Fill(Myds, "Person")

            Dim cmdBuilder As New OleDb.OleDbCommandBuilder(daPerson)

            daPerson.UpdateCommand = cmdBuilder.GetUpdateCommand

            Myds.Tables("Person").Rows.Add(New Object() {Nothing, "Agg"})

            Try

                daPerson.Update(Myds, "Person")

            Catch e1 As Exception

                MessageBox.Show(e1.Message)

            End Try

هذا الموضوع مغلق.

مواضيع مشابهة