Excele OLEDB ile SQL Veritabanındaki bir tablodaki verileri getirmek için örnek kod

[lsuersoy]

Merhaba arkadaşlar ; Aşağıdaki kod (makro) ile MS SQL deki GALATASARAY adlı veritabanındaki , LG_086_CLCARD tablosundaki tüm verileri çalışma sayfasına getirebilirsiniz.

SQL Server Bağlantısında Server ın IP si = 192.168.0.10
Kullanıcı adı : LOGO
Şifre = LOGO
Aşağıdaki kod da benim oturumumun adı "ersoy" olduğu için
"C:\Documents and Settings\ersoy\" ifadesi kullanılmıştır...sizde kendi oturumunuzun adını kullanınız...

===================================================
Sub CH_Listesini_Getir_86()
'
' CH_Listesini_Getir_86 Makro
' Makro ersoy tarafından 05.05.2007 tarihinde kaydedildi.
'
'
With ActiveSheet.QueryTables.Add(Connection:=Array( _
"OLEDB;Provider=SQLOLEDB.1;Persist Security Info=True;User ID=LOGO;Data Source=192.168.0.10;Use Procedure for Prepare=1;Auto Translate=" _
, _
"True;Packet Size=4096;Workstation ID=MARS;Use Encryption for Data=False;Tag with column collation when possible=False;Initial Ca" _
, "talog=GALATASARAY"), Destination:=Range("A1"))
.CommandType = xlCmdTable
.CommandText = Array("""GALATASARAY"".""dbo"".""LG_086_CLCARD""")
.Name = "+Yeni SQL Server Bağlantısı"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceConnectionFile = _
"C:\Documents and Settings\ersoy\Belgelerim\Veri Kaynaklarım\192.168.0.10 GALATASARAY LG_086_CLCARD.odc"
.Refresh BackgroundQuery:=False
End With
End Sub



iyi çalışmalar...