
No.1ベストアンサー
- 回答日時:
こんにちは。
わたしの独学の範疇で書きます。前提条件は、Excel2000、Access2000、ADOでコネクションを作成します。
参照設定は以下で、*.* はバージョンです。
'Microsoft ActiveX Data Object *.* Library
'Microsoft ADO Ext. *.* for DDL and Security
Sub test()
Dim adoCN As ADODB.Connection
Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
Dim proc As ADOX.Procedure
Set adoCN = New ADODB.Connection
With adoCN
.CursorLocation = adUseClient
.ConnectionString = "/*接続文字列*/"
.Open
End With
Set cat = New ADOX.Catalog
Set cat.ActiveConnection = adoCN
’アクセスで作成したクエリから探す
For Each tbl In cat.Tables
With tbl
Select Case .Type
Case "TABLE"
Case "LINK"
Case "VIEW"
If .Name = "/*クエリ名*/" Then
'/*発見処理*/
MsgBox "Hit"
Exit For
End If
End Select
End With
Next
’コードで作成したクエリから探す
For Each proc In cat.Procedures
With proc
If .Name = "/*クエリ名*/" Then
'/*発見処理*/
MsgBox "Hit"
Exit For
End If
End With
Next
Set cat = Nothing
adoCN.Close
Set adoCN = Nothing
End Sub
検索が2段構えになってます。SQL文で作成したクエリが、
1段目で拾えなかったので2段目を追加してます。
既存と同名のクエリは作成できないと思います。
上記の発見処理に削除を追加して、新規に同名で作成してみては?
この回答へのお礼
お礼日時:2005/03/29 17:34
早速の回答ありがとうございました。
ADOは使ったことがないのですが、同名クエリーを
見つけて削除するという流れはDAOでも同じですよね。
早速試してみます。
No.2
- 回答日時:
昔、使っていたやつです
参照設定でDAOが必要です
'-------------------------------------------------------------
'クエリ更新
'
'-------------------------------------------------------------
Public Sub UpdateQuery(strQueryName As String, strSQL As String)
Dim Dbs As DAO.Database
Dim Qdf As DAO.QueryDef
'データベース設定
Set Dbs = CurrentDb
'QueryDefs コレクションを更新する
Dbs.QueryDefs.Refresh
'クエリが存在する場合は、削除する
For Each Qdf In Dbs.QueryDefs
If Qdf.Name = strQueryName Then
Dbs.QueryDefs.Delete Qdf.Name
End If
Next Qdf
'クエリ作成
Set Qdf = Dbs.CreateQueryDef(strQueryName, strSQL)
Set Dbs = Nothing
End Sub
この回答へのお礼
お礼日時:2005/03/29 17:39
回答ありがとうございます。
DAOのほうが使い慣れているので、
身近に感じました。
肝の部分は、FOR NEXTで検索するところですよね。#1と併せて参考にさせていただきます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
アクセスのエラー「クエリには...
-
access追加クエリ実行時の重複...
-
Access2000で抽出したデータに...
-
ACCESSのフィールドの表示順が...
-
ログイン画面後のページの表取...
-
yes/no型のチェックができない...
-
アクセスのフォーム単票形式の...
-
パススルークエリからデータシ...
-
EXCELの外部データ取得ができない
-
Access 複数のクエリの結果を...
-
エクセルからアクセスの更新ク...
-
日付型のフィールドに空白を入...
-
差込印刷での全角表示について...
-
アクセス・テーブルの改行につ...
-
SQL文で パラメータが少なすぎ...
-
2つのテーブルに共通するレコ...
-
エクセルにおける「フィールド...
-
Accessの桁区切りについ...
-
ACCESS 「パラメータの入力」...
-
ACCESS クエリの抽出条件に他の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
アクセスのエラー「クエリには...
-
EXCELの外部データ取得ができない
-
Access 複数のクエリの結果を...
-
アクセスで空白がグループ化さ...
-
yes/no型のチェックができない...
-
access追加クエリ実行時の重複...
-
ログイン画面後のページの表取...
-
AccessでSQL結果を直接csvに書...
-
ACCESSのフィールドの表示順が...
-
Access複数のクエリをExcelの1...
-
Accessで進行状況インジケータ...
-
Accessのエラーについてです。
-
Accessの組込み関数について
-
Accessでユニオンクエリを作成...
-
Accessで複数(200件程)の置換
-
accessである「キーワードの種...
-
ACCESS レポートをテーブルへ
-
Excel VBAでWebクエリ更新
-
アクセス ADO レコードの件数...
-
ACCESS テーブル内の列...
おすすめ情報