الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اسيراد البيانات من اكسل وحفظها في قاعدة بيانات اكسس

بدأه سورناجا في 5 ديسمبر 2016 · 0 رد · 822 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1

السلام عليكم إخواني الكرام

عندي مشروع قاعدة بيانات من نوع اكسس

هذه جملة الاتصال

Imports System.Data
Imports System.Data.OleDb

Public Class Form1
    Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=kofa.accdb;")

تعرض البيانات داخل داتا جريد فيو عن طريق الداتا سورس

Dim da As New OleDbDataAdapter("SELECT * FROM student", con)
        Dim dt As New DataTable()
        da.Fill(dt)
        DataGridView1.DataSource = dt

قد نحتاج لاستيراد بيانات من ملف اكسل داخل الداتا جريد فيو وبالفعل تمت العملية بنجاح وهذا هو الكود

Private Sub Button13_Click_1(sender As Object, e As EventArgs) Handles Button13.Click

        ofd.Filter = "Excel 2007|*.xlsx|Excel 2003|*.xls"
        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
            DataGridView1.DataSource = Nothing
            DataGridView1.Columns.Clear()
            Dim path As String = ofd.FileName
            Dim conn As New OleDbConnection("PROVIDER=MICROSOFT.ACE.OLEDB.12.0;DATA SOURCE=" & path & "; EXTENDED PROPERTIES=EXCEL 12.0;")
            Dim ds As New DataSet
            Dim da As New OleDbDataAdapter("SELECT * FROM [ورقة1$]", conn)
            da.Fill(ds, "[ورقة1$]")
            DataGridView1.DataSource = ds.Tables("[ورقة1$]")

        Else
            End
        End If

    End Sub

المشكلة التي حيرتني  أريد حفظ هذه البيانات داخل قاعدة البيانات الاساسية الاكسس للبرنامج

وانا كل ثقة في اساتذتي في هذا المنتدى الجميل أن يجدوا حلا لهذه المشكلة المعقدة

تقبلوا تحياتي وشكرا مقدما على المساعدة وجزاكم الله خيرا

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…