YAZSYS.COM, Pos, Pop, Point Of Sale إعلان لاصحاب المتاجر ... تحميل افضل واسرع واسهل نظام مبيعات ونقاط البيع انقر هنا
مشاريع برمجة متنوعة مفتوحة المصدر | مواضيع ودروس تعليمية
 
Search in Google
كود حفظ سجل في قاعدة بيانات اكسس Access
 
   Try
 
 
            Dim con As OleDbConnection
            Dim com As OleDbCommand
            con = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\db1.mdb;user id=admin;jet oledb:database password=")
            com = New OleDbCommand("UPDATE Table1 SET Field1 = '" & (TextBox1.Text) & "' , Field2 = '" & (TextBox2.Text) & "' , Field3 = '" & (TextBox3.Text) & "' where ID =@ID", con)
            con.Open()
            com.Parameters.AddWithValue("@ID", TextBoxID.Text)
            com.ExecuteNonQuery()
 
            con.Close()
 
            MsgBox("تم حفظ التعديلات", MsgBoxStyle.OkCancel, "")
 
            ListExport.lo()
            Me.Dispose()
 
        Catch ex As Exception
            MsgBox("خطاً" + ex.ToString)
            Exit Sub
        End Try
 
 

 
 
 
برنامج مبيعات ونقاط البيع وجرد المستودعات ومحاسبة خارطة الموقع