投稿日 | : 2003/04/17(Thu) 13:24 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re^2: ADOを使ってのCSVファイルの読込み |
レスが無かったし、他の方法で出来る事が解ったので投稿を削除した時に
回答を頂いたようですね。それでリンクが切れていました。
どうもありがとうございました。
私もADOは今回初めてなので間違っているかも知れませんが
前回DAOで読込していた部分をADOに変更した物を投稿しておきます。
Private Sub Command1_Click()
Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim FolderName As String
Dim txtDRIVER As String
Dim DataFile As String
MSHFlexGrid1.Clear
'データのあるフォルダを取得
FolderName = App.Path
'データファイル名を取得
DataFile = "Test.csv"
'データベースとの接続設定
txtDRIVER = "DRIVER={Microsoft Text Driver (*.txt; *.csv)};DBQ="
CN.ConnectionString = "Provider=MSDASQL.1;Extended Properties=""" & _
txtDRIVER & FolderName & """"
'コネクションをオープン
CN.Open
'CursorTypeの設定(デフォルトは0でレコードの前方スクロールだけが可能)
RS.CursorType = adOpenStatic
'Recordsetオブジェクトのオープン
RS.Open "Select * From " & DataFile, CN
'MSHFlexGridにデータを代入
Set MSHFlexGrid1.DataSource = RS
'Recordset・Connection を閉じる
RS.Close
CN.Close
'参照を解放。
Set RS = Nothing
Set CN = Nothing
'=====================================================================
FolderName = App.Path
DataFile = "Test1.csv"
txtDRIVER = "DRIVER={Microsoft Text Driver (*.txt; *.csv)};DBQ="
CN.ConnectionString = "Provider=MSDASQL.1;Extended Properties=""" & _
txtDRIVER & FolderName & """"
CN.Open
RS.CursorType = adOpenStatic
RS.Open "Select * From " & DataFile, CN
Set MSHFlexGrid2.DataSource = RS
RS.Close
CN.Close
Set RS = Nothing
Set CN = Nothing
End Sub
尚、ファイルの読込時の設定は SCHEMA.INI ファイルでしました。