Access　schema.ini使用方法について

Question

テキストファイルをAccess2003を使用しVBAでインポートする為に、schema.iniを作成しましたがエラーが発生してしまいます。

テキストファイルとschema.iniを同じフォルダ内に置いて解決すると思っておりましたが、何か他に指定する事などあったのでしょうか？

ファイルは省略してますが次のようになります。

▼テキストファイル
A100000B5400ファンデーション
A200000K3800化粧水

▼schema.ini
[商品マスタ.txt]
ColNameHeader=False
MaxScanRows=0
CharacterSet=932
Format=TabDelimited
Col1=商品番号 Text
Col2=販売価格 Currency
Col3=商品名 Text

▼VBA該当箇所
DoCmd.TransferText acImportDelim, , "商品マスタ", "C:\商品マスタ.txt", True

上記設定でインポートを試みたところ、実行時エラー '2391':が発生しうまく処理できませんでした。

因みに、インポートウィザードを使用した場合と、第二引数にインポート定義を指定した場合は問題なくインポートできます。

色々検索はしたものの解決策が見つからない為質問しました。
ご存知の方がいらっしゃいましたらご教示いただければ幸いです。

chayamati · Accepted Answer

今回の課題は、テキストファイルの短縮だったのですが、
直接の回答が出来なかったですが、回答をよく理解下さったようで
答えに力が入り、自分も色々勉強させていただきました。

chayamati · Answer

