| |
C:\Documents and Settings\sigemitu\デスクトップ\db1.mdbのフォームのボタンコントロールに下記のようなADOXコードを貼り付け、C:\Documents and Settings\sigemitu\デスクトップ\NorthWIND.MDBの社員テーブルから氏名フィールドを検索してNorthWIND.MDBにQ_新規クエリを作成するVBAコードをつくりました。
しかし、作成したばかりのNorthWIND.MDBのQ_新規クエリをdb1.mdbのフォームのボタンコントロールから表示するVBAコードがよくわかりません。下記コードにどのようなステートメントを追加したらよいのかどなたか教えて下さい。
Private Sub コマンド0_Click()
Dim cn As New ADODB.Connection
Dim cmd As ADODB.Command
Dim Cat As New ADOX.Catalog
Dim strSQL As String
Dim strKeyword As String
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Documents and Settings\sigemitu\デスクトップ\NorthWIND.MDB"
cn.Open
Cat.ActiveConnection = cn
strKeyword = InputBox("氏名を指定して下さい", "氏名入力")
'氏名の途中に「川」がある社員
strSQL = "SELECT * FROM 社員 WHERE 氏名 LIKE '*" & strKeyword & "*'"
Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandText = strSQL
'既存クエリ削除
On Error Resume Next
Cat.Views.Delete "Q_新規クエリ"
On Error GoTo 0
'Viewsコレクションに新規View(クエリ)を追加
Cat.Views.Append "Q_新規クエリ", cmd
cn.Close
Set cmd = Nothing
Set cn = Nothing
Set Cat = Nothing
End Sub
|
|
しん
- 04/7/29(木) 0:14 -
