[Mido9]

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

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)