[delphi-users:3014] ADOでdbfファイルを読み込むとエラー

[イチゴとナス]

お世話になります。
以前DEKOさんのご助言をきっかけにADOを使い，dbfファイルを読み込む下記のようなスタンドアロンプルグラムを作りました。自分のパソコンで使っている分には問題はないのですが，delphiのインストールされていない別のパソコンで実行すると
　　　オブジェクトxxxx（dbfファイル名）が見つかりませんでした。
というエラーが発生します。どうもパスが通らないようで色々試してみましたが，解決策がみつまりません。ご助言を頂けましたら，ありがたいです。よろしくお願いします。
　開発環境はWin7　Pro 32/Delphi XE3 Proです。

　　　　　　　　　　　　記

procedure TForm1.Opendbf(FL: string);
var
ADOC: TADOConnection;
ADOQ: TADOQuery;
DatabasePath: string;
i,m:integer;
begin
// データベースパス
DatabasePath := ExtractFileDir(FL);

// dbGo の設定
ADOC := TADOConnection.Create(nil);
ADOQ := TADOQuery.Create(nil);

try
ADOC.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;'+
'Data Source='+DatabasePath+
';Extended Properties=dBASE IV';

ADOQ.ConnectionString := ADOC.ConnectionString;

// 接続
ADOC.Connected := True;

// クエリ発行
with ADOQ do begin

SQL.Clear;
SQL.Add('Select * From '+ExtractFileName(FL));
Open;

m:=Fields.Count;
with Combobox1 do begin
Items.Clear;
for i := 0 to m-1 do
Items.Add(Fields[i].FieldName);
Itemindex:=0;
end;

Close;
end;

// 切断
ADOC.Connected := False;

finally
ADOQ.Free;
ADOC.Free;
end;
end;


MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
メンバーで使える掲示板を活用しよう！
http://ad.freeml.com/cgi-bin/sa.cgi?id=j68AM
------------------------------------------------------[freeml byGMO]--

[DEKO]

こんにちは。
ファーストインプレッションですが、

> ADOC.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;'+
> 'Data Source='+DatabasePath+
> ';Extended Properties=dBASE IV';

コレ、64bit Windows では動かない気がします。

私が投稿したスレッドがどれか忘却の彼方ですが、
オリジナルの記事ではコネクション文字列が異なっています。

[ADO (dbGo) で ODBC ドライバを使って dBASE / Paradox ファイルを開く]
http://ht-deko.minim.ne.jp/tech075.html

単純にパスが通らないのであれば、
UAC の影響を受けるパスにインストールしていないか確認してみて下さい。

# 一番簡単なのは生成されたコネクション文字列を
# 確認してみる事なんですけどね。

--
by DEKO
-----------------------------
http://ht-deko.minim.ne.jp/
de...@ht-deko.minim.ne.jp
-----------------------------


MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
メールだけでみんなを招待できる便利機能♪
http://ad.freeml.com/cgi-bin/sa.cgi?id=j68FC
------------------------------------------------------[freeml byGMO]--

[DEKO]

> コレ、64bit Windows では動かない気がします。
SysWow64 の中を確認したら msjet40.dll が入ってました。
64bit アプリでなければ Jet でも動作しますね、スミマセン。

--
by DEKO
-----------------------------
http://ht-deko.minim.ne.jp/
de...@ht-deko.minim.ne.jp
-----------------------------


MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------

練習や試合の予定調整は「とっとと決め太郎」におまかせ！
http://ad.freeml.com/cgi-bin/sa.cgi?id=j68YM
------------------------------------------------------[freeml byGMO]--

[イチゴとナス]

DEKOさんへ

ありがとうございました。
ご紹介頂きました
http://ht-deko.minim.ne.jp/tech075.html
の方法は，最初に試しています。しかし，この方法では，別のパソコンで実行すると，エラーがその他に箇所でも発生し，dbfファイルを開いた際のエラーメッセージも
　[Microsoft][ODBC dBase Driver]オブジェクト'xxx.dbf'が見つかりませんでした。
となります。今回，私が使ったADOC.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;'では，エラーは発生してもメッセージに
　[Microsoft][ODBC dBase Driver]
の部分がなく，単純に
　オブジェクト'xxx.dbf'が見つかりませんでした。
となったので，ベターな方法ではないかと考えて次第です。

