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
最終更新:2013年07月15日 14:21