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

'変数
Dim rs As ADODB.Recordset
Dim strSQL As String

'テストデータの取得
Public Sub GetTestData()

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接続


'テストデータ取得SQL
'strSQL = "Select * from counter;"
strSQL = "SELECT [KEY], count FROM counter "

rs.Source = strSQL
rs.ActiveConnection = db

rs.Open 'レコードセットオープン

i = 1 'ループカウンタ

Do Until rs.EOF '取得データループ

Cells(i, 1) = rs![Key] 'データをセルへ設定
Cells(i, 2) = rs!Count

i = i + 1 'ループカウンタインクリメント

rs.MoveNext '次のレコードへ
Loop

rs.Close 'レコードセットクローズ
Set rs = Nothing

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

End Sub

参考サイト　https://itlogs.net/vba-database/



　




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

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