　しかし，どちらにしてもパスが通っていないようです。

>単純にパスが通らないのであれば、
>UAC の影響を受けるパスにインストールしていないか確認してみて下さい。

ということはないように思います。どこから実行しても同じでした。

># 一番簡単なのは生成されたコネクション文字列を
># 確認してみる事なんですけどね。

とは具体的にどうすればよいのでしょうか。また確認した結果，問題が見つかった場合の対処方法とはどのようなものでしょうか。




MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
毎日豪華プレゼントキャンペーン開催中！くまポン
http://ad.freeml.com/cgi-bin/sa.cgi?id=j6Cbc
------------------------------------------------------[freeml byGMO]--

[DEKO]

> とは具体的にどうすればよいのでしょうか。

ADOC.ConnectionString の中身を ShowMessage() して確認してみるとかですね。

> 問題が見つかった場合の対処方法とはどのようなものでしょうか。

これは実際の文字列を見てみない事には判断できないかもですね。

--
by DEKO
-----------------------------
http://ht-deko.minim.ne.jp/
de...@ht-deko.minim.ne.jp
-----------------------------


MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------

いつでもどこでもメールチェック！freemlのスマートフォンアプリ
http://ad.freeml.com/cgi-bin/sa.cgi?id=j6GMy
------------------------------------------------------[freeml byGMO]--

[Mr.XRAY]

【[delphi-users:3017] Re: ADOでdbfファイルを読み込むとエラー】 へのレス
です．

こんにちは．Mr.XRAYです．
ちょっと興味ある現象なのですが，

>また確認した結果，問題が見つかった場合の対処方法とはどのようなものでしょうか。

これは無理でしょう．
どんな問題か分からないのですから．対処方法は分からないと思いますよ．

>これは実際の文字列を見てみない事には判断できないかもですね。

かも，ではなく．見てみないと原因追究が難しいのでは，と思います．
Window 7 の場合で，Delphi の EXE は仮想化は OFF になるような．


MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
かわいいベジモンがたくさん！自分だけの農場を作ろう！
http://ad.freeml.com/cgi-bin/sa.cgi?id=j6UwH
------------------------------------------------------[freeml byGMO]--

[イチゴとナス]

　返事が遅くなりました。ありがとうございました。
　ADOC.ConnectionStringの中身をみてみました。下記のとおりです。ここで，Data Sourceは先日のプログラムのDatabasePathで指定した文字列となっていました。エラーの出る手持ちのパソコン（３台，delphiはインストールされていない）でも出ないパソコンでも内容は同じです。これから，どのような対策が考えられるでしょうか。
　ちなみに，エラーの出るパソコン１台にDelphi XE3をインストールしてプログラムを実行したところ，エラーは発生しませんでした。Delphiがインストールされていなくても起動するスタンドアロンのプログラムを作るのが目的ですので，これではダメです。

Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=[DatabasePathの文字列];Mode=Share Deny None;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=17;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without
Replica Repair=False;Jet OLEDB:SFP=False;


MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
アイテムたくさん☆freemlのプロフィール画像をアバターに♪
http://ad.freeml.com/cgi-bin/sa.cgi?id=j6WQJ
------------------------------------------------------[freeml byGMO]--

[Mr.XRAY]

【[delphi-users:3020] Re:ADOでdbfファイルを読み込むとエラー】 へのレスで
す．

こんにちは．Mr.XRAYです．

>Delphiがインストールされていなくても起動するスタンドアロンの
>プログラムを作るのが目的ですので

アプリ開発者の，ほとんどの方がそうだと思いますよ．
開発したアプリを，他のコンピュータで動作させると思います．

提示された ADOC.ConnectionString が，前に提示されたテストコードからは
予想できないものになっていますね．
こんなに長くならないハズですが．

それと，前に UAC 何とかいうレスがあったと思うのですが．
これを確認するには，[DatabasePathの文字列] の具体的な値が分からないと
判断できませんね．

イチゴとナスさんが前に提示されたコードを元にテストプログラムを作成して
みました．

[ADO による dBASE データベース接続テスト]
http://mrxray.on.coocan.jp/Others/ADO_ConnectDBF.htm

ダウンロードした中の，Project1.exe を，
Delphi がインストールされていない，Windows 7 のコンピュータで実行して
みてください．