＞DoCmd.RunSQL ("Insert Into 商品マスタ(商品番号,商品名,メーカーコード, "

これは命令文の１部分です
  DoCmd.RunSQL ("Insert Into 商品マスタ(商品番号,商品名,メーカコード, " _
    & "ブランドコード,重要成分コード,大分類コード,販売価格,廃番フラグ,更新日) " _
    & " Select 商品番号,商品名,メーカコード,ブランドコード,重要成分コード, " _
    & "大分類コード,販売価格,廃番フラグ,更新日 From 商品M中継 ;")
上記４行が一つになって１つの命令文になりますが、これを分割して文字列結合します。
分割した文字列の末尾に ＿(アンダーバー)を付けて続きがあることを明記します。
文字列の文頭に 文字列結合記号の＆を付けます。

＞調べてもRTN()が何を意味しているのか分からなかった為、手詰まりとなりました…
＞予想では、そのVBAのすぐ上にある「Private Sub 商品マスタインポート_Click()～End Sub」までの式を利用してという意味なのでしょうか。
概念的にはメインプログラムとサブプログラム(サブルーチン）があると考えて下さい
RTNは【 routine 】の子音を抜き出したもので
自分だけかもしれませんがメインプログラム名と同じ名前は使えないのでRTNを付加しています。
メインプログラムの命令文が多くなりすぎると、見直し「デバッグ」が大変なので
一部分を抜き出してサブプログラムにしたり、他のプログラムで同じ処理があるときは
サブルーチンは共有目的で作成することもあります。

プログラムの１塊は
Private Sub 商品マスタインポート_Click()
    DoCmd.SetWarnings False
    If MsgBox("商品マスタ再インポート", vbYesNoCancel) = 6 Then
        商品マスタインポートRTN
   Else
        MsgBox ("取り消し")
    End If
End Sub
のように Private Sub プログラム名 _ イベント名()で始まり End Subで完成しますね

Private Sub 商品マスタインポートRTN()
    DoCmd.SetWarnings False
    DoCmd.RunSQL ("delete from 商品M中継;")
    DoCmd.RunSQL ("delete from 商品マスタ;")
    DoCmd.TransferText acImportDelim, , "商品M中継", "D:\okwave\テキスト\商品マスタ.txt", True
    DoCmd.SetWarnings True
    DoCmd.RunSQL ("INSERT INTO 商品マスタ SELECT 商品M中継.* FROM 商品M中継 ; ")
    MsgBox ("商品マスタ 再インポート完了")
    DoCmd.SetWarnings False
End Sub
こちらは  Private Sub プログラム名 ()   とイベント名が欠落しています。
他のプログラムから呼び出してもらいます。
Private Sub 商品マスタインポート_Click()の中の 商品マスタインポートRTN が呼び出す処理です。

今回はif文の一部にするのが嫌で、サブルーチン方式にしました。

突然ですが、変数の暗黙の宣言が規定値になっています。
「メーカコード」と「メーカーコード」で苦労されましたね
暗黙の宣言を禁止する設定があります。
【VBE】コーディング画面のメニューバーから
【ツール】⇒【オプション】⇒【変数の宣言を強制するにチェック】⇒【ＯＫ】

------------------------------------------------------
先が見えたようなので、こちらからの積極的なアドバイスはここまでにします。

chayamati · Answer

御無沙汰しました。

もっと早く気付けばよかったのですが
受け取ったテキストファイルのデータを疑うことはしませんでした。
提供先でのテキストファイル生成の行程でミスの可能性があるのでは
この工程の中に人手の作業が入っていれば…

そこで、受取ったテキストファイルは取り敢えずACCESSのテーブルに全て
インポートして、これを正規のテーブルに移行したいと思います。
元のテーブル名の末尾に【PRE】を付加した次のテーブルを作成して下さい。
元のテーブルをコピペして作成しますので、フィールド名とデータ型が
同じものが出来ます。
・出来たテーブルから主キーを外します。
・フィールドプロパティーのインデックス設定されているものはインデックスなし
・ルックアップは以前外すようにと言いましたが誤りでした。変更しなくてよいです。
・もし【商品マスタ中継】のように中継テーブルがあれば【商品マスタPRE】と改名
・これらのテーブルにリレーションシップはなしです。
-----------------------------------
新規に用意するテーブル
【商品マスタPRE】、【カテゴリPRE】、【カテゴリ関連PRE】、【メーカーPRE】、
【ブランドPRE】、【成分PRE】、【成分関連PRE】、【説明PRE】、【HOGEPRE】
---------------------------------

尚、
・商品マスタテーブルには【匿名１０】～【匿名３７】の２８フィールドを追加しています。
・カテゴリー関連テーブルに大分類コード、中分類コード、小分類コードの
　３つのフィールドを追加しました。

chayamati · Answer

> 1.3. ⇒【その他の項目を初期状態にする】
その他の…とは、商品番号の他の全ての項目の事でしょうか？
 初期状態にするとは、データ型の事でしょうか？
よく分からなかった為、商品番号を主キーにした以外はそのままの状態にしました。
------------------------------------------------------
主キーにすると重複が許されません、そのためこれを回避するために外します。
インポートできたテキストファイルは変更する必要は無いのですが、
インポートできていないテーブルについては、それぞれ主キーの無い
複製(例えば 商品M中継）を作ってこれにインポートしてはどうかと…
　　初期状態：すみません 表現が悪かったです。
　　テーブル設計の時フィールドのプロパティは数値、テキストだけにして
　　その他のプロパティは規定値のまま

> 1.4.テーブルルックアップを外す
 すみません、ルックアップしている項目がどのテーブルにも存在していませんでした。
いつぞやルックアップの設定方法を教えて頂いた事は覚えているのですが…
覚えていらっしゃったら、どの項目が何をルックアップしていたのか教えて頂けますでしょうか？

こんな状態ですが、VBAを差し替え後、商品マスタをインポートしてみたところ「パラメータの入力」と小窓が出現しメーカーコードを求めてきました。
-----------------------------------------------------------------
このメーカコードはルックアップ設定しています。テキストボックスに変更して下さい。

その他 商品マスタの ブランドコード、重要成分コード、大分類コード 等もルックアップの対象です。

また１:∞のリレーションの∞側の項目は１側のテーブルをルックアップの対象です。
【説明】【HOGE】の商品番号も例外ではありません。

30246kiku · Answer

＃１です

現在 Yahooメールの障害のため、補足等あった通知を受け取る事が出来ていないのですが・・・

> テーブルに追加する時には、
>
> INSERT INTO 追加先テーブル名
> FROM [商品.txt] In 'フォルダパス'[Text;FMT=Delimited];

この記述は嘘ですね。その前の記述につられました

INSERT INTO 追加先テーブル名
SELECT * FROM [商品.txt] In 'フォルダパス'[Text;FMT=Delimited];

でしょうか・・・

> ダブルクォーテーション以降がインポートされなかった為

Schema.ini 内の指定に、テキストを " で区切るか・・・という指定があったと思うので
色々いじってみてください。

TextDelimeter=none　とか　TextDelimeter="　とか？

でも、リンクテーブルが出来たのであれば、もし、遅くて使えないとかになったら
リンクテーブルから、正式なテーブルへ INSERT INTO しても良いかも

後は、mdb １つで何でもやろうとはしないで、
この mdb は txt を取り込んで正式テーブルに展開するだけ・・・　という作り方でも良いのかも？？

30246kiku · Answer

前のご質問は完結したと思って良いのでしょうか。
リンクテーブルにした際の結果報告を待っていたのですが・・・

というのは置いといて、

良く知りませんが、schema.ini 内の
・記述の仕方
・DoCmd.TransferText の指定方法
は、あっているのでしょうか？

・schema.ini 内のテキスト型の記述は、 Char Width 255　とかの様な気がするし
・DoCmd.TransferText では、ヘッダ（見出し）あり指定の様だけど、
　schema.ini ではヘッダはない・・・となっているようだし・・・
　どちらが優先されるんでしょう

さて、私は我流なので、ここからは嘘が多くなるかも・・・
schema.ini を使う時には、DoCmd.TransferText　は使いません。
（使い方があるのかもしれませんが、私は???）

テーブル「★★」にインポートするとした場合、基本となる「★★」を作っておきます。
１度、インポートしてみるでも良いですし、
読み込むフィールド順で手作業で作っても良いです。

そのテーブルに対して以下クエリを実行すると、基本となる schema.ini が出来上がります。

SELECT * INTO [ファイル名] IN 'フォルダパス'[Text;FMT=Delimited;HDR=Yes]
FROM ★★;

ファイル名：仮のテキストファイル名
フォルダパス：そのテキストファイルが出来上がるフォルダのパス

ファイル名を「a.txt」、フォルダが「D:\Hoge」なら

SELECT * INTO [a.txt] IN 'D:\Hoge'[Text;FMT=Delimited;HDR=Yes]
FROM ★★;

これで、「D:\Hoge\a.txt」ファイルにテーブル内容が吐き出されます。
（既にそのファイルが存在した時にはエラーになりますけど・・・）
この時、D:\Hoge\schema.ini 内は

[a.txt]
ColNameHeader=True
CharacterSet=932
Format=CSVDelimited
Col1=an Integer
Col2=区分 Char Width 5
Col3=コード LongChar Attribute 32

の様な感じで・・・
それを本物のファイル用に修正していきます。

[商品.txt]
ColNameHeader=False
CharacterSet=932
Format=TabDelimited
Col1=an Long
Col2=区分 Char Width 5
Col3=コード Memo

ヘッダ（見出し）はありませんよ
タブ区切りですよ・・・
とかに変更して・・・・

取り込む時のクエリ記述では、
テーブルを作る時には

SELECT * INTO 作成テーブル名
FROM [商品.txt] In 'フォルダパス'[Text;FMT=Delimited];

テーブルに追加する時には、

INSERT INTO 追加先テーブル名
FROM [商品.txt] In 'フォルダパス'[Text;FMT=Delimited];

とか・・・（未検証）

※ 余談

テキストファイルをリンクテーブルとして設定すると、定義情報
（インポート/エクスポートでも同じなのかは？）が、システムファイルに作成されるようです。

SELECT * FROM MSysIMEXSpecs;

とか

SELECT * FROM MSysIMEXColumns;

で確認できると思います。あわせて、
リンクテーブルの TableDef 内、Connect の文字列を合わせたもので、
schema.ini を作成できるかと・・・
（逆・・・かも、schema.ini の内容を上記３つに分けて持たせたのかも・・・）
（それがあったから、DoCmd.TransferText が出来上がったのかも？）

※ テキストファイル内の区切り文字は、安易に変更すべきではないと思っています。
区切り文字に何を使うかは意図があったはずで、それを確認するのが最初かと・・・
個人的にはそう思います。

なお、テキストファイルをリンクテーブルにした際、
そのフィールドに定義した型と異なるデータ部分は
・テーブル内容を表示した時には　#Num!　の様な表示に・・・
（数値部分に数字以外の文字があったとか）
・Recordset としてアクセスした時には Null
で、判別できたような・・・

Access schema.ini使用方法について

今回の課題は、テキストファイルの短縮だったのですが、

＞DoCmd.RunSQL ("Insert Into 商品マスタ(商品番号,商品名,メーカーコード, "

御無沙汰しました。

この回答への補足

> 1.3. ⇒【その他の項目を初期状態にする】

この回答への補足

＃１です

前のご質問は完結したと思って良いのでしょうか。

この回答への補足

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

Access　schema.ini使用方法について