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で質問しましょう!
似たような質問が見つかりました
- その他(データベース) pythonでsqlight勉強中、クエリー結果の利用法教えて下さい 1 2022/04/28 20:38
- Excel(エクセル) 【マクロ】エラーが発生⇒実行時エラー58既に同名のファイルが存在 5 2022/08/31 10:03
- FX・外国為替取引 MQL5にて謎のエラーが発生!だれか対処を教えてください! 1 2023/03/25 15:59
- オープンソース Excelファイルをデバッグしたい 4 2022/09/15 10:16
- Visual Basic(VBA) VBAでの共有パスにつきまして 1 2023/03/04 17:24
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- au(KDDI) 特定の画面を見るとスマホが固まります ご覧頂き有難うございます。 特定のページを見るとスマホが固まり 1 2023/08/21 19:29
- Gmail gmail から docomo メールに送信できません 4 2022/06/25 00:41
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 1 2022/06/18 21:20
- PHP phpでこの記述をもっと簡単に書く方法はないでしょうか…? 3 2022/11/16 19:57
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
アクセスのエラー「クエリには...
-
Access2000で抽出したデータに...
-
EXCELの外部データ取得ができない
-
Access 複数のクエリの結果を...
-
クエリーの有る無し判定
-
Me.FilterOn = True は先でも後で
-
access追加クエリ実行時の重複...
-
エクセルからアクセスの全ての...
-
DoCmd.RunSQL "DROP Query
-
Accessで納品書を作りたいです
-
アクセスで空白がグループ化さ...
-
ACCESSで追加クエリを連続実行...
-
【Access2003 VBA】クエリをエ...
-
VBAによるwebクエリ方法
-
Accessでユニオンクエリを作成...
-
レコード件数をファイル名にし...
-
AccessでSQL結果を直接csvに書...
-
Accessで進行状況インジケータ...
-
Accessのエラーについてです。
-
Accessで複数(200件程)の置換
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
アクセスのエラー「クエリには...
-
EXCELの外部データ取得ができない
-
yes/no型のチェックができない...
-
Access 複数のクエリの結果を...
-
access追加クエリ実行時の重複...
-
AccessでSQL結果を直接csvに書...
-
ACCESSのフィールドの表示順が...
-
アクセスで空白がグループ化さ...
-
Accessで複数(200件程)の置換
-
Accessのエラーについてです。
-
ログイン画面後のページの表取...
-
ACCESSでメッセージにクエリ結...
-
Access2000で抽出したデータに...
-
Access 0で除算(並べ替...
-
Accessでユニオンクエリを作成...
-
Accessで進行状況インジケータ...
-
ACCESS テーブル内の列...
-
アクセスのフォーム単票形式の...
-
Access複数のクエリをExcelの1...
-
パススルークエリからデータシ...
おすすめ情報