データベースの接続 (ID:143501)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

こんにちは。
VB初心者です。

前任者が作成したCSVファイルをメモリに格納するプログラムから
Oracleテーブルのデータからメモリへ格納するプログラムへ
変更したいのですが、全くのVB初心者でわかりません。
ヒントでもいいですので教えてください。

CSVファイルをメモリに格納するプログラムは以下の通りです。
    Function ReadCSV(ByVal szFilePath As String) As String()()
        ' (全般) に Imports 追記
        ' Imports System.IO
        ' Imports System.Text
        Dim arrayTempLines()() As String = {}
        ' ストリームを開きます
        Dim reader As New IO.StreamReader(szFilePath, System.Text.Encoding.Default)
        Dim iIdx As Integer = 0
        ' 一気に読み込みます
        Dim szData As String = reader.ReadToEnd()
        ' 不要な文字を取り除きます
        szData = szData.Replace(vbCr, "")
        ' 改行で分離して配列に格納します
        Dim arrayLines() = szData.Split(vbLf)
        Dim szLine As String
        For Each szLine In arrayLines
            Dim iCount As Integer = 0
            Dim szTemp As String = ""
            Dim bValid As Boolean = False
            If szLine.Length > 1 Then
                ' 配列の追加します
                ReDim Preserve arrayTempLines(iIdx)
                ' カンマ区切りで分離して配列に格納します
                arrayTempLines(iIdx) = szLine.Split(",")
                ' データのチェックをします
                If arrayTempLines.Length >= 1 And _
                 arrayTempLines(iIdx)(0) <> "" Then bValid = True
                ' 不要データを除きます
                For Each szTemp In arrayTempLines(iIdx)
                    arrayTempLines(iIdx)(iCount) = _
                    szTemp.Replace(Chr(34), "").TrimEnd()       ' Chr(34)は"のことを指します
                    iCount += 1
                Next
                ' 配列数チェックをします
                If bValid Then iIdx += 1
            End If
        Next
        ' 配列を切り詰めます
        'ReDim Preserve arrayTempLines(iIdx - 1)

' 読み込み用のストリームを閉じます
        If (Not reader Is Nothing) Then
            reader.Close()
            reader = Nothing
        End If

ReadCSV = arrayTempLines
    End Function

以上です。

ちなみに、Oracleテーブルの中にはフィールドが二つあります。

←解決時は質問者本人がここをチェックしてください。

戻る