※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

Option Compare Database
Option Explicit

Const strDbAdd = "c:\db1.db"

Private Sub コマンドボタン01_Click()

  Dim cn As New ADODB.Connection
  Dim rs As New ADODB.Recordset
  Dim strSQL As String

  strSQL = "select * from T_sample" 'ここで条件検索用のSQL作成

  cn.Open CurrentProject.Connection '内部MDBの場合
  'cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbAdd '外部MDBの場合

  rs.CursorLocation = adUseClient
  rs.Open strSQL, cn, adOpenForwardOnly, adLockReadOnly

  Set Me.Recordset = rs.Clone '自フォームの場合
  'Set Me.サブフォーム名.Controls.Parent.Recordset = rs.Clone 'サブフォームの場合

  rs.Close: Set rs = Nothing
  cn.Close: Set cn = Nothing

End Sub