この結果がどうなるかで，多少は原因追究の手がかりになる可能性があります．
ソースも添付していますが，必ず，添付の EXE を実行してください．
ソースを変更してしまうと，判定の情報とならない場合があります．

ところで，イチゴとナスさんは，
プロバイダのメールアカウントをお持ちではないのでしょうか ?
レスに対する返信が，いつも新しいスレッドになっているようです．

http://www.freeml.com/delphi-users


MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
使い方はいろいろ♪一部のメンバーだけにMLメールを送ろう！
http://ad.freeml.com/cgi-bin/sa.cgi?id=j6YhM
------------------------------------------------------[freeml byGMO]--

[DEKO]

> エラーの出る手持ちのパソコン
OS は何でしょう？

> エラーの出るパソコン１台にDelphi XE3をインストールしてプログラムを実行したところ，エラーは発生
しませんでした。
これって BDE がインストールされると正しく動作するって事ですかね？

Mspbde40.dll (Paradox 用 ODBC ドライバ)
Msxbde40.dll (dBASE 用 ODBC ドライバ)

これらが存在しないのであれば、MDAC がインストールされていないのかもしれません。

[Access 2000 または Jet で Paradox データを使用する方法]
http://support.microsoft.com/kb/230126/ja

[dBase ドライバが MDAC 2.1 以降で DBF ファイルを更新できない]
http://support.microsoft.com/kb/238431/ja

[Microsoft Jet 4.0 データベース エンジン用の最新の Service Pack の入手方法]
http://support.microsoft.com/kb/239114/ja

[BDE を使用しない Paradox と dBase の ISAM ドライバ]
http://support.microsoft.com/kb/263561/ja

[MDAC のバージョンを確認する方法]
http://support.microsoft.com/kb/301202/ja

--
by DEKO
-----------------------------
http://ht-deko.minim.ne.jp/
de...@ht-deko.minim.ne.jp
-----------------------------


MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------

メンバーで使える掲示板を活用しよう！
http://ad.freeml.com/cgi-bin/sa.cgi?id=j6YiW
------------------------------------------------------[freeml byGMO]--

[Mr.XRAY]

【[delphi-users:3021] Re: ADOでdbfファイルを読み込むとエラー】 へのレス
です．

こんにちは．Mr.XRAYです．

DEKO さんのレスで思い出したことがあります．
ソースコードを少し変更しました．
もし，すでにダウンロードしてしまっていたら，改めてダウンロード
してみてください．

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
練習や試合の予定調整は「とっとと決め太郎」におまかせ！

http://ad.freeml.com/cgi-bin/sa.cgi?id=j6YLx
------------------------------------------------------[freeml byGMO]--

[Mr.XRAY]

【[delphi-users:3022] Re: ADOでdbfファイルを読み込むとエラー】 へのレス
です．

こんにちは．Mr.XRAYです．
DEKO さん，どうもです．

>これって BDE がインストールされると正しく動作するって事ですかね？

以下，略．
ADO 関係の記事を掲載してるので，この現象については，
興味があるというか，是非，知りたいです．

以前，職場の環境で試した時は，こんなのがありました．Paradox ですが．
MDAC だとすると，ちょっと面倒．

[02_BDE がインストールされていない環境での動作]
http://mrxray.on.coocan.jp/Delphi/plSamples/568_ADO_Paradox.htm#02

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
毎日豪華プレゼントキャンペーン開催中！くまポン

http://ad.freeml.com/cgi-bin/sa.cgi?id=j6YQV
------------------------------------------------------[freeml byGMO]--

[イチゴとナス]

Mr.XRAYさん，ありがとうございます。

> 提示された ADOC.ConnectionString が，前に提示されたテストコードからは
> 予想できないものになっていますね．
> こんなに長くならないハズですが．

ADOQ.ConnectionStringの中身も調べています。こちらの方は，Mr.XRAYさんのプログラムと同じように入力した文字列しかありません。しかし，ADOC.ConnectionStringでは，不思議なことに？前メールのとおり長くなっていました。

> ダウンロードした中の，Project1.exe を，
> Delphi がインストールされていない，Windows 7 のコンピュータで実行して
> みてください．

ご指示のとおりDelphiがインストールされていない別のパソコンで実行してみました。ShowMessageでMr.XRAYさんの図３と同じ表示がなされた後，Database Login画面が表示されます。ここで，何も入力しないで，OKを押すと，データベースの中身が表示されました。

