ADOでAccessに接続するには？ (ID:105412)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 接続方法 例１： Dim db As ADODB.Connection Dim rs As New ADODB.Recordset Dim rs_Name As String Set db = CurrentProject.Connection rs_Name = "使用レコード名" rs.Open db_Name, db, adOpenStatic, adLockOptimistic 例２： Dim db As New ADODB.Connection Dim rs As New ADODB.Recordset Dim rs_Name As String db.Properties("Data Source") = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=N:\XXXXX.mdb;User ID=Admin;Password=;" db.Open rs_Name = "使用レコード名" rs.Open db_Name, db, adOpenStatic, adLockOptimistic