Hoş Geldin, Ziyaretçi!

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı yada giriş yapmalısınız. Forum üye olmak tamamen ücretsizdir.

Vb.Net Excel'den Veri Okuma

Admin

TurkDevelopers
Yönetici
TDN Admin
Katılım
30 Nis 2020
Mesajlar
99
Konum
Ankara
Vb.Net:
Public Class Form1
    Private Sub btnAc_Click(sender As Object, e As EventArgs) Handles btnAc.Click

        Dim openFileDialog As New OpenFileDialog
        openFileDialog.Filter = "Excel Dosyaları|*.xlsx;*.xls"
        openFileDialog.Title = "Excel Dosyasını Seçiniz"
        If openFileDialog.ShowDialog = DialogResult.OK Then
            Dim myConnection As System.Data.OleDb.OleDbConnection
            Dim dtSet As System.Data.DataSet
            Dim myCommand As System.Data.OleDb.OleDbDataAdapter
            myConnection = New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + openFileDialog.FileName + ";Extended Properties=Excel 8.0;")

            'Buradaki Sayfa1$ kısmı önemlidir. Sayfa adı faklı ise program hata verecektir.
            myCommand = New System.Data.OleDb.OleDbDataAdapter("select * from [Sayfa1$]", myConnection)
            myCommand.TableMappings.Add("Tablo", "TurkDevelopers.Net")
            dtSet = New System.Data.DataSet
            myCommand.Fill(dtSet)
            DataGridView1.DataSource = dtSet.Tables(0)
            myConnection.Close()
        End If
    End Sub
End Class
vbnet_excel.PNG


vbnet_excel_1.PNG