しかし，私が読み込みたいdbfファイルを読めるように修正すると，やはりエラー「オブジェクト×××.dbfが見つかりませんでした」が出ます。

> ところで，イチゴとナスさんは，
> プロバイダのメールアカウントをお持ちではないのでしょうか ?
> レスに対する返信が，いつも新しいスレッドになっているようです．

返信の仕方がわかりませんでした。ご指摘ありがとうございました。

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
いつでもどこでもメールチェック！freemlのスマートフォンアプリ

http://ad.freeml.com/cgi-bin/sa.cgi?id=j6YYd
------------------------------------------------------[freeml byGMO]--

[DEKO]

> しかし，私が読み込みたいdbfファイルを読めるように修正すると，
> やはりエラー「オブジェクト×××.dbfが見つかりませんでした」が出ます。

コードを修正するのではなく、
コードに合わせてファイル名を変更してもやはりエラーになるのでしょうか？

--
by DEKO
-----------------------------
http://ht-deko.minim.ne.jp/
de...@ht-deko.minim.ne.jp
-----------------------------


MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------

かわいいベジモンがたくさん！自分だけの農場を作ろう！
http://ad.freeml.com/cgi-bin/sa.cgi?id=j6Z0y
------------------------------------------------------[freeml byGMO]--

[Mr.XRAY]

【[delphi-users:3026] Re:Re:ADOでdbfファイルを読み込むとエラー】 へのレ
スです．

こんにちは．Mr.XRAYです．
DEKO さんからレスがあるように，

>コードを修正するのではなく、
>コードに合わせてファイル名を変更してもやはりエラーになるのでしょうか？

ということが重要です．
同じように，

>ADOC.ConnectionStringでは，不思議なことに？
>前メールのとおり長くなっていました。

と言っても，具体的に，どこでそうなのかが分かりません．

Opendbf のコードを以下のようにしてテストしてみてください．

procedure TForm1.Opendbf(FL: string);
var

DatabasePath: string;
i,m:integer;
begin

ADOC.Connected := False;

if TFile.Exists(FL) then begin

// データベースパス
DatabasePath := ExtractFileDir(FL);

ShowMessage(ADOC.ConnectionString); //ここです．

ADOC.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;' +
'Data Source='+DatabasePath +
';Extended Properties=dBASE IV';

// 接続
ADOC.Connected := True;

//追加
ADOQ.ConnectionString := ADOC.ConnectionString;

// クエリ発行
with ADOQ do begin
SQL.Clear;
SQL.Add('Select * From '+ ExtractFileName(FL));
Open;

end;
end else begin
MessageBox(Handle, PChar('ファイルがありません'), '情報', 0);
end;
end;

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
アイテムたくさん☆freemlのプロフィール画像をアバターに♪

http://ad.freeml.com/cgi-bin/sa.cgi?id=j6ZCU
------------------------------------------------------[freeml byGMO]--

[Mr.XRAY]

【[delphi-users:3028] Re: Re:ADOでdbfファイルを読み込むとエラー】 へのレ
スです．

こんにちは．Mr.XRAYです．
もし，

> ShowMessage(ADOC.ConnectionString); //ここです．

ここで何かの文字列が表示されたのであれば，

ADOC.ConnectionString := EmptyStr;
ShowMessage(ADOC.ConnectionString);

の 2 行に変更してみてください．
これで，空文字が表示されるハズです．

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
使い方はいろいろ♪一部のメンバーだけにMLメールを送ろう！

http://ad.freeml.com/cgi-bin/sa.cgi?id=j6ZKe
------------------------------------------------------[freeml byGMO]--

[Mr.XRAY]

>コードを修正するのではなく、
>コードに合わせてファイル名を変更してもやはりエラーになるのでしょうか？

私のサイトからダウンロードした，プロジェクトのソースコードの

procedure TForm1.Button1Click(Sender: TObject);
var
FilePath : String;
begin
//FilePathにデータベースファイルのフルパスを与える
FilePath := ExtractFilePath(Application.ExeName) + 'Test.dbf';
Opendbf(FilePath);
end;

の FilePath を変更てみてください．ということです．
一応，しつこいようですが，念のため．

忘れていました．

>返信の仕方がわかりませんでした。ご指摘ありがとうございました。

