Oturum a�

Select the product you need help with

NAS�L YAP�L�R: Visual Basic. NET'te GetOleDbSchemaTable y�ntemi'ni kullanarak meta veriler Excel'den Al

Makale numaras�: 318373 - Bu makalenin ge�erli oldu�u �r�nleri g�r�n.

Otomatik terc�me makalelerin ne oldu�unu a��klayan yaz�y� okumak i�in buraya t�klay�n

�ngilizce ve T�rk�e'yi yan yana g�r�nt�leme

Buraya t�klayarak �ngilizce ve T�rk�e'yi yan yana g�r�nt�leyebilirsiniz.

Hepsini a� | Hepsini kapa

Bu ad�m ad�m makalede, Microsoft OLE DB y�netilen sa�lay�c� ve Microsoft OLE DB sa�lay�c�s� i�in Jet GetOleDbSchemaTable y�ntemini kullanarak, Microsoft Excel veri kaynaklar�ndan tablo ve s�tun meta verileri almak a��klamaktad�r.

Kullan�ma GetOleDbSchemaTable taraf�ndan System.Data.OLEDB s�n�f� Microsoft .NET Framework'�n �nceki s�r�mlerinde bir Microsoft ActiveX Data Objects OpenSchema y�ntemi .NET ard�l y�ntemdir (ADO).

Tekni�in A��klamas�

ADO.NET kullanarak bir Excel veri kayna��na ba�land�ktan sonra GetOleDbSchemaTable kullanarak tablo meta verileri listesini ay�klar ve sonra se�ili tablo i�in s�tun meta verileri almak i�in farkl� ba��ms�z de�i�kenlerle ayn� y�ntemi kullan�n. DataGridTableStyle bir nesneyi d�zenlemek ve bir <a0>Veri</a0> k�lavuzunda, sorgu sonu�lar�n� bi�imlendirmek i�in de kullan�labilir.

Gereksinimler

A�a��daki listede �nerilen donan�m, yaz�l�m, a� altyap�s� ve gereken hizmet paketleri �nerilmektedir:

Uyumlu bir Microsoft Windows i�letim sistemi �zerinde y�kl� Visual Studio .NET
Baz� sat�r ve s�tun veri en az bir Microsoft Excel �al��ma kitab� (.xls) dosyas�

Bu makalede a�a��daki konular ile en az bir temel benzerlik oldu�unuz varsay�lmaktad�r:

Visual Basic .NET
ADO.NET veri eri�imi
Excel �al��ma kitaplar� ve �al��ma sayfalar�

�RNEK

Microsoft Visual Studio. NET'i ba�lat�n ve yeni bir Visual Basic .NET Windows uygulamas�) projesi olu�turun.
�� D��me denetimi ve iki DataGrid denetimi (Form1) varsay�lan forma ekleyin. D��me denetimlerin metin �zelli�i Meta veri almak, Bi�im tablolar� listesi ve Bi�im s�tunlar listesi s�ras�yla de�i�tirin.
Form kodu mod�le ge�in ve a�a��daki �mports en �st�ne ekleyin:
Imports System.Data Imports System.Data.OleDb Imports System.ComponentModel

A�a��daki Mod�l d�zeyinde bildirimleri form s�n�f�nda "Devralan System.Windows.Forms.Form" sat�rdan sonra ekleyin. Baz� sat�r ve s�tun veri i�eren bir Excel �al��ma kitab� dosyas�na i�aret etmek gerekirse, ba�lant� dizesini ayarlay�n.

    Dim cn As OleDbConnection
    Dim strCn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=c:\test.xls;Extended Properties=Excel 8.0"
    Dim dtTables As DataTable
    Dim WithEvents cm As CurrencyManager
    Dim dtColumns As DataTable
    Dim dvColumns As DataView

A�a��daki kod <a2>form</a2> s�n�f�n�n sonra "Windows Form Designer generated" b�lge ekleme. Bu kod, tablo ve s�tunlar listesi y�klenemedi GetOleDbSchemaTable �a��r�r, DataGrid denetimi doldurur ve Se�ili tabloyu de�i�ti�inde s�tunlar� listeyi g�ncelle�tirir.

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

    Private Sub GetTablesList()
        cn = New OleDbConnection(strCn)
        cn.Open()
        dtTables = cn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)
        DataGrid1.DataSource = dtTables
        DataGrid1.ReadOnly = True
        cn.Close()
        Call GetColumnsList()
    End Sub

    Private Sub GetColumnsList()
        If cm Is Nothing Then
            cm = CType(Me.BindingContext(dtTables), CurrencyManager)
        End If
        Dim r As Integer = cm.Position
        Dim strTable As String = dtTables.Rows(r)("TABLE_NAME")
        cn = New OleDbConnection(strCn)
        cn.Open()
        dtColumns = cn.GetOleDbSchemaTable(OleDbSchemaGuid.Columns, _
            New Object() {Nothing, Nothing, strTable, Nothing})
        dvColumns = New DataView(dtColumns)
        dvColumns.Sort = "ORDINAL_POSITION"
        DataGrid2.DataSource = dvColumns
        DataGrid2.ReadOnly = True
        cn.Close()
    End Sub

    Private Sub cm_PositionChanged(ByVal sender As Object, _
            ByVal e As System.EventArgs) Handles cm.PositionChanged
        Call GetColumnsList()
    End Sub

