接続

  SQLServer サンプル



  

Connectionオブジェクト
  
  

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
  

  

Recordsetオブジェクト
  
  

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
  



  その他の接続文字列



  

MDB,EXCEL
  
  

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;"
  


  

ODBC
  
  

Set cn = CreateObject("ADODB.Connection")
strConnection = "Provider=MSDASQL;DSN=dsnName;"
strConnection = strConnection & "UID=userName;"
strConnection = strConnection & "PWD=userPassword;"

cn.Open strConnection
  










  infoboard   管理者用   
このエントリーをはてなブックマークに追加





フリーフォントWEBサービス
SQLの窓WEBサービス

SQLの窓フリーソフト

素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