ありがとうございます．おかげで，レスがしやすくなりました．

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
メンバーで使える掲示板を活用しよう！

http://ad.freeml.com/cgi-bin/sa.cgi?id=j7acK
------------------------------------------------------[freeml byGMO]--

[snail3]

dbf は使っていないので的外れかもしれませんが、

ADO は ODBC 接続をさすので、先にＯＤＢＣ単体で
つまりＡＣＣＥＳＳなり、ＥＸＣＥＬを利用して接続可能か
調べた方が早いと思います。

ＯＤＢＣで確認する手順として
１．ドライバーが必要な場合はインストール
２．コントロールパネルからＯＤＢＣ登録
３．ＡＣＣＥＳＳなり、ＥＸＣＥＬで接続確認
４．作成したアプリで確認

アップされた接続分は Mr.XRAY さんが指摘された通り
あきらかにおかしいです。(重複しています)

--
takashi <taka...@csjpn.com>

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
メールだけでみんなを招待できる便利機能♪

http://ad.freeml.com/cgi-bin/sa.cgi?id=j7atx
------------------------------------------------------[freeml byGMO]--

[イチゴとナス]

> > しかし，私が読み込みたいdbfファイルを読めるように修正すると，
> > やはりエラー「オブジェクト×××.dbfが見つかりませんでした」が出ます。
>
> コードを修正するのではなく、
> コードに合わせてファイル名を変更してもやはりエラーになるのでしょうか？

正常に読み込めました。

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
練習や試合の予定調整は「とっとと決め太郎」におまかせ！

http://ad.freeml.com/cgi-bin/sa.cgi?id=j7a5h
------------------------------------------------------[freeml byGMO]--

[Mr.XRAY]

【[delphi-users:3032] Re:Re: Re:ADOでdbfファイルを読み込むとエラー】 へ
のレスです．

こんにちは．Mr.XRAYです．

>正常に読み込めました。

了解しました．犯人はほぼ確定しました．
逮捕状を発行するには，確たる「証拠」が必要です．

Opendbf のコードで，接続する前に，

ADOC.ConnectionString := EmptyStr; //これを追加

ADOC.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;' +
'Data Source='+DatabasePath +
';Extended Properties=dBASE IV';

と追加のコードを入れてみてください．
これは，イチゴとナスさんのプロジェクトのコードに書きます．
ただし，この動作を確認しても，まだ逮捕状は出せません．
この結果によっては，更に検証が必要となる場合があります．

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
毎日豪華プレゼントキャンペーン開催中！くまポン

http://ad.freeml.com/cgi-bin/sa.cgi?id=j7aEk
------------------------------------------------------[freeml byGMO]--

[イチゴとナス]

みなさん，ありがとうございます。

> ADOC.ConnectionString := EmptyStr; //これを追加

を，ご指示どおりMr.XRAYさんのコードおよび私のコードにいれて実行してみましたが，ダメでした。
　しかし，色々試してみて一つわかりました。dbfファイル名に，漢字(２バイト文字)が入っている場合にエラーが発生するようです。たとえば，dbfファイル名をtest2.dbfに変更したところ，問題なく読み込めるようになりました（えっ，そんな単純な問題！）。
　でもやはり問題です。２バイト文字のファイル名も読めないと困ります。どうすればよいでしょうか。

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
いつでもどこでもメールチェック！freemlのスマートフォンアプリ

http://ad.freeml.com/cgi-bin/sa.cgi?id=j7bmh
------------------------------------------------------[freeml byGMO]--

[Mr.XRAY]

【[delphi-users:3034] Re:Re:ADOでdbfファイルを読み込むとエラー】 へのレ
スです．

>Mr.XRAYさんのコードおよび私のコードにいれて実行してみましたが，ダメでした。

了解しました．これで，多分確定でしょう，と思ったら，

>ファイル名に，漢字(２バイト文字)が入っている場合にエラーが発生するようです

そんなことはないと思いますよ．
私のテストプロジェクトで接続を確認したんじゃないんですか ?
矛盾していますね．
ただし，漢字は使わない方がいいと思いますね．
また，(２バイト文字)とは言いませんね．昔は言いましたが．


さて，私はエスパーではありません．
イチゴとナスさんのプロジェクトのコードも知りませんし，
Opendbf というメソッドをどこで実行しているかも知りません．
また，コードのどこでエラーが発生するかも知りません．

