|
|
Set cn = CreateObject("ADODB.Connection")
strConnection = "Provider=SQLOLEDB;Data Source=サーバ名;"
strConnection = strConnection & "Initial Catalog=データベース名;"
strConnection = strConnection & "User ID=sa;"
strConnection = strConnection & "Password=;"
cn.Open strConnection
| |
|
|
Set rs = CreateObject("ADODB.Recordset")
strConnection = "Provider=SQLOLEDB;Data Source=サーバ名;"
strConnection = strConnection & "Initial Catalog=データベース名;"
strConnection = strConnection & "User ID=sa;"
strConnection = strConnection & "Password=;"
strQuery = "select * from テーブル名"
rs.Open strQuery, strConnection
| |
|
RecordCount プロパティを使用したい場合は、レコードセットを開く前に
CursorType = 1(adOpenKeyset) とします
|
rs.CursorType = 1
rs.Open strQuery, strConnection
| |
|
Connection オブジェクトが接続済の場合は、接続文字列ではなく
オブジェクトを使用できます
|
rs.CursorType = 1
rs.Open strQuery, cn
| |
|
レコードセットを更新可能にしたい場合は、LockType = 3(adLockOptimistic) にします
|
rs.CursorType = 1
rs.LockType = 3
rs.Open strQuery, cn
| |
|
|
|
|
Set cn = CreateObject("ADODB.Connection")
strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ファイルへのパス;"
[strConnection = strConnection & "User ID=userName;"]
[strConnection = strConnection & "Password=userPassword;"]
cn.Open strConnection
| |
|
MDBで、userName と userPassword は設定している場合のみ使用します
データベースのパスワードが設定されている場合は、以下の文字列を追加します
|
Jet OLEDB:Database Password=databasePassword;
| |
|
EXCEL の1行目を列のタイトルとしたく無い時は以下の文字列を追加します
|
Extended Properties="Excel 8.0;HDR=No;"
| |
|
|
Set cn = CreateObject("ADODB.Connection")
strConnection = "Provider=MSDASQL;DSN=dsnName;"
strConnection = strConnection & "UID=userName;"
strConnection = strConnection & "PWD=userPassword;"
cn.Open strConnection
| |
|
|
|