「条件検索」の編集履歴（バックアップ）一覧はこちら

「条件検索」(2013/07/15 (月) 14:21:06) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

全て表示
#blockquote{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"

  cn.Open CurrentProject.Connection &color(black,aqua){'内部MDBの場合}
  'cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbAdd &color(black,aqua){'外部MDBの場合}

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

  Set Me.Recordset = rs.Clone &color(black,aqua){'自フォームの場合}
  'Set Me.サブフォーム名.Controls.Parent.Recordset = rs.Clone &color(black,aqua){'サブフォームの場合}

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

End Sub}

#blockquote{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" &color(black,aqua){'ここで条件検索用のSQL作成}

  cn.Open CurrentProject.Connection &color(black,aqua){'内部MDBの場合}
  'cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DbAdd &color(black,aqua){'外部MDBの場合}

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

  Set Me.Recordset = rs.Clone &color(black,aqua){'自フォームの場合}
  'Set Me.サブフォーム名.Controls.Parent.Recordset = rs.Clone &color(black,aqua){'サブフォームの場合}

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

End Sub}