GX999の日記

Excel 2007 VBAでSQL Server 2008 Expressのデータを取得する

OBA, SQL Server

何か、久しぶりにExcel VBAを触ったなぁ。少し苦労したのがConnectionStringです。ここさえクリアできればあとは楽勝ですね。

Dim oCon As ADODB.Connection
Dim oRS As ADODB.Recordset
'-----
Set oCon = New ADODB.Connection
oCon.connectionString = "Provider=SQLOLEDB.1;Data Source=.\SQLEXPRESS;Initial Catalog=TestDb; Trusted_Connection=yes;"
oCon.Open
Set oRS = New ADODB.Recordset
oRS.ActiveConnection = oCon
oRS.Source = "SELECT * FROM Users"
oRS.Open
'-----
Range("A1").CopyFromRecordset oRS
'-----
oRS.Close
oCon.Close
'-----
If Not oRS Is Nothing Then Set oRS = Nothing
If Not oCon Is Nothing Then Set oCon = Nothing

C#のコード書くときに行末の;を忘れる...。VB弊害病と呼称しております(笑)

Permalink | コメント(0) | トラックバック(0) | 12:41