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
 
            Conn.Open()
 
            Dim cmd As New OleDb.OleDbCommand
            cmd.Connection = Conn
            cmd.CommandType = CommandType.Text
            cmd.CommandText = "INSERT INTO Table1 ( Field1, Field2 ) VALUES ( @Field1, @Field2 )"
 
            cmd.Parameters.AddWithValue("Field1", TextBox1.Text.Trim)
            cmd.Parameters.AddWithValue("Field2", TextBox2.Text.ToString)
         
 
            cmd.ExecuteScalar()
            Conn.Close()
 
            MsgBox("تم إضافة الطالب بنجاح")
 
        Catch ex As Exception
            MsgBox("هناك خطأ غير معروف ")
            Exit Sub
        End Try
 
 

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