منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

اخواني الافاضل , انا الان قمت بجلب البيانات من قاعدة البيانات ووضعها فى الداتا جريد فيو و تم كل شئ بنجاح الحمد لله

و لكن الان اريد عمل تعديلات على تلك البيانات بواسطة الداتا جريد فيو بحيث إني اعدل من الفورم نفسه و إعتماد التعديلات

ياريت تشرحولي الطريقة

انا استخدم هذا الجود لجلب البيانات ووضعها فى الداتا جريد فيو

PHP كود :

Try
            Dim saveinto As New OleDb.OleDbCommand
            Dim constr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Application.StartupPath & "\db.mdb"
            Dim conn As New OleDb.OleDbConnection(constr)
            Dim DataSet1 As New DataSet
            Dim SQLstr As String
            SQLstr = "SELECT * From factor where factor_name=('" & textbox1.text & "')"
            conn.Open()
            Dim dataadapter1 As New OleDb.OleDbDataAdapter(SQLstr, conn)
            dataadapter1.Fill(DataSet1, "factor")
            dataadapter1.Update(DataSet1, "factor")
            DataSet1.AcceptChanges()
            conn.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try 

في زر الحفظ تضع الكود التالي

PHP كود :

dim cmdB as new OledbCommandBuilder
cmdb.DataAdapter=DataAdapter1
DataAdapter1.update 

و الله أعلى و أعلم

أبو أسامة تركي كتب :في زر الحفظ تضع الكود التالي

PHP كود :

dim cmdB as new OledbCommandBuilder cmdb.DataAdapter=DataAdapter1 DataAdapter1.update

و الله أعلى و أعلم

جزاك الله خيرا على المساعده

و لكن للاسف ظهر لي هذا الخطأ

PHP كود :

Error    1    Overload resolution failed because no accessible 'Update' accepts this number of arguments.    D:\Documents and Settings\Ahmed\My Documents\Visual Studio 2005\Projects\Yarb\Yarb\da.vb    42    13    Yarb 

انا جعلت الكود كله هكذا

PHP كود :

Try
            Dim saveinto As New OleDb.OleDbCommand
            Dim constr As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & Application.StartupPath & "\db.mdb"
            Dim conn As New OleDb.OleDbConnection(constr)
            Dim DataSet1 As New DataSet
            Dim SQLstr As String
            Dim cmdB As New OleDbCommandBuilder
            SQLstr = "SELECT * From factor"
            conn.Open()
            Dim dataadapter1 As New OleDb.OleDbDataAdapter(SQLstr, conn)
            dataadapter1.Fill(DataSet1, "factor")
            dataadapter1.Update(DataSet1, "factor")
            DataSet1.AcceptChanges()
            cmdB.DataAdapter = dataadapter1
            dataadapter1.Update()

            conn.Close()
        Catch ex As Exception
            MsgBox(ex.Message) 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Mido9

تركي قرمزلي

Mido9

Mido9