したがって，あくまでも「推測」です．
もしかして，そのプロジェクトのフォームに，

TADOConnection
TADOQuery

コンポーネントを配置していませんか ?
もし，配置していたら，それらを削除してテストしてみてください．
これで接続できれば，これらが「犯人」です．

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
かわいいベジモンがたくさん！自分だけの農場を作ろう！

http://ad.freeml.com/cgi-bin/sa.cgi?id=j7bxH
------------------------------------------------------[freeml byGMO]--

[Mr.XRAY]

【[delphi-users:3036] Re:Re: Re:ADOでdbfファイルを読み込むとエラー】 へ
のレスです．

>　ファイル名が長い場合にエラーが発生するようです。

dBASE のファイル名の長さは
よく覚えていませんが，10バイト以下だったと思います．
古いデータベースですからね．
DOS の時代のファイル名も 8バイトの制限があったと思います．
だから，古い時代のアーカイブの名前は，8.3 形式ですね．

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
使い方はいろいろ♪一部のメンバーだけにMLメールを送ろう！

http://ad.freeml.com/cgi-bin/sa.cgi?id=j7fjC
------------------------------------------------------[freeml byGMO]--

[Mr.XRAY]

【[delphi-users:3037] Re: Re: Re:ADOでdbfファイルを読み込むとエラー】 へ
のレスです．

>よく覚えていませんが，10バイト以下だったと思います．

釈迦に説法かも知れませんが，
ファイル名が長い時は，後半は無視されるハズです．つまり認識はしてくれます．
ただし，漢字等は，制限文字にひっかかると，そこで切れてしまいます．
すると，残った部分が文字として認識できないことがあります．
すると，エラーとなります．

たとえば，

データファイル.dbf　はエラーになりませんが，
データAファイル .dbf　はエラーになります．

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
メンバーで使える掲示板を活用しよう！

http://ad.freeml.com/cgi-bin/sa.cgi?id=j7fBt
------------------------------------------------------[freeml byGMO]--

[Mr.XRAY]

【[delphi-users:3038] Re: Re: Re:ADOでdbfファイルを読み込むとエラー】 へ
のレスです．

更に，釈迦に説法かも知れませんが，

>データファイル.dbf　はエラーになりませんが，
>データAファイル .dbf　はエラーになります．

つまり，漢字を含むファイル名は使わない方がいいということです．

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
メールだけでみんなを招待できる便利機能♪

http://ad.freeml.com/cgi-bin/sa.cgi?id=j7fE5
------------------------------------------------------[freeml byGMO]--

[イチゴとナス]

度々ありがとうございます。

> 更に，釈迦に説法かも知れませんが，
>
> >データファイル.dbf　はエラーになりませんが，
> >データAファイル .dbf　はエラーになります．
>
> つまり，漢字を含むファイル名は使わない方がいいということです．

上記のことは知りませんでした。また，dbfファイルはメーカーから提供されるもので，全角文字が使われています。好んで使っているわけではありませんが，そんな問題が起り得ることを初めて知りました。
　私の知識はこの程度のもので，お釈迦様に遠く及びません。

今後ともよろしくお願いします。

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
練習や試合の予定調整は「とっとと決め太郎」におまかせ！

http://ad.freeml.com/cgi-bin/sa.cgi?id=j7h2C
------------------------------------------------------[freeml byGMO]--

[snail3]

ちょっと時間が出来たので、落としてみました。
よく見ていないので勘違いしているかもしれませんが、、

> 　お手数ですが，エラーを発生するdbfファイルの例は以下からダウンロードして下さい。
> まず
> 　http://nlftp.mlit.go.jp/ksj/gml/gml_datalist.html

ここで落とせるファイルを解凍すると、たしかに
「A03-03_SYUTO-g_ThreeMajorMetroPlanArea.dbf」
というファイルが入っていますが、ＡＤＯを使って読むには
Mr.XRAY さんの指摘の通りファイル名が長すぎます。
ファイル名をリネームすれば読めます。

zipファイルにはほかにも色々とファイルが入っているのでネットで検索すると

シェープファイルの構成
http://www.pasco.co.jp/recommend/word/word028/

というサイトを見つけました。
国土数値情報統一フォーマットのデータを使うには色々と勉強が必要みたい
ですね。