D�zenlemek ve tablolar DataGridTableStyles kullanarak bi�imlendirmek i�in a�a��daki kodu ekleyin. Tarih s�tunlar�n�n varsay�lan olmayan bi�imlendirmeleri kolayla�t�rmak i�in PropertyDescriptor kullan�m�na dikkat edin.

    Private Sub Button2_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles Button2.Click
        Call FormatTablesGrid(dtTables)
    End Sub

    Private Sub FormatTablesGrid(ByVal dt2format As DataTable)
        Dim gs As DataGridTableStyle = New DataGridTableStyle()
        gs.MappingName = dt2format.TableName

        Dim cs As DataGridColumnStyle = New DataGridTextBoxColumn()
        With cs
            .MappingName = "TABLE_NAME"
            .HeaderText = "Table Name"
            .Width = 75
        End With
        gs.GridColumnStyles.Add(cs)

        cs = New DataGridTextBoxColumn()
        With cs
            .MappingName = "TABLE_TYPE"
            .HeaderText = "Table Type"
            .Width = 75
        End With
        gs.GridColumnStyles.Add(cs)

        Dim cm As CurrencyManager = CType(Me.BindingContext(dt2format), CurrencyManager)
        Dim pd As PropertyDescriptor = cm.GetItemProperties()("DATE_CREATED")

        cs = New DataGridTextBoxColumn(pd, "d")
        With cs
            .MappingName = "DATE_CREATED"
            .HeaderText = "Date Created"
            .Width = 75
        End With
        gs.GridColumnStyles.Add(cs)

        cm = CType(Me.BindingContext(dt2format), CurrencyManager)
        pd = cm.GetItemProperties()("DATE_MODIFIED")

        cs = New DataGridTextBoxColumn(pd, "d")
        With cs
            .MappingName = "DATE_MODIFIED"
            .HeaderText = "Date Modified"
            .Width = 75
        End With
        gs.GridColumnStyles.Add(cs)

        DataGrid1.TableStyles.Add(gs)
        Me.Button2.Enabled = False

    End Sub

D�zenlemek ve s�tunlarda bi�imlendirmek i�in a�a��daki kodu ekleyin TableStyle kullanarak DataGrid:

    Private Sub Button3_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles Button3.Click
        Call FormatColumnsGrid(dtColumns)
    End Sub

    Private Sub FormatColumnsGrid(ByVal dt2format As DataTable)
        Dim gs As DataGridTableStyle = New DataGridTableStyle()
        gs.MappingName = dtColumns.TableName

        Dim cs As DataGridColumnStyle = New DataGridTextBoxColumn()
        With cs
            .MappingName = "COLUMN_NAME"
            .HeaderText = "Column Name"
            .Width = 100
        End With
        gs.GridColumnStyles.Add(cs)

        cs = New DataGridTextBoxColumn()
        With cs
            .MappingName = "ORDINAL_POSITION"
            .HeaderText = "Ordinal Position"
            .Width = 100
        End With
        gs.GridColumnStyles.Add(cs)

        cs = New DataGridTextBoxColumn()
        With cs
            .MappingName = "DATA_TYPE"
            .HeaderText = "Data Type"
            .Width = 75
        End With
        gs.GridColumnStyles.Add(cs)

        cs = New DataGridTextBoxColumn()
        With cs
            .MappingName = "CHARACTER_MAXIMUM_LENGTH"
            .HeaderText = "Text Length"
            .Width = 75
        End With
        gs.GridColumnStyles.Add(cs)

        cs = New DataGridTextBoxColumn()
        With cs
            .MappingName = "NUMERIC_PRECISION"
            .HeaderText = "Numeric Precision"
            .Width = 75
        End With
        gs.GridColumnStyles.Add(cs)

        DataGrid2.TableStyles.Add(gs)
        Me.Button3.Enabled = False

    End Sub

