ＴＸＴ形式のファイルをＭＤＢテーブルへ読み込むには？

解決

ぽろり 2007-02-27 01:26:43 No: 135518

VBでACCESSの操作について

ACCESS（ｍｄｂ）のテーブルのデータをテキストファイル（ｔｘｔ形式）に出力したのですが
これの反対で、テキストファイル（ＴＸＴ形式）をACCESSのデータに
インポートしたいのですが、できるのでしょうか？

ちなみにＡＣＣＥＳＳのデータをテキストファイルに出力したコードです。

Private Sub Command3_Click()

Dim DB As Database
Dim SQL As String

'顧客データのエクスポート
If Option2.Value = True And Option3.Value = True Then
'あらかじめ出力ファイルを削除
On Error Resume Next
Kill App.Path & "\kokyaku.txt"
On Error GoTo 0

'データベースオープン
Set DB = OpenDatabase("顧客契約2.mdb")

'テーブル内容をテキスト出力
SQL = " select * into [kokyaku.txt]" & _
      " in '" & App.Path & "' 'text;'" & _
      " from 顧客TBL;"



DB.Execute SQL
DB.Close
Set DB = Nothing

MsgBox "顧客データをエクスポートしました"

データのインポート（TXT形式からMDB形式）の仕方わかる方ご教授お願いします。

もげ 2007-02-27 02:04:22 No: 135519

http://support.microsoft.com/kb/410871/
http://support.microsoft.com/kb/262537/
などでどうでしょう？

ぽろり 2007-02-27 23:12:38 No: 135520

もげ様
ありがとうございます。
下記コードを参考にしようと思っております。
変えなければいけないところを変えて実際に動くか試してみようと思っているのですが,

Dim db As Database
  Dim sql As String
  Set db = DBEngine.Workspaces(0).OpenDatabase("Sample.mdb")
  sql = "SELECT * INTO [TextTable] FROM [TEXT;DATABASE=c:].ImportText.txt"   ←*ここがよくわかりません
  db.Execute sql
  db.Close

*矢印のコードなのですが、ここは、参照先のテキストファイルのフルパス名でよいのでしょうか？？

だれかわかる方教えてくださ〜い！！

ぽろり 2007-02-27 23:15:15 No: 135521

わかりにくいところがありましたので
訂正

FROM [TEXT;DATABASE=c:].ImportText.txt" ←*ここがよくわかりません

FROMから後をどのようにかけばいいのかわかるかた、お願いします。

もげ 2007-02-28 02:52:52 No: 135522

http://support.microsoft.com/kb/410871/
の関連情報から飛べますが、
http://support.microsoft.com/kb/408179/JA/
のほうがわかりやすいですかね。

ぽろり 2007-02-28 23:28:13 No: 135523

もげ様
できました！！

何度も
ありがとうございました！