منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : استيراد بيانات لقاعدة البيانات وعمل مقارنة
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم اخواني الاعزاء
لدي نظام ولدي بيانات خارجية في اكسل .. عايز استورد البيانات لجدول محدد واعمل مقارنة وعملية حسابية في نفس الوقت

كمثال :
قاعدة بيانات data1 وفيها جدول باسم dt1 وفيها الحقول  a1 ,a2 ,a3 ,a4 
وملف اكسل فيه حقلين B1, B2 .. حقل B1 فيه بيانات نفس a1 و B2 بيانات a2
السؤال :
كيف اعمل بحث ومقارنة وحفظ البيانات في الجدول dt1

اريد اقتراحاتكم ومساعدتكم
وجزاكم الله خيرا
33 مشاهدة ومافي رد واحد ؟!!
هذا لاستراد البيانات فقط الاستيراد بيكون من الداتا قريد فيو بيجيب لك نفس بيانات الجدوال 
 اما المقارنة ما عرفت لها

إقتباس :Using ofd As OpenFileDialog = New OpenFileDialog() With {.Filter = "Excel Workook|*.xlsx|Excel 97-2003 WorkBook|*.xls"}
            If ofd.ShowDialog = DialogResult.OK Then
                TextBox1.Text = ofd.FileName
                Using stream = File.Open(ofd.FileName, FileMode.Open, FileAccess.Read)
                    Using reader As IExcelDataReader = ExcelReaderFactory.CreateReader(stream)
                        Dim result As DataSet = reader.AsDataSet(New ExcelDataSetConfiguration() With {
    .ConfigureDataTable = Function(__) New ExcelDataTableConfiguration() With {
    .UseHeaderRow = True}})
                        tables = result.Tables
                        ComboBox1.Items.Clear()
                        For Each table As DataTable In tables
                            ComboBox1.Items.Add(table.TableName)