New Document

Excel Dosyasından Veri Okumak-VB.NET

İlk önce C:\Bilgiler.xls şeklindeki gibi excel dosyanızı oluşturun. Daha sonra formunuza 1 adet Label, Button ve DataGridView nesnesi ekleyin.
Resim1

Şekil 1
Resim2

Şekil 2

Forma yazılacak kodlar:

Imports System.Data
Imports System.Data.OleDb

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With Me
.Size = New System.Drawing.Size(628, 174)
.Location = New Point(150, 190)
.MaximizeBox = False
.Text = "Excel Dosya Okuma(Windows)...Bahadirsa"
End With
Button1.Text = "Excel Dosya Oku"
Label1.Text = "XLS Dosya Okuma"
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim baglan As New Data.OleDb.OleDbConnection(("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Bilgiler.xls;Extended Properties=‘Excel 8.0;HDR=YES;‘"))

baglan.Open()

Dim MyCommand As New Data.OleDb.OleDbCommand("SELECT * FROM KisiBilgi", baglan)

Dim da As New Data.OleDb.OleDbDataAdapter

da.SelectCommand = MyCommand

Dim dt As New Data.DataTable

da.Fill(dt)

‘ Verinin görüntüleneceği DataGridView1 in DataTable a bağlanması ve verinin yüklenmesi
DataGridView1.DataSource = dt.DefaultView

Label1.Text = "Excel dosyasından veri alındı."

baglan.Close()
End Sub
End Class

‘Bir sonraki makalede buluşmak üzere...Bahadirsa