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
114
Konum
Ankara
Web sitesi
turkdevelopers.net
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