現在、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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
ADO&mdbで、リンクテーブルの作り方
Visual Basic(VBA)
-
文字列の後ろから必要分だけ削除したい。
Visual Basic(VBA)
-
VB.NETでテーブルを作成
Visual Basic(VBA)
-
-
4
VBのソース上からAccessのmdbファイルのクエリを呼び出す
Visual Basic(VBA)
-
5
accessのロック
その他(データベース)
-
6
共通モジュールでDBへの接続と利用方法
Visual Basic(VBA)
-
7
VB.NETで小数点以下の桁数を取得したい
その他(ソフトウェア)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessで別mdbのテーブルをコピー
-
VBとアクセスでSQL文に変...
-
DataGridの中身をDataSetにテー...
-
AccessからExcelへエクスポート...
-
『列名 '担当者CD' があいま...
-
HTMLのテーブルの行数が多くな...
-
アクセステーブル、リンクとロ...
-
DAOでフィールドのデータ型を変...
-
VB.NET データセットとADOレコ...
-
ExcelVBAからAccessMDB内のテー...
-
Excel複数シートをaccessへ一括...
-
COBOLのINVALID KEYが理解でき...
-
CSVファイルのエクスポートでソ...
-
DataGridViewに複数テーブルの...
-
★クリスタルレポートの元になる...
-
同一セッションIDのブラウザを...
-
ACCESS2010 実行時エラー 2766
-
ADO&mdbで、リンクテーブルの...
-
access2007 「#Deleted」
-
SQLを発行とは?クエリの作成と...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBとアクセスでSQL文に変...
-
Accessで別mdbのテーブルをコピー
-
他のMDBのテーブルに追加したい
-
SQLを発行とは?クエリの作成と...
-
手動または分散トランザクショ...
-
HTMLのテーブルの行数が多くな...
-
エクセルのテーブルを解除する...
-
ExcelVBAからAccessMDB内のテー...
-
Excel複数シートをaccessへ一括...
-
DataGridの中身をDataSetにテー...
-
CSVファイルのエクスポートでソ...
-
AccessからExcelへエクスポート...
-
.net 複数の主キーを設定する方法
-
『列名 '担当者CD' があいま...
-
COBOLのINVALID KEYが理解でき...
-
アクセステーブル、リンクとロ...
-
ACCESSのテーブル名をリストに...
-
MDBテーブルへの追加変更を教え...
-
【ADO】「Execute」を使うと...
-
ACCESS2010 実行時エラー 2766
おすすめ情報