Projeyi �al��t�r�n.
T�m s�tunlar�n Excel �al��ma kitab�ndaki her tablo i�in GetOleDbSchemaTable taraf�ndan d�nd�r�len bilgileri (DataGrid1) Tablolar listesini doldurmak i�in Meta veri al ' � t�klat�n. S�tunlar listesinde (DataGrid2) ayn� anda t�m s�tunlar�n d�nd�r�len bilgi i�in <a0>Tablolar</a0> listesinde ilk tablodaki s�tunlar� girilir.
Farkl� bir tablo, Tablolar listesinden se�in. Se�ili tablo s�tunlar�ndan nedeniyle, uygulanan cm_PositionChanged olay i�leyicisi g�r�nt�lemek i�in s�tun listesi de�i�iklikleri.
Bi�im tablolar� listesi tan�mlamak ve DataGrid1 i�in bir TableMappingStyle uygulamak i�in Ek Yard�m d��mesini t�klat�n. Bu s�tun ba�l�klar�n�n daha "kolay" yapar ve yararl� veriler GetOleDbSchemaTable taraf�ndan d�nd�r�len dokuz s�tunlar�ndan yaln�zca d�rt s�tunlar� g�r�nt�ler. Bu s�tunlar� g�r�nt�lenir:
table_name
table_type
date_created
date_modified
Bu bo�luklar s�tunlar� g�r�nt�lenir:
table_catalog
table_schema
table_guid
A��klama
table_propid
Bi�im s�tunlar listesi tan�mlamak ve bir TableMappingStyle DataGrid2 i�in Ek Yard�m d��mesini t�klat�n. Bu s�tun ba�l�klar�n�n daha "kolay" sa�lar ve yaln�zca 5 en kullan��l� s�tun 28 s�tunlar�ndan GetOleDbSchemaTable taraf�ndan d�nd�r�len verileri g�r�nt�ler.
S�TUN_ADI
ordinal_position
data_type
maximum_character_length
numeric_precision
Bu genellikle bo� s�tunlar g�r�nt�lenir:
table_catalog
table_schema
TABLE_NAME (zaten bilinen)
column_guid
column_propid
COLUMN_HASDEFAULT (her zaman false)
column_default
column_flags
IS_NULLABLE (her zaman do�ru)
type_guid
character_octet_length
numeric_scale
datetime_precision
character_set_catalog
character_set_schema
character_set_name
collation_catalog
collation_schema
collation_name
domain_catalog
domain_schema
Etki_alan�_ad�
A��klama
Farkl� bir sat�rdaki DataGrid1 farkl� bir tablo se�mek i�in Ek Yard�m d��mesini t�klat�n. S�tunlar listesinde otomatik olarak g�ncelle�tirilir. Her bir DataGrid i�in daha �nce uygulad��n�z TableStyles etkili olur.

SORUN G�DERME

Bir Excel veri kayna��n� GetOleDbSchemaTable taraf�ndan d�nd�r�len s�tun veri t�rleri her zaman Klasik ADO OpenSchema y�ntemi taraf�ndan d�nd�r�len veri t�rleri i�in �zde� de�il:

Bu tabloyu kapaBu tabloyu a�

S�tun t�r�	Klasik ADO	ado.net (ole db)
Say�sal	5 adDouble	5 OleDbType.Double
Para birimi	6 adCurrency	6 OleDbType.Currency
Date/Time	7 adDate	7 OleDbType.Date
Mant�ksal de�er	11 adBoolean	11 OleDbType.Boolean
Metin < 255	202 adVarWChar	130 OleDbType.WChar
K�sa Not	203 adLongVarWChar	130 OleDbType.WChar

GetOleDbSchemaTable, OpenSchema gibi "F1" tek bir s�tun bo� bir Excel �al��ma sayfas�ndan, asl�nda hi�bir veri veya s�tun ba�l�klar� var olsa da verir.

�ste | Geri Bildirim Ver

Referanslar

Ek bilgi i�in, Microsoft Bilgi Bankas�'ndaki makaleyi g�r�nt�lemek �zere a�a��daki makale numaras�n� t�klat�n:

257819

(http://support.microsoft.com/kb/257819/EN-US/ )

Nas�l YAP�L�R: Excel verilerden Visual Basic'de veya VBA'DA ile ADO kullanma.

�ste | Geri Bildirim Ver

�zellikler

Makale numaras�: 318373 - Son G�zden Ge�irme: 03 Eyl�l 2003 �ar�amba - G�zden ge�irme: 2.1

Bu makaledeki bilginin uyguland�� durum:

Microsoft Visual Basic .NET 2003 Standard Edition
Microsoft Visual Basic .NET 2002 Standard Edition
Microsoft ADO.NET 1.1
Microsoft ADO.NET 1.0

kbmt kbhowtomaster kbprovider KB318373 KbMttr

Otomatik Terc�me

�NEML�: Bu makale, bir ki�i taraf�ndan �evrilmek yerine, Microsoft makine-�evirisi yaz�l�m� ile �evrilmi�tir. Microsoft size hem ki�iler taraf�ndan �evrilmi�, hem de makine-�evrisi ile �evrilmi� makaleler sunar. B�ylelikle, bilgi bankam�zdaki t�m makalelere, kendi dilinizde ula�m�� olursunuz. Bununla birlikte, makine taraf�ndan �evrilmi� makaleler m�kemmel de�ildir. Bir yabanc�n�n sizin dilinizde konu�urken yapabilece�i hatalar gibi, makale; kelime da�arc��, s�z dizim kurallar� veya dil bilgisi a��s�ndan yanl��lar i�erebilir. Microsoft, i�eri�in yanl�� evrimi veya onun m��teri taraf�ndan kullan�m�ndan do�an; kusur, hata veya zarardan sorumlu de�ildir. Microsoft ayr�ca makine �evirisi yaz�l�m�n� s�k�a g�ncellemektedir.

Makalenin �ngilizcesi a�a��daki gibidir:318373

(http://support.microsoft.com/kb/318373/en-us/ )

�ste | Geri Bildirim Ver