[リストへもどる]
一括表示
投稿時間：2003/01/31(Fri) 13:52
投稿者名：聖魔
Ｅメール：
ＵＲＬ　：
タイトル：ISAMドライバ
よろしくお願いします。

こちらのVB簡易ヘルプ一覧表のDAOでExcelファイルを読み込みテキストボックスに表示
を参考に作っているのですが、
Set DB = OpenDatabase(xlFileName, False, False, "Excel 8.0;HDR=NO;")
(すみません参照させていただきました)
のところで「インストール可能なISAMドライバが見つかりませんでした」
というエラーが発生してしまいます。

これはどういったエラーでどのように回避すればいいのでしょうか？
よろしくお願いします。

環境
Win2000PRO SP3
VB6.0 SP4
Office2000

投稿時間：2003/01/31(Fri) 15:13
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re: ISAMドライバ
> Set DB = OpenDatabase(xlFileName, False, False, "Excel 8.0;HDR=NO;")

この部分の　Excel 8.0　を　Excel 9.0 や　Excel 10.0 にしていませんか？

投稿時間：2003/01/31(Fri) 16:03
投稿者名：聖魔
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: ISAMドライバ
ご返答ありがとうございます。
> > Set DB = OpenDatabase(xlFileName, False, False, "Excel 8.0;HDR=NO;")
>
> この部分の　Excel 8.0　を　Excel 9.0 や　Excel 10.0 にしていませんか？
ご返答ありがとうございます。
最初していたのですが8.0に変えてやってみてもやっぱりなりませんでした。
ずーっと調べていてやっと原因がわかりました！！
Ｊｅｔ　ＩＳＡＭドライバが使えなくなっていたみたいです。
Ｊｅｔ　ＩＩＳＡＭドライバ関連のファイルをインストールすることで解決したのですが、
今後は「このコレクションには項目がありません」というエラーが出てしまいました。
ソースは下記のとおりです(こちらのソースを見ながら作っていますご了承ください)
Dim DB As Database
Dim RS As Recordset
Dim xlFileName As String
Dim xlSheetName As String
Dim xlData As String
xlFileName = App.Path & "\test2.xls"
xlSheetName = "Sheet1" & "$"
Set DB = OpenDatabase(xlFileName, False, False, "Excel 8.0;HDR=NO;")
Set RS = DB.Recordsets(xlSheetName)
Do While Not RS.EOF
    xlData = xlData & RS.Fields(0) & vbCrLf
    RS.MoveNext
Loop
Text1.Text = xlData
RS.Close
DB.Close
Set RS = Nothing
Set DB = Nothing

Excelの中は
A1 = 11
A2 = 22
です。

やりたいことはExcelのシートを指定して、そのシート内のデータを全てVBのTextBoxに表示させたいのですが・・・

よろしくお願いします。

投稿時間：2003/01/31(Fri) 17:20
投稿者名：花ちゃん
Ｅメール：
ＵＲＬ　：
タイトル：Re^3: ISAMドライバ(これで解決しませんか)
> Set DB = OpenDatabase(xlFileName, False, False, "Excel 8.0;HDR=NO;")
> Set RS = DB.Recordsets(xlSheetName)

  Set RS = DB.OpenRecordset(xlSheetName)

で問題解決です。
まず、サンプルをそのままコピー＆ペーストして試してから改造するように
しましょう。

投稿時間：2003/01/31(Fri) 17:38
投稿者名：聖魔
Ｅメール：
ＵＲＬ　：
タイトル：Re^4: ISAMドライバ
ありがとうございます。
>   Set RS = DB.OpenRecordset(xlSheetName)
>
> で問題解決です。
> まず、サンプルをそのままコピー＆ペーストして試してから改造するように
> しましょう。
あ・・・どうもすみません。
ほんとつまらないことでお手数をおかけしました。

懲りずにわからないことがあればまた質問させていただきます。
そのときはよろしくお願いします。

投稿時間：2003/01/31(Fri) 16:04
投稿者名：魔界の仮面弁士
Ｅメール：
ＵＲＬ　：
タイトル：Re: ISAMドライバ
> Set DB = OpenDatabase(xlFileName, False, False, "Excel 8.0;HDR=NO;")
> (すみません参照させていただきました)
> のところで「インストール可能なISAMドライバが見つかりませんでした」
> というエラーが発生してしまいます。

VBのインストールCDから、カスタムセットアップを行い、
データアクセスオブジェクト(だったかな？)をインストールしてみてください。

投稿時間：2003/01/31(Fri) 16:10
投稿者名：聖魔
Ｅメール：
ＵＲＬ　：
タイトル：Re^2: ISAMドライバ
レスありがとうございます。
> VBのインストールCDから、カスタムセットアップを行い、
> データアクセスオブジェクト(だったかな？)をインストールしてみてください。
同時投稿だったでしょうか？
すみません気づきませんでした。

教えていただきありがとうございます。