VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/10/11(Sat) 17:20 |
| 投稿者 | ： しんまい |
| ＵＲＬ | ： |
| タイトル | ： ＡＤＯを使ってCSVファイルを読む |
いつもお世話になっています。
花ちゃんのコードは大変役に立っております。ありがとうございます。
早速ですが、”ＡＤＯを使ってCSVファイルを読む”を参考にしたくトライして
みたのですが、エラーが発生してしまいます。(オブジェクト変数又はブロック
変数が設定されてません）
大変恐縮ですがヒントでも頂ければ幸いです。よろしくお願いします。
Dim CN As New ADODB.Connection, RS As New ADODB.Recordset
Dim FolderName As String, txtDRIVER As String
Dim DataFile As String, strSQL As String
Dim strProvider As String
Screen.MousePointer = vbHourglass
MSHFlexGrid1.Clear
DoEvents
FolderName = App.Path 'データのあるフォルダを取得
DataFile = "Test.csv" 'データファイル名を取得
'データベースに接続するための情報を設定する
strProvider = "Provider=MSDASQL;Extended Properties="""
txtDRIVER = "DRIVER={Microsoft Text Driver (*.txt; *.csv)};DBQ="
CN.ConnectionString = strProvider & txtDRIVER & FolderName & """"
CN.Open 'コネクションをオープン
'Recordsetオブジェクトのオープン
strSQL = "Select * From " & DataFile
RS.Open strSQL, CN, adOpenStatic, adLockReadOnly, adCmdText
Set MSHFlexGrid1.DataSource = RS 'MSHFlexGridにデータを代入
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）