YAZSYS.COM, Pos, Pop, Point Of Sale إعلان لاصحاب المتاجر ... تحميل افضل واسرع واسهل نظام مبيعات ونقاط البيع انقر هنا
مشاريع برمجة متنوعة مفتوحة المصدر | مواضيع ودروس تعليمية
 
Search in Google
إضافة سجل داخل الجدول في قاعدة بيانات اكسس Access
 Dim ConStr As String = ("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\MDB1.mdb;user id=admin;jet oledb:database password=1234")
 
    Dim Conn As New OleDbConnection(ConStr)
    Dim DataSet1 As New DataSet
    Dim SQLstr As String = "SELECT * FROM Table1"
 
 
'''''''''''''''''''
 
 Try
 
            Dim SavInto As New OleDb.OleDbCommand
            SavInto.Connection = Conn
            SavInto.CommandType = CommandType.Text
            SavInto.CommandText = "insert into Table1([Field1],[Field2],[Field3])values ('" & Textbox1.Text & "','" & Textbox2.Text & "','" & Textbox3.Text & "') "
         
            Conn.Close()
            Conn.Open()
            SavInto.ExecuteNonQuery()
            Conn.Close()
 
            ListExport.lo()
 
            MsgBox("تم الإضافة بنجاح", MsgBoxStyle.OkOnly, "!")
 
            GroupBox1.Visible = True
 
        Catch ex As Exception
            MsgBox("خطأ غير معروف", MsgBoxStyle.OkOnly, "!")
            Exit Sub
        End Try
 
 

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