YAZSYS.COM, Pos, Pop, Point Of Sale إعلان لاصحاب المتاجر ... تحميل افضل واسرع واسهل نظام مبيعات ونقاط البيع انقر هنا
مشاريع برمجة متنوعة مفتوحة المصدر | مواضيع ودروس تعليمية
 
Search in Google
كود حفظ سجل في قاعدة بيانات اكسس Access
 Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\DB.mdb"
        Dim Conn As New OleDbConnection(ConStr)
 
        Try
 
            Dim IDS As Integer = Val(TextBoxID.Text.Trim)
 
            Conn.Open()
 
            Dim cmd As New OleDb.OleDbCommand
            cmd.Connection = Conn
            cmd.CommandType = CommandType.Text
            cmd.CommandText = "UPDATE Table1 SET Field1= @Field1, Field2= @Field2 WHERE ID = " & IDS & " "
 
 
            cmd.Parameters.AddWithValue("Field1", TextBox1.Text.Trim)
            cmd.Parameters.AddWithValue("Field2", TextBox2.Text.Trim)
          
 
            cmd.ExecuteScalar()
            Conn.Close()
 
            MsgBox("تم الحفظ بنجاح")
 
    
        Catch ex As Exception
            MsgBox("خطأ غير معروف")
            Exit Sub
        End Try
 
 

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