Visual Basicでデータベース接続について

質問

こんにちは。
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テーブルの中にはフィールドが二つあります。

回答No.4

oboroxx · ベストアンサー

2段階に分けて考えましょう。
1.Oracleからデータを抽出してDataTableに保存。
2.DataTableの中のデータをCSVファイルに保存する。

そこで次のサイトが参考にならないでしょうか。
1.http://www.oborodukiyo.info/ADONET/VS2008/ADONET-HowToAccessOracle.aspx
2.http://www.oborodukiyo.info/CSharp/VS2010/CS-SaveDataTableToCSV.aspx

1ではDataTableにデータを入れた後、DataGridViewで表示していますが、ここは省略してみて考えてください。

頑張ってください。

回答No.3

BarcodeMaster

直接Oracleから取り込むにしろ、Oracleからのデータ取得が理解できなければなにもできないのではないでしょうか？
まずは、他の回答者がおっしゃられている通り、簡単なCSV出力から試してみては？
それが理解できれば、元のコードに組み込むことも出来るのではないでしょうか？

回答No.2

imogasi

Ｏｒａｃｌｅのデータをカンマ区切りファイル（ＣＳＶ）に落としてください。
＃１のご回答でもおっしゃっています。そのやり方を勉強してください。
CSVファイルは、異種のソフトの、（テキスト）データ受け渡しの、汎用性がある、最後の手段です。
そしてエクセルブックを開き、ＶＢＥ画面を開き、標準モジュールに（この辺はエクセル
マクロやVBAの解説書やWEB記事（「エクセル　VBA　実行方法」で検索）を読んでください）
Sub test01()
Set objfs = CreateObject("scripting.filesystemobject") 'VBSを使う宣言
Dim s As Variant
Set objtext = objfs.OpenTextfile("C:\Users\XXX\documents\発注明細0710.csv") 'CSVファイルのフルパス指定。ファイルを開く。
i = 1 'エクセルのシートの第１行の１
Do While objtext.atendofstream <> True 'ファイルデータの最終行まで繰り返し
mytext = objtext.readline '1行を読む
MsgBox mytext '確認のた画面に表示。本番では削除かコメント化
s = Split(mytext, ",") 'セパレータ文字のカンマで区切って分離して、配列的なところsへ入れる
'下記部分で、各列のセルへ項目データを配分
For j = 0 To UBound(s) - 1
Worksheets("Sheet1").Cells(i, j + 1) = s(j) 'j+1の+1は、ｓが０から始まるので必要。Sheet1に書き出す。
Next j
i = i + 1 'シートの次行に書き出す用意。iはポインター的なもの
Loop
objtext.Close '作業終了したので、ファイルを閉じる
End Sub
をコピペする。実行するとエクセルシート（Ｓｈｅｅｔ１）に
データが展開される。上記は、VBScriptをＶＢＡでやるもの。
ReadAllに対してReadLineの考え方、扱い方です。
ＶＢ初心者なら、こちらが「当面のおすすめ」。
今後ＶＢを勉強してください。
結果（私のサンプル例）
発注リスト

商品番号 商品名 メーカー 数量 単位
12324 ノート Ａ製紙 20 包
24123 マーカー 近藤産業 30 箱
35922 クリップ 井上金属 10 箱
47721 消しゴム Ｂ産業 5 袋
59520 ホッチキス Ｃ精工 5 箱

回答No.1

angel2015

わからないのでしたらOracleテーブルをcsvファイルにしたほうが早いかと思われます
これは比較的簡単な作業なので、検索すれば色々出てきます

その上でcsvデータを読み込めば同一の作業はできるかと

補足

angel2015さん、アドバイスありがとうございます。
おっしゃる通りcsvファイルを作成後、現在のコードを通せば
良いのですが、少しでも処理時間を短縮したかったので
直接データベースからの処理をしたいのです。