--
takashi <taka...@csjpn.com>

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
毎日豪華プレゼントキャンペーン開催中！くまポン

http://ad.freeml.com/cgi-bin/sa.cgi?id=j7j7g
------------------------------------------------------[freeml byGMO]--

[DEKO]

テーブル名 (ファイル名) を
Select * From [テーブル名]
のように [] で括ってみてください。

Mr.XRAY さんのサンプルで行くと、

SQL.Clear;
SQL.Add('Select * From ['+ ExtractFileName(FL) + ']');

こんな感じです。

# Access (Jet) のテーブル名 / フィールド名に
# 日本語が含まれる時の常套手段です。

--
by DEKO
-----------------------------
http://ht-deko.minim.ne.jp/
de...@ht-deko.minim.ne.jp
-----------------------------

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
いつでもどこでもメールチェック！freemlのスマートフォンアプリ

http://ad.freeml.com/cgi-bin/sa.cgi?id=j7jFD
------------------------------------------------------[freeml byGMO]--

[Mr.XRAY]

【[delphi-users:3042] Re: Re: Re: Re:ADOでdbfファイルを読み込むとエラー
】 へのレスです．

># Access (Jet) のテーブル名 / フィールド名に
># 日本語が含まれる時の常套手段です。

そうでした．これ，自動的に半端な漢字を処理してくれるんですよね．

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
かわいいベジモンがたくさん！自分だけの農場を作ろう！

http://ad.freeml.com/cgi-bin/sa.cgi?id=j7lmq
------------------------------------------------------[freeml byGMO]--

[Mr.XRAY]

【[delphi-users:3041] Re:ADOでdbfファイルを読み込むとエラー】 へのレスで
す．

>ファイル名をリネームすれば読めます。

そうですよね．利用する側で対処するしかないと思います．
おそらく，ファイルを提供している側は，ファイルの意味等の区別用
に名前を付けた可能性もあると思います．
漢字名も，そのまま使えるのであれば，使えますし．

>シェープファイルの構成
>http://www.pasco.co.jp/recommend/word/word028/

こんなのがあるんですね．へぇー．

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
アイテムたくさん☆freemlのプロフィール画像をアバターに♪

http://ad.freeml.com/cgi-bin/sa.cgi?id=j7l3Q
------------------------------------------------------[freeml byGMO]--

[DEKO]

> そうでした．これ，自動的に半端な漢字を処理してくれるんですよね．
Access 2.0 とかでは [] で括らないとことごとく通らなかった気がします。
以下追記です。


Jet は本来 8.3 形式しか対応していません。
よって、ファイル名をリネームするのが正しい解決方法だと思います。

[Access および Jet で dBASE データを使用する方法]
http://support.microsoft.com/kb/230125/ja

> dBASE ISAM では、以前のバージョンの Microsoft Access と同様、
> 8.3 名前付け規則のみがサポートされます。

では、FilePath := ExtractShortPathName(FilePath); として
8.3 形式に変換してやればいいかというと...

'A03-03_SYUTO-g_ThreeMajorMetroPlanArea.dbf'
↓
'A03-03~1.DBF'

これでもエラーになります。

Jet では日本語テーブル名同様、ハイフン等の文字も正しく扱えない事があります。
8.3 形式の 'A03-03~1.DBF' という名前でもダメなのです。

[Access データベースでの作業時に使用すべきでない特殊文字]
http://support.microsoft.com/kb/826763/ja

万全を期すためには、8.3形式に変換し、さらに [] で括る必要があるかと思います。

--
by DEKO
-----------------------------
http://ht-deko.minim.ne.jp/
de...@ht-deko.minim.ne.jp
-----------------------------


MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------

使い方はいろいろ♪一部のメンバーだけにMLメールを送ろう！
http://ad.freeml.com/cgi-bin/sa.cgi?id=j7mHf
------------------------------------------------------[freeml byGMO]--

[Mr.XRAY]

【[delphi-users:3045] Re: Re: Re: Re:ADOでdbfファイルを読み込むとエラー
】 へのレスです．

こんにちは．Mr.XRAYです．

>Jet は本来 8.3 形式しか対応していません。
以下，略．

おおっ，参考になります．参考記事へのリンク，近いうちに，
ADO のサンプルの記事に追加させて頂きます．

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
メンバーで使える掲示板を活用しよう！

