[resali]

أردت جلب بيانات من ملف أكسل

أستعمل 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

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

 

وشكرا لكم