[リストへもどる]
一括表示

投稿時間:2002/11/22(Fri) 16:13
投稿者名:momo
URL :
タイトル:
VB6でAccess
以前、VB5で、Win95やNT4.0でDAO使用で作成していたデータベースを開きたいのですが、
Win2000にVb6環境で、ADOのデータアクセスに変更し使用したいのですが、
Jet4.0のバージョンが合わないのか、実行時エラー’-2147467259’ファイルが見つかりませんでした。
と出てきます。Jetのバージョンを下げると、実行時エラー’3706’プロバイダーが見つかりません。と出てしまいます。
Accessでそのデータベースを開くと、Access 1.x はサポートしていませんと出て、開けません。
この、Access 1.x のデータベースファイルを開くのはどうしたらよいのでしょうか?
db.Openの後に、上記のエラーが出ます。
とても悩んでいます、わかる方がいらしたら、ぜひ教えて下さい。
よろしくお願いいたします。

========コードの一部です=======
Dim db As New ADODB.Connection
Dim ds As ADODB.Recordset

    Set db = New ADODB.Connection
    '接続元のプロバイダとデータベースをConnectionStringで指定
    db.ConnectionString = _
                "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "Data Source=C:\temp\test.mdb'"
    db.Open
    'RecordSetオブジェクトの作成
    Set ds = New ADODB.Recordset

投稿時間:2002/11/22(Fri) 16:39
投稿者名:魔界の仮面弁士
Eメール:
URL :
タイトル:
Re: VB6でAccess
> Accessでそのデータベースを開くと、Access 1.x はサポートしていませんと出て、開けません。
> この、Access 1.x のデータベースファイルを開くのはどうしたらよいのでしょうか?

う〜ん。1.xなファイルを扱った事が無いので、何とも言えませんが…
   Provider=Microsoft.Jet.OLEDB.4.0;
   Data Source=C:\temp\test.mdb;
   Jet OLEDB:Engine Type=1;
という接続文字列だとどうなるでしょうか?

'"Jet OLEDB:Engine Type"定数の一部
Const JET_ENGINETYPE_UNKNOWN = 0    '規定値
Const JET_ENGINETYPE_JET10 = 1
Const JET_ENGINETYPE_JET11 = 2
Const JET_ENGINETYPE_JET20 = 3
Const JET_ENGINETYPE_JET3X = 4
Const JET_ENGINETYPE_JET4X = 5


>  "Data Source=C:\temp\test.mdb'"
あれ? この最後の「'」は何でしょうか?

投稿時間:2002/11/27(Wed) 16:07
投稿者名:momo
URL :
タイトル:
魔界の仮面弁士 さん、ありがとうございました。
結局、DAOのままで行える方法を見つけ、ADOに変更せずに使用しました。
しかし、新たな壁にぶつかっています。
再度、投稿致します。
ありがとうございました。
まだまだ、わからないことばかりです、
またよろしくお願いいたします。