تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] طلب مساعدة في : جلب بيانات من ملف أكسل
#1
أردت جلب بيانات من ملف أكسل


أستعمل Microsoft Visual Basic 2010 Express وكذا قاعدة بيانات أكسس

فأنشات فورم1  وبه radiobutton و button و datagridview

ووضعت هذا الكود 
كود :
Imports System.Data.OleDb
Public Class Form1

   Private Sub rbtn_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbtn.CheckedChanged
       Dim ofd As New OpenFileDialog
       ofd.Filter = "all files |*.*|excel files|*.xlxs"
       If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
           Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ofd.FileName & "; extended properties=excel.4.0;")

           Dim da As New OleDbDataAdapter("select * from [etud$]", con)
           Dim dt As New DataTable
           da.Fill(dt)
           DataGridView1.DataSource = dt


       Else
           Close()
       End If
   End Sub
End Class

 وعند التنفيذ تظهر رسالة 

 



وشكرا لكم



الرد
تم الشكر بواسطة:
#2
جرب هذا التعديل بالاضافة لتعديل كلمة xlxs إلى xlsx

كود :
Imports System.Data.OleDb
Public Class Form1

   Private Sub rbtn_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles rbtn.CheckedChanged
       Dim ofd As New OpenFileDialog
       ofd.Filter = "all files |*.*|excel files|*.xlsx"
       If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then

           Dim con As New OleDbConnection
           If IO.Path.GetExtension(ofd.FileName).ToLower.Equals(".xlsx") Then
               con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ofd.FileName & ";Mode='ReadWrite';Extended Properties='Excel 12.0 Macro;HDR=Yes;IMEX=1;'"
           Else
               con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ofd.FileName & ";Extended Properties='Excel 8.0;HDR=Yes;IMEX=1'"
           End If

           Dim da As New OleDbDataAdapter("select * from [etud$]", con)
           Dim dt As New DataTable
           da.Fill(dt)
           DataGridView1.DataSource = dt


       Else
           Close()
       End If
   End Sub
End Class

تم اقتباس الحل من هذا الرابط
VB 2010 Reading xls file
الرد
#3
جزيل الشكر لك أخي : عيد مبارك

تمت عملية الجلب بنجاح
الرد
تم الشكر بواسطة: ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مساعدة في فتح سنة جديدة لمنظومة مبيعات cordava 0 65 15-10-20, 11:43 AM
آخر رد: cordava
Thumbs Up [SQL] تطبيق عملى لمشروع قاعدة بيانات بSQL محمود بكير 1 91 13-10-20, 03:39 PM
آخر رد: محمد كريّم
  ربط ReportViewer بقاعدة بيانات access عليها password khaled Mohammed 0 45 13-10-20, 02:07 PM
آخر رد: khaled Mohammed
  [VB.NET] برنامج اقساط على الفجوال بيسك 2010 وقاعده بيانات سيكوال سيرفر 2008 shawky ahmed 1 105 12-10-20, 09:12 AM
آخر رد: mmali127
  [VB.NET] مساعدة لعمل برنامج حضور وانصراف+وقاعدة بيانات shone1 3 179 10-10-20, 01:14 PM
آخر رد: shone1
Exclamation [VB.NET] مساعدة في كود لـــــــ جملة(insert) abarrak 2 122 10-10-20, 07:53 AM
آخر رد: abarrak
  [سؤال] مساعدة في إكمال كود 3 أزرار (حذف-بحث-تعديل) HUNTER25 12 529 08-10-20, 02:20 PM
آخر رد: اسامه الهرماوي
  مساعدة بخصوص تنفيد البرنامج بعد تحزيمه ببرنامج Advanced Installer ٍOfelas 20 386 06-10-20, 10:54 PM
آخر رد: ٍOfelas
  مساعدة fullscreen لسبسيب 0 66 06-10-20, 04:26 PM
آخر رد: لسبسيب
  [VB.NET] مساعدة شباب بخصوص textbox ميدو الفنان 2 131 06-10-20, 02:24 PM
آخر رد: ميدو الفنان

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم