• 締切済み

Access 2000 VBA リンクテーブル

Access 2000 VBAでシステム開発を行っております。 Oracle 7 と接続してリンクテーブルを作成しています。 通常は問題なく動作するのですが、 Access のフォーム上にボタンを配置して、あるボタンがクリックされたら、 リンクテーブルの参照先を変更して、リンクテーブルを再作成するといったことを 行おうと考えております。 しかし、ソース上でリンクテーブルの参照先を変更しても、 元の参照先でリンクテーブルが作成されてしまい、大変困っております。 どなたか本現象について分かられる方がいらっしゃいましたらご回答のほど 宜しくお願いいたします。 以下がリンクテーブル作成時のソースになります。 Function Create_odbc_table(str_OraTblName As String, str_mdbTblName As String) As Long On Error GoTo Create_odbc_table_Err Create_odbc_table = True Set DBS = CurrentDb DBS.TableDefs.Delete Trim(str_mdbTblName) DBS.TableDefs.Refresh Set tdfA = DBS.CreateTableDef(Trim(str_mdbTblName)) tdfA.Connect = "ODBC;DSN=" & DSN_NAME & ";UID=" & Oracle_UID & ";DBQ= " & Trim(TNS) & ";ASY=OFF;PWD=" & Oracle_PWD & ";TABLE=" & Trim(str_OraTblName) tdfA.SourceTableName = Trim(str_mdbTblName) DBS.TableDefs.Append tdfA DBS.Close end function

みんなの回答

  • danslarue
  • ベストアンサー率30% (4/13)
回答No.2

こちらではDelete Create しないで Connect に再代入する方法を行っています。 tdf.Connect = <接続文字列> tdf.Attributes = dbAttachSavePWD tdf.RefreshLink Access 2003, postgreSQL または SQLServer で実施しています。 Oracleだとうまくいかないと言うことはないと思います。 どこかで例外が発生していませんか。

  • bin-chan
  • ベストアンサー率33% (1403/4213)
回答No.1

