مساعدة في حفظ البيانات من الفورم الى قاعدة البيا

ما هي جملة update المستخدمة؟

حتى اكون اكثر دقة في السؤال هذا هو الكود في زر حفظ

Private Sub b1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b1.Click

passcon.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\db\au.mdb;"

Try

passcon.Open()

Catch ex As Exception

MessageBox.Show(ex.Message)

End Try

Dim myds As New DataSet

Dim sql As String = "select * from pass"

Try

Dim myda As New OleDb.OleDbDataAdapter(sql, passcon)

myda.Fill(myds, "pass")

myds.Tables("pass").Rows.Add(New Object() {t1.Text, t2.Text, t3.Text, True, False, False, False, False, False, False, False, False, False, False})

If myds.HasChanges Then

Dim aff As DataSet = myds.GetChanges

Dim combuilder As New OleDbCommandBuilder(myda)

myda.InsertCommand = combuilder.GetInsertCommand

myda.Update(aff, "pass")

End If

Catch e1 As OleDbException

MessageBox.Show(e1.Message)

End Try

Close()

End Sub

علما بان النموذج يحتوي على t1 , t2 ,23

وقاعدة البيانات في الaccessتحتوي على العناصر

username string,password string,name string

و 11 عنصر كلهم boolean

اخواني ارجوا الرد بشكل عام وليس على سؤالي

يعني نموذج فيه textbox2, textbox1

و زر اضافة عندما اضغطه يضاف ال textbox2, textbox1

الى قاعدة بيانات بالأكسس

جرب الكود بهذه الطريقة

Private Sub b1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles b1.Click
passcon.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\db\au.mdb;"
Try
passcon.Open()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

Dim myds As New DataSet
Dim sql As String = "select * from pass"


Try
Dim myda As New OleDb.OleDbDataAdapter(sql, passcon)
Dim combuilder As New OleDbCommandBuilder(myda)

myda.Fill(myds, "pass")

myds.Tables("pass").Rows.Add(New Object() {t1.Text, t2.Text, t3.Text, True, False, False, False, False, False, False, False, False, False, False})

myda.Update(aff, "pass")

End If
Catch e1 As OleDbException
MessageBox.Show(e1.Message)
End Try

Close

الاخ محمد

اشكر لك تفاعلك وتعبك معاي لكن بامسك فيك واغثك شوي

هل من الممكن تعطيني الكود (بعيدا عن سؤالي) خاص بنموذج مثل اللي سألت عنه في المشاركة السابقة

الكود تقريبا مشابه للكود الذى كتبه

لكن للتسهيل بدلا من اضافة سجل من خلال مصفوفة، اجعل الكود يكون بهذا الشكل

       
        Dim dr As DataRow = ds.Tables(0).NewRow()
        dr("FirstName") = TextBox2.Text
        dr("lastname") = TextBox3.Text
        dr("Title") = TextBox4.Text
        ds.Tables(0).Rows.Add(dr)

اخي محمد

انا ماجربت الكود

لكن حتى لو ما نفع

جزاك الله خير الجزاء على صبرك على اخوانك ووفقك وزادك علما ينفع به المسلمين