→→→エクセルのシートからデータを取得／テキストファイルから

エクセルのシートからデータを取得

Dim  i , j  As Integer
Dim dSet As DataSet = New DataSet
Dim dAdp As OleDbDataAdapter
Dim ocn As OleDbConnection

ocn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" &
                                       "data Source=D:\***.xls;" &
                                       "Extended Properties = Excel 8.0; ")

dAdp = New OleDbDataAdapter("SELECT * FROM [Sheet1$]" , ocn )
dAdp.Fill( dSet )

For i = 0 To dSet.Tables(0).Rows.Count() - 1
   For j = 0 To dSet.Tables(0).Columns.Count() - 1
     Debug.write(dSet.Tables(0).Rows(i)(j) & controlChars.Tab)
   Next
   Debug.writeLine("")
Next

---------------------------------------------
テキストファイルからデータセットにデータを取得

Dim  i , j  As Integer

Dim dSet As DataSet = New DataSet

Dim dAdp As OleDbDataAdapter

Dim ocn As OleDbConnection

ocn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" &

                                       "data Source=D:\;" &

                                       "Extended Properties = text; ")

dAdp = New OleDbDataAdapter("SELECT * FROM SampleTextData1.csv" , ocn )

dAdp.Fill( dSet )

For i = 0 To dSet.Tables(0).Rows.Count() - 1

   For j = 0 To dSet.Tables(0).Columns.Count() - 1

     Debug.write(dSet.Tables(0).Rows(i)(j) & controlChars.Tab)

   Next

   Debug.writeLine("")

Next