• 0
shayma'a

working with datagird

سؤال

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

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

لقد قمت بعمل برنامج لتعديل محتويات 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

ماذا افعل

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

5 إجابة على هذا السؤال .

  • 0

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

[email protected]

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

[email protected]

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي الفاضل ..

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

لكن اعترض على جملة تعريف 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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .