現在、VB.NET上で操作し、Accessのテーブルのリンクをしているのですが、
リンク処理の直後に、最後にテーブルのリンク処理をしたテーブルを
開こうとすると、
「要求された名前、または序数に対応する項目がコレクションで見つかりません。」という
エラーが出ます。
なお、リンクしたテーブルには、きちんと正しいリンクで開こうとしたテーブルが登録されています。
それで、最後にリンクしたのが悪いのかと思い、順番を変えると、
そのエラーは起こらずに通常に起動しました。
ですが、順番を変えただけで普通に動く、というのが
なんだか腑に落ちません。(まあ、無事に動いているのでいいのですが(汗 )
以下にリンク処理を記載します。
何故、このようなことが起こるのかわかる方いらっしゃいましたら、ご教授お願い致します。
予想でもかまいません。
Public Sub DBLink()
LFlag = False
Dim rs As ADODB.Recordset = New ADODB.Recordset
Dim Sql As String = String.Empty
Dim dbPName As String = String.Empty
Dim tName() As String
'リンク先のパスを指定
Dim f As New frmLinkPath
f.ShowDialog()
f.Close()
f = Nothing
'パスを指定したか否か
If LFlag Then
'TMPのパスは固定
dbPName = PathLast(Application.StartupPath) & "TMP.mdb"
'リンクするテーブル名を取得
'mdbLには、テーブル名がカンマ区切りで入っています
tName = mdbL.Split(",")
'リンク先のテーブルを削除
For i = 0 To tName.Length - 1
Sql = "DROP TABLE " & tName(i)
rs.Open(Sql, cn)
Call SLink(tName(i), dbPName)
Next
dbPName = PathLast(DBPath) & "MST.mdb"
'リンクするテーブル名を取得
tName = mdbS.Split(",")
'リンク先のテーブルを削除
For i = 0 To tName.Length - 1
Sql = "DROP TABLE " & tName(i)
rs.Open(Sql, cn)
Call SLink(tName(i), dbPName)
Next
Else
MsgBox("リンク先が指定されなかったので、" & vbCrLf & "テーブルの再リンクをキャンセルします", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "")
End If
End Sub
''' <summary>
''' データベース再リンク
''' </summary>
''' <param name="psNm">リンクするテーブル名</param>
''' <param name="psMdb">リンク元データベース名</param>
''' <remarks></remarks>
Public Sub SLink(ByVal psNm As String, ByVal psMdb As String)
Try
Dim lodDb As dao.Database
Dim ltDef As dao.TableDef
Dim lsSource As String
Dim lsTarget As String
Dim daoE As New dao.DBEngine
'リンク先データベースとリンクデータベース名を指定
lsSource = psMdb
lsTarget = PathLast(Application.StartupPath) & "DATA.mdb"
'既存のデータベースの場合は OpenDatabase を使用する)
lodDb = daoE.OpenDatabase(lsTarget)
'任意の名前でテーブル定義を作成する
ltDef = lodDb.CreateTableDef(psNm)
'リンク先のテーブル名を指定する
ltDef.SourceTableName = psNm
'リンク先のデータベースを指定する(対象がMDBの場合セミコロンの前は省略)
ltDef.Connect = ";Database=" & lsSource
'定義したテーブルをアペンド(追加)する
lodDb.TableDefs.Append(ltDef)
lodDb.Close()
lodDb = Nothing
Catch ex As Exception
Debug.Print(ex.Message)
'Throw
End Try
End Sub
No.1ベストアンサー
- 回答日時:
Access2010のヘルプには
////////////////////
TableDefs.Refresh メソッド
指定されたコレクション内のオブジェクトを更新して、データベースの現在のスキーマを反映させます。
構文
式.Refresh
式 TableDefs オブジェクトを表す変数。
(以下割愛、続きはAccessのヘルプを。)
というのが有りますので
ここいら辺か
lodDb.TableDefs.Append(ltDef)
lodDb.TableDefs.refresh
この辺のどちらかに
Call SLink(tName(i), dbPName)
Next
lodDb.TableDefs.refresh
と追加してみたらどうでしょう?
保証の限りではございませぬ。。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Visual Basic(VBA) 貼り付けた値が消えていく 以下はソースファイルの2番目のシートのB6から最終行を取得 ターゲットファ 2 2023/07/27 12:23
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) ACCESS DAO で不要なテーブルのフィールド(列)の削除 4 2022/06/23 12:13
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Excel(エクセル) Excelにて、フォルダ内のTextファイルをマクロで統合すると文字化けしてしまう時の解消コード 4 2023/01/01 07:32
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
ADO&mdbで、リンクテーブルの作り方
Visual Basic(VBA)
-
文字列の後ろから必要分だけ削除したい。
Visual Basic(VBA)
-
【VB】タブ切り替え時のイベント
Visual Basic(VBA)
-
-
4
VB.NETでテーブルを作成
Visual Basic(VBA)
-
5
accessのロック
その他(データベース)
-
6
VBのソース上からAccessのmdbファイルのクエリを呼び出す
Visual Basic(VBA)
-
7
共通モジュールでDBへの接続と利用方法
Visual Basic(VBA)
-
8
VB.NETで小数点以下の桁数を取得したい
その他(ソフトウェア)
-
9
C#でaccdbファイルのテーブルの一覧を取得したいです。
C言語・C++・C#
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBとアクセスでSQL文に変...
-
他のMDBのテーブルに追加したい
-
DAOでフィールドのデータ型を変...
-
SELECT文 複数のテーブル参照...
-
HTMLのテーブルの行数が多くな...
-
DataGridViewに複数テーブルの...
-
アクセステーブル、リンクとロ...
-
手動または分散トランザクショ...
-
★クリスタルレポートの元になる...
-
Excel複数シートをaccessへ一括...
-
SQL同時実行違反
-
DataGridの中身をDataSetにテー...
-
ワークテーブルの作成について
-
AccessVBAコミットとロールバッ...
-
.net 複数の主キーを設定する方法
-
SQLを発行とは?クエリの作成と...
-
ACCESS2010 実行時エラー 2766
-
WORD VBA プログラム修正をお願...
-
Accessで宛名ラベルに同一宛先...
-
Access2003VBA リンクテーブル...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
WORD VBA プログラム修正をお願...
-
VBとアクセスでSQL文に変...
-
Accessで別mdbのテーブルをコピー
-
『列名 '担当者CD' があいま...
-
ExcelVBAからAccessMDB内のテー...
-
他のMDBのテーブルに追加したい
-
手動または分散トランザクショ...
-
SQLを発行とは?クエリの作成と...
-
DataGridViewに複数テーブルの...
-
CSVファイルのエクスポートでソ...
-
AccessからExcelへエクスポート...
-
エクセルのテーブルを解除する...
-
Excel複数シートをaccessへ一括...
-
HTMLのテーブルの行数が多くな...
-
COBOLのINVALID KEYが理解でき...
-
アクセステーブル、リンクとロ...
-
ACCESSのテーブル名をリストに...
-
ACCESS2010 実行時エラー 2766
-
DataGridの中身をDataSetにテー...
-
【ADO】「Execute」を使うと...
おすすめ情報