MDBへODBC接続テーブルをインポートし、主キーを作成する

Posted on 2007,6,14 木曜日 by @Links

返信

これも今回の仕事で必要になった件。
ローカルにあるMDBに別PCにあるOracleデータベースのテーブルをインポートするという仕様。

意外にもSQL文でインポートできてしまい楽な処理だった。
ただインポートしたテーブルにはキー情報が無いのでDAOでキー作成が必要。

これも参考になればと思いサンプルコードを下記に掲載。
※実際に組み込んだのはこのままじゃないですが(^^;;

'――――――――――――――――
'MDBへODBC接続テーブルをインポートし、主キーを作成するサンプル
'――――――――――――――――
Dim daoWS As DAO.WorkSpace
Dim daoDB As DAO.DataBase
Dim tblDef As DAO.TableDef
Dim tblIdx As DAO.Index ‘主キー追加用
Set daoWS = DBEngine.Workspaces(0)
Set daoDB = daoWS.OpenDatabase("C:\DB\Hoge.mdb") ‘リンクを作成するMDBを開く
'ODBC接続先のテーブルからローカルにデータをインポートする
strSQL = “SELECT * INTO hogeTbl " ‘インポート後テーブル名を指定
strSQL = strSQL & " FROM ODBC_hogeTbl " ‘インポートするODBCのテーブル名を指定
'インポートするデータベースへの接続設定(ODBCでＤＳＮを使い接続)
strSQL = strSQL & " IN " [ODBC;DSN=HogeDSN;UID=hoge;PWD=hoge;]; "
daoDB.Execute strSQL ‘SQL文を実行
'インポートしたテーブル名を指定
Set tblDef = daoDB.TableDefs("hogeTbl")
'主キーの設定を行う
Set tblIdx = tblDef.CreateIndex("PrimaryKey")
tblIdx.Primary = True ‘主キーフラグをオン
tblIdx.Fields.Append tblIdx.CreateField("Code") ‘主キーにするフィールド名
'テーブルにキーを追加
tblDef.Indexes.Append tblIdx
Set tblIdx = Nothing
Set tblDef = Nothing
daoDB.Close
daoWS.Close
Set daoDB = Nothing
Set daoWS = Nothing
Download this code: mdb_odbc_import_sample.txt

[`evernote` not found]

MDBへODBC接続テーブルのリンク作成

Posted on 2007,6,13 水曜日 by @Links

返信

今回の仕事でローカルにあるMDBに別PCにあるOracleデータベースのテーブルにリンクを張り、
参照するという仕様があった。

ODBC接続でリンクを張ること自体は簡単だったものの、リンク処理時にパスワードを保存して
次回そのリンクテーブルを利用する場合にパスワード確認をされないようにする必要があった。

パスワードを保存する方法を模索して見つけたので参考になればと思い
サンプルコードを下記に掲載。
※実際に組み込んだのはこのままじゃないですが(^^;;

肝はこの一行でした　↓
tblDef.Attributes = dbAttachSavePWD

'――――――――――――――――
'MDBへODBC接続テーブルのリンクを作成するサンプル
'――――――――――――――――
Dim daoWS as DAO.WorkSpace
Dim daoDB as DAO.DataBase
Dim tblDef as DAO.TableDef
Set daoWS = DBEngine.Workspaces(0)
‘リンクを作成するMDBを開く
Set daoDB = daoWS.OpenDatabase("C:\DB\Hoge.mdb")
Set tblDef = daoDB.CreateTableDef("Sales") ‘リンク後のMDBでのテーブル名
‘リンクするデータベースへの接続設定
tblDef.Connect = “ODBC;DSN=HogeDSN;UID=hoge;PWD=hoge;"
tblDef.Attributes = dbAttachSavePWD ‘リンクパスワードを保存する
tblDef.SourceTableName = “Sales" ‘リンク元のテーブル名
daoDB.TableDefs.Append tblDef ‘リンクテーブルを追加
Set tblDef = Nothing
daoDB.Close
daoWS.Close
Set daoDB = Nothing
Set daoWS = Nothing
Download this code: mdb_odbc_link_sample.txt

[`evernote` not found]

Oracle接続と奮闘

Posted on 2007,6,8 金曜日 by @Links

返信

すっかりブログの更新がご無沙汰状態になっていますが
GW明けから大きな案件が入っていて日々開発に追われてました。

その案件と次の案件は、あまり経験のないOracleに接続が含まれていて
開発する準備段階が実は結構手間取ってしまって。丸一日設定に奮闘してました(^^;;

OraHome92というミドルウェアでの接続でしたがネーミングメソッド、
ローカル・ネットサービス名の設定がうまく行かず何度もやり直し・・・
結局コツをつかんでしまえば楽なもんでしたが遠回りしましたねぇ～

でも遠回りした分二回目はスムーズに設定できたし、今後Oracle案件も少しは
こなせる自信がつきましたね。

また.NETにご無沙汰してしまったので取り戻しながら開発コードSHMも含めやっていこうと思います。

[`evernote` not found]