ADOのセット
Set objADO = CreateObject(“ADODB.Connection”)
SQL Serverへの接続(sql認証の場合。windows認証の場合はid/passは不要)
‘objADO.Open “Driver={SQL Server}; server=サーバー名; database=データベース名; uid=sa; pwd=パスワード;”
Oracleへの接続
objADO.Open “Driver={Microsoft ODBC for Oracle};” & “CONNECTSTRING=データベース名; UID=ユーザー名; PWD=パスワード”
sqlの実行
Set objRS = objADO.Execute(“sql文”)
次の行へ
objRS.MoveNext
接続のクローズ
objADO.Close