http://ad.freeml.com/cgi-bin/sa.cgi?id=j7mKn
------------------------------------------------------[freeml byGMO]--

[Mr.XRAY]

【[delphi-users:3014] ADOでdbfファイルを読み込むとエラー】 へのレスです．

こんにちは．Mr.XRAYです．

質問された方からの報告がありませんので，確実なことは言えません．
僭越ではありますが，参考のためにまとめておきます．

(1) 設計時にデータベースへの接続テストのために，
フォームに配置した TADOConnection コンポーネントの接続文字列，
TADOConnection.ConnectionString の値を
オブジェクト・インスペクタで設定した．
開発環境は，Windows 7 32bit + Delphi XE3 Pro
以下のような感じですね．
http://mrxray.on.coocan.jp/Delphi/plSamples/570_ADO_JETDB.htm#03

(2) 作成したアプリの配布先で動作するように，以下のコードを書いた．

procedure TForm1.FormCreate(Sender: TObject);

var
FilePath : String;
begin
//FilePathにデータベースファイルのフルパスを与える

FilePath := XXXXX;
Opendbf(FilePath);
end;

(3) 上の Opendbf というメソッドは以下の通り
http://www.freeml.com/delphi-users/3014

(4) 作成した EXE を Delphi がインストールされていない Windows 7 の
コンピュータで実行したが，EXE 起動時に，
「オブジェクトxxxx（dbfファイル名）が見つかりませんでした。」
というエラーが発生してしまう．


原因は，以下のように考えられます．

設計時に，オブジェクト・インスペクタで設定した内容が，
EXE 起動時に実行される．
設計時のデータベースのパスを探しにいくが，
それは，設計時のコンピュータにあるパスである．
つまり，ファイルが見つからない．

参考
[オブジェクト・インスペクタでの設定と OnCreate や OnShow での設定]
http://mrxray.on.coocan.jp/Delphi/plSamples/index.htm#06

[04_設計時に設定する際の問題点]
http://mrxray.on.coocan.jp/Delphi/plSamples/570_ADO_JETDB.htm#04

つまり，
procedure TForm1.FormCreate(Sender: TObject);
のイベント発生の前に，エラーが発生していたことになります．

最初の質問で，Opendbf というメソッド内で発生するエラーと，
勝手に思い込んでしまいました．
スレッドに，あまり意味のない発言が続き，読みにくい内容になったしまった
ことをお詫びします．
でも，一部，DEKO さんや， snail3さんの，ちょっと興味ある内容もあるのでは
ないかと思います．これで勘弁してやってください．

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
メールだけでみんなを招待できる便利機能♪

http://ad.freeml.com/cgi-bin/sa.cgi?id=j7mTW
------------------------------------------------------[freeml byGMO]--

[イチゴとナス]

こんばんは。

今日一日，仕事のためメールを見ることができず，返事が遅くなりました。失礼しました。また色々ご意見ありがとうございました。

結論から言いますと，dbfファイルの読み取りコードは，私が最初（delphi-users:3014）に示したコードでよく，ただファイル名をOpendbfで読み込むときだけ，問題の起こらないファイル名（たとえば，Temp.dbf）に一時的に変更する必要があるということです。つまり，
ADOC.ConnectionString := EmptyStr;
を

ADOC.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;'+
Data Source='+DatabasePath+
';Extended Properties=dBASE IV';

の前に入れる必要もありません。これで，Delphi(またはBDE)のインストールされていないパソコンでも問題なく動作することを確認しました。

リネーム[delphi-users:3036] は，ファイル名が悪さをしているのではないかという素人の直感で試してみました。素人っぽい対策ですが，とりあえずこれで何とかなると考えていましたが，専門家のみなさんのご意見もそのようでしたので，ひとまずこの方法で急場をしのごうと思います。

混乱の原因は，作成時には全く問題のなかったプログラムが，Delphiのインストールされていないパソコンでエラーを起こすという初めての体験にあります。私にはなぜそうなるのかはわかりませんが，そんなこともあるのですね。

MLホームページ: http://www.freeml.com/delphi-users

----------------------------------------------------------------------
毎日豪華プレゼントキャンペーン開催中！くまポン

http://ad.freeml.com/cgi-bin/sa.cgi?id=j7ydb
------------------------------------------------------[freeml byGMO]--