خارطة الموقع برنامج مبيعات ونقاط البيع وجرد المستودعات ومحاسبة الرئيسية من نحن اتصل بنا English
Yazsys.com
منذ عام 2012 - 2018
Skip Navigation Links
نظام إدارة المبيعات
|
تعليم & شروحاتExpand تعليم & شروحات
 
كود حفظ سجل في قاعدة بيانات اكسس Access
بواسطة احمد عادل موسى
2014-12-13
 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
 
 
إعلان ... لأصحاب المتجار فقط - برنامج تنفيذي وليس سورس كود
تحميل برنامج مبيعات وجرد المستودعات

 
 
الصفحة الرئيسية
اتصل بنا
نبذة عن هذا الموقع
خارطة الموقع
مشاريع برمجة متنوعة مفتوحة المصدر
مواضيع ودروس تعليمية
 
 
نظام YAZSYS لإدارة المبيعات