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

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