Microsoft Office Excel ® Kod Kılavuzu

Microsoft Office Excel® Code Guide

1 Haziran 2006 Perşembe

Microsoft.Jet.OLEDB.4.0 Connection



'UserForm1


'Eklenecek referans: ActiveX Data Objects 2.8 Library
'Path: c:\Program Files\Common Files\System\ado\msado15.dll


Option Explicit
Private t As Integer, c As Integer, f As Integer, r As Integer
Private Bağlantı As ADODB.Connection
Private KayıtDüzeni As ADODB.Recordset
Private TabloSayısı As Integer, TabloÖzellikleriSayısı As Integer
Private TabloAdı As String
Private TabloDüzeni As ADODB.Recordset
Private KolonSayısı As Integer, KolonÖzellikleriSayısı As Integer
Private KolonBaşlığı As String
Private Liste As MSForms.ListBox

Private Sub UserForm_Initialize()
On Error Resume Next
With Me
.Caption = "[PBİD ®] Microsoft.Jet.OLEDB.4.0 Connection"
.Width = 360
.Height = 240
Set Liste = .Controls.Add("Forms.ListBox.1")
With Liste
.BackColor = &H80000018
.Top = 6
.Left = 6
.Width = 360 - 18
.Height = 240 - 36
End With
DoEvents
End With
End Sub
Private Sub UserForm_Activate()
On Error Resume Next
Set Bağlantı = New ADODB.Connection
With Bağlantı
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=C:\SLVT.xls;Extended Properties=Excel 8.0;"
.CursorLocation = adUseClient
.Open
End With
Set KayıtDüzeni = Bağlantı.OpenSchema(adSchemaTables)
TabloSayısı = KayıtDüzeni.RecordCount
TabloÖzellikleriSayısı = KayıtDüzeni.Fields.Count
For t = 1 To TabloSayısı
TabloAdı = KayıtDüzeni.Fields("TABLE_NAME").Value
Liste.AddItem "Table #" & t & ": " & TabloAdı
For f = 0 To TabloÖzellikleriSayısı - 1
Liste.AddItem vbTab & vbTab & KayıtDüzeni.Fields(f).Name & vbTab & KayıtDüzeni.Fields(f).Value
Next f
Set TabloDüzeni = Bağlantı.OpenSchema(adSchemaColumns, Array(Empty, Empty, TabloAdı, Empty))
KolonSayısı = TabloDüzeni.RecordCount
KolonÖzellikleriSayısı = TabloDüzeni.Fields.Count
For c = 1 To KolonSayısı
KolonBaşlığı = TabloDüzeni.Fields("COLUMN_NAME").Value
Liste.AddItem vbTab & vbTab & "Column #" & c & ": " & KolonBaşlığı
For f = 0 To KolonÖzellikleriSayısı - 1
Liste.AddItem vbTab & vbTab & vbTab & TabloDüzeni.Fields(f).Name & vbTab & TabloDüzeni.Fields(f).Value
Next f
TabloDüzeni.MoveNext
Next c
TabloDüzeni.Close
KayıtDüzeni.MoveNext
Next t
KayıtDüzeni.Close
Bağlantı.Close
End Sub

Hiç yorum yok:

Blog Arşivi

Bu gadget'ta bir hata oluştu

Bu Blogda Ara

Contributor

Contributor
Mustafa ULUSARAÇ İstanbul, TÜRKİYE
free counters
T. C. Central Bank Indicative Exchange Rates
Currency Exchange Rate Widget,Currency Converter Widget
Borsa İstanbul