SqlServerからのデータ取得　 次の文書

Sub conDB()

Dim db As New ADODB.Connection 'DB接続オブジェクト
Dim rs As New ADODB.Recordset 'データ取得オブジェクト
Dim strSEL As String
Dim Con As String

'DB接続情報格納
Con = "Provider = SQLOLEDB;"
Con = Con & "DATABASE=SSKPC;"
Con = Con & "UID=DBUser01;"
Con = Con & "PWD=DBUser01;"


db.Open Con 'DB接続
strSEL = "SELECT GETDATE()" '変数にSQL文を格納します。
Set rs = db.Execute(strSEL) 'SQLを実行します。
MsgBox rs.Fields(0).Value '画面に日付を表示させます。
db.Close 'DBを閉じる


db.Open Con 'DB接続
strSQL = "Select * from counter;"
rs.Source = strSQL
rs.ActiveConnection = db
rs.Open

With Worksheets("sqlserver")

.Cells.Clear
i = 1
Do Until rs.EOF
For j = 0 To rs.Fields.Count - 1
If i = 1 Then .Cells(i, j + 1) = rs.Fields(j).Name
.Cells(i + 1, j + 1) = rs(j).Value
Next j
rs.MoveNext
i = i + 1
Loop

End With

rs.Close
Set rs = Nothing

db.Close
Set cn = Nothing
MsgBox "終了しました"
End Sub

参考サイト　https://excelwork.info/excel/databasesqlserver/


　




← 左の文字をここへ入力後 登録ボタンをクリックしてください

(サイト管理者承認後掲載されます)