> On Error GoTo Create_odbc_table_Err の飛び先が無いところを見ると、かなり端折ってる？ Deleteは成功してるのかな？ STEP実行して、一行ずつ結果を確認してみては？

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • Access 外部MDBのリンクテーブルの変更

    お世話になってます。 Access2007へ移行のため、移行用のmdbを作成し、移行する既存のmdb群のMSysObjectsを変更しようとしています。 以下のようにVBAで自分のリンクテーブルの接続パスワードは変更できたのですが、同じく他のMDBを指定してリンクテーブルを変更する事は出来るでしょうか？ Dim dbs As DAO.Database Dim tdf As DAO.TableDef Set dbs = CurrentDb For Each tdf In dbs.Tabledefs 　　If Len(tdf.Connect > 0 Then 　　　　tdf.Connect=";PWD=" & strPWD 　'←リンクテーブルの接続PWDの変更 　　　　tdf.RefreshLink 　　End If Next よろしくお願い致します。

  • Accessから主キーの無いOracleテーブルにVBAで主キー設定付のODBC接続するには

    Oracle7--------------- Access97 Workgroup Server Release 7.3.2.2.1 TABLE_A----------------ODBC接続(リンクテーブル) 　　　 項目1 項目2 項目3 項目4 項目1～項目4は 空白レコードがあり 主KEYが張れない ******************************************************************** 主キーの作成出来ないオラクルテーブルがあります。 Access97からODBC接続を作成する時は (1)マニュアルであれば 　 対象テーブルに主キーが無ければ 任意の10項目を仮の主キーとして設定出来ますが (2)VBA(自動？）で リンク張ると Dim tab01 As TableDef 　Dim db01 As Database 　Dim strTABname As String strTABname = TABLE名 Set db01 = CurrentDb Set tab01 = db01.CreateTableDef(UserName & "_" & strTABname, dbAttachSavePWD) tab01.SourceTableName = UserName & "." & strTABname tab01.CONNECT = "ODBC;DSN=****;UID=" & UserName & ";PWD=" & Password & ";ConnectString=con;" db01.TableDefs.Append tab01 主キー設定の無いODBC接続が出来て 　 データの更新などが出来なくなります。 VBAでも仮の主キー設定付きのODBC接続は 　出来ないでしょうか？

  • Accessでのテーブルのコピー

    はじめまして、よろしくおねがいします。 リンクテーブルのバックアップテーブルを作りたいのですが、 Accessで出来るでしょうか？ Access2003にて、 「Create table TABLE_A as select * from TABLE_B;」 のクエリを実行しようとすると、 「CREATE TABLEステートメントの構文エラーです」 とエラーが出ます。 TABLE_Bテーブルは、他のDBからのリンクテーブルです。

  • テーブルのリンク（ACCESS)

    ACCESS2003で下記の記述で「実行時エラー　’3219’ 無効な処理です。」というエラーメッセージがでます。 外部mdbでテーブルをリンクさせるとこのエラーがでます。同じmdbファイルにデータテーブルを置くと問題なく処理できます。 参照設定も過去ログを見てチェックしています。 Dim dbs As DAO.Database Dim rst As DAO.Recordset Set dbs = CurrentDb Set rst = dbs.OpenRecordset("テーブル名", dbOpenTable) ACCESS97では何の問題もなかったのですが, 2003ではうまくいきません。 どうかよろしくお願いします。

  • アクセスのＶＢＡでテキストデータのリンクを更新したいのですが

    コードは以下ですが、リンクの更新がうまくいかず更新されずに終了 してしまいます。 Function RefreshLinks(strFileName As String) As Boolean '指定されたデータベースへのリンクを更新します。更新に成功した場合は、True を返します。 Dim dbs As Database Dim intCount As Integer Dim tdf As TableDef 'データベースの全てのテーブルをループします。 Set dbs = CurrentDb For intCount = 0 To dbs.TableDefs.Count - 1 Set tdf = dbs.TableDefs(intCount) 'tdf.connectがある場合、それはリンクテーブルです。 If Len(tdf.Connect) > 0 Then tdf.Connect = "text;databese=" & strFileName Err = 0 On Error Resume Next tdf.RefreshLink 'テーブルのリンクを更新します。 If Err <> 0 Then RefreshLinks = False Exit Function End If End If Next intCount RefreshLinks = True 'リンクの更新が完了しました。 End Function

  • AccessからDSNを使用しないODBCリンク

    AccessでOracleのテーブルにリンクしているテーブルがあります。 MSysObjectを開きこのテーブルのconnectの列を見ると以下のようになっているものがありますがこれはDSNを使用していないのでしょうか。 DRIVER={ORACLE ODBC DRIVER};SERVER=svrxxx;UID=USERxxx;PWD=xxx;DBQ=xxx; DBA=W;APA=T;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;FRL=F;PFC=10;TLO=O;DATABASE= DSNを使用していないのであればその設定の仕方はどのようにすればいいでしょうか。 Accessのバージョンは現在は2000ですが97の時に作成したもののようです。

  • Vbaでアクセスからエクセルにリンクテーブルする

    Vbaでアクセスからエクセルにリンクテーブルするには？ エクセルの情報： C:\Users\Desktop￥新規 Microsoft Excel ワークシート.xlsx シート１の情報： フィールド1　フィールド2 あああ　　　　ａａａ いい　　　　　iii ううう　　　　uuu なのですが、 アクセスからＶＢＡでリンクするにはどうすれば良いでしょう？ 手作業なら 外部データ→エクセル→外部データの取り込み→リンクテーブルを作成してソースデータにリンクする でリンクできますが、ｖｂａで行いたいです。 Sub Sample01() Dim db As DAO.Database, tb As DAO.TableDef Set db = CurrentDb Set tb = db.TableDefs("Sheet1") tb.Connect = ";DATABASE=" & CurrentProject.FullName & ";TABLE=Sheet1" tb.RefreshLink ' リンク情報の更新 End Sub このコードは意味が違いますよね エクセルのパスとシート名を指定してリンクする方法を教えてください。 最終定期にはシートをループして複数のテーブルを作成したいのです。 リンクが無理ならインポートでもＯＫです。

  • access　ODBCリンクテーブルの作り方

    　自分のPCで、あるaccessの業務システムを作成し、それを数人で共有してデータの入力をするようにする為に、ODBCリンクテーブルというものを作る必要があると思っています。 　既存で業務的に違う別のシステムがあり、そこでODBCリンクテーブルというものは使用しています。（退職した前担当者が作成。） 　ODBCリンクテーブルというものは、どのうようにして作るのですか？ 　（地球マークのテーブルです。）

  • Accessのリンクテーブルについて

    Access2000を使用しているのですが、SQLServerのＤＢをリンクしなければいけないのですが、ＯＤＢＣを使用せずにリンクさせる方法はあるのでしょうか？ またはモジュールでコードを記述してリンクテーブルを作成する方法でもかまわないのですが・・・。 作成したAccessを配布したＰＣにＯＤＢＣを設定するのが面倒なのですが・・・。 なにかいい方法があるのか教えていただきたいです。

  • ACCESSでリンクテーブルへINSERTするのは？

    的外れな質問だったら申し訳ありません！！（涙） どなたか教えてください！！！（泣） リンクテーブルにInsertを行いたいのです！ 現在こういうコードになっています。↓ ※InterBase5.0/ACCESS2000を使用しています。 ※ユーザーIDなどは別の関数で取得して文字列変数で帰ってきます。 Public G_Wksp As Workspace Public G_openDb As Database Set G_Wksp = CreateWorkspace("", sUID, sPWD, dbUseODBC) Set G_openDb = G_Wksp.OpenDatabase(sDSN, , False, _ "ODBC;DATABASE=" & sDb & ";UID=" & sUID & ";PWD=" &　sPWD & ";DSN=" & sDSN) で、つないで、 G_Wksp.BeginTrans G_openDb.Execute "Insert_SQL文１" G_openDb.Execute "Insert_SQL文２" G_openDb.Execute "Insert_SQL文３" ３つとも正常終了だったら　…　G_Wksp.CommitTrans 'コミット どれか異常終了だったら　　…　G_Wksp.Rollback 'ロールバック で、Insertしています。 INSERTはちゃんとされているのですが…エラー発生時にロールバック処理がされていないのです…（汗） どこが変なのか教えていただけないでしょうか…（泣） イイ方法教えてください。よろしくお願いします！

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する