30-08-20, 01:24 AM
أردت جلب بيانات من ملف أكسل
أستعمل 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
وعند التنفيذ تظهر رسالة
وشكرا لكم