人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

accessについて教えてください。a.mdb,b.mdbと2ファイルあります。a.mdbにフォーム、b.mdbにテーブルがあります。a.mdbでDoCmd.TransferText acImportDelim, , ABC, LV_Filename(LV_i), Trueすると当然ですが、a.mdbにデータがインポートされます。これをb.mdbに作ったABCテーブルにデータをインポートさせるにはどのように命令を書いたらよいでしょうか?

●質問者: akaired
●カテゴリ:コンピュータ ウェブ制作
✍キーワード:ABC access MDB インポート データ
○ 状態 :終了
└ 回答数 : 3/3件

▽最新の回答へ

1 ● fester
●27ポイント

b.mdbのABCテーブルを

a.mdbにリンクテーブルで作成し、

そのリンクテーブルに対して同コマンドを実行すれば良いと思います。

http://www.serpress.co.jp/access/no001.html

http://c108xswz.securesites.net/PC-Support/FAQ/acc/ht/acc032002h...


2 ● SALINGER
●27ポイント

TransferDatabaseを使えばいいです。

http://msdn.microsoft.com/ja-jp/library/cc379080.aspx


 DoCmd.TransferDatabase acExport, "Microsoft Access", bmdbPath, , "ABC", "ABC"

説明するまでもないけど、bmdbPath はb.mdbのパスです。

◎質問者からの返答

こんにちは。うまくデータをインポートできません。下記のコードはa.mdbのVBAです。b.mdbには書籍テーブル、見本テーブルがあります。このコードで実行するとテーブルが見つかりませんというメッセージが表示されます。どこが悪いでしょうか?

Path As String

Path2 As String

GetData As DAO.Database

OpenData As DAO.Database

Path="C:\Documents and Settings\me\デスクトップ\b.mdb"

Path2="Path="C:\Documents and Settings\me\デスクトップ\abcd.csv"

'OpenDatabaseメソッドでb.mdbの接続。

Set GetData=OpenDatabase(Path)

Set OpenData=GetData.OpenRecordset("書籍",dbOpenDynaset)

'Path2にCSVファイルがある。これを書籍テーブルにインポートしたい。

'CSVの1行目はフィールド名なので飛ばしたい。2行目からの読み込みがさせたい。

DoCmd.TransferText acImportDelim, , 書籍, Path2, True

Set GetData=Nothing

Set OpenData = Nothing

end sub


3 ● fester
●26ポイント

前者を勧めますが、こういう方法もあります。


 Dim ac
 Set ac = CreateObject("Access.Application")
 ac.Visible = False
 ac.OpenCurrentDatabase "c:\b.mdb", True
 
 ac.DoCmd.TransferText acImportDelim, , ABC, LV_Filename(LV_i), True
 
 ac.Quit
 Set ac = Nothing

◎質問者からの返答

こんにちは。うまくデータをインポートできません。下記のコードはa.mdbのVBAです。b.mdbには書籍テーブル、見本テーブルがあります。このコードで実行するとテーブルが見つかりませんというメッセージが表示されます。どこが悪いでしょうか?

Path As String

Path2 As String

GetData As DAO.Database

OpenData As DAO.Database

Path="C:\Documents and Settings\me\デスクトップ\b.mdb"

Path2="Path="C:\Documents and Settings\me\デスクトップ\abcd.csv"

'OpenDatabaseメソッドでb.mdbの接続。

Set GetData=OpenDatabase(Path)

Set OpenData=GetData.OpenRecordset("書籍",dbOpenDynaset)

'Path2にCSVファイルがある。これを書籍テーブルにインポートしたい。

'CSVの1行目はフィールド名なので飛ばしたい。2行目からの読み込みがさせたい。

DoCmd.TransferText acImportDelim, , 書籍, Path2, True

Set GetData=Nothing

Set OpenData = Nothing

end sub

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