VB6.0で、CSVファイルのデータをデータベースに格納する方法

質問

VBもプログラミングも初心者です。

VB6.0を用いて、CSVファイルをデータベースに格納するプログラムを作成したいのですが、
やり方がわからず、困っております。

ネット上にあります、サンプルプログラム
（http://www.atmarkit.co.jp/fdotnet/basics/adonet05/adonet05_02.html）
を参考にしつつ、途中まで作成してみたのですが、
*********に囲んであるところをどのようにしたら良いのかが分かりません。
以下に、途中まで作成したプログラムと、CSVファイルを示します。

++++ CSVファイル ++++
（CSVファイルは、カラム数、行数共に変化します。）

001,1行目,1番
002,2行目,2番
003,3行目,3番
004,4行目,4番

'プログラム
Dim sqlSTR As String
Dim connStr As String

connStr = "Server=xxxxxxxxxxxxx"
+ "Trusted_Connection=yes;"
+ "database=testdb";

da_A = New System.Data.SqlClient.SqlDataAdapter(sqlStr, connStr)
ds_A = New System.Data.DataSet()

*************************
'sql文を定義
sqlStr = "insert into"
*************************

Dim Tables As New DataTable
Dim nr_A As DataRow

nr_A ds_A.Tables("testdb").NewRow()

*************************************
nr_A("column1") = "001"
nr_A("column2") = "1番目"

'上記ネット上のサンプルプログラムでは、ここに直書きをしているのですが、
'ファイルの行を読み込み、指定するやり方がわかりません。
*************************************

Tables.Rows.Add(nr_A)
da_A.Update(ds_A, "testdb")

'プログラム終わり

どうか、よろしくお願い致します。

回答No.1

redfox63

探し当てられた ページは残念ながら『VB6.0』用のサンプルではありません
これは VB.NET(VC#.NET)用のサンプルです

VB6.0では データベースを扱うのには DAOまたはADOを使うようになっています

テキストファイル(CSV)の読み込みは
dim ff as integer
dim ss as string
dim ar as string
ff = FreeFile
Open "ファイル名" for input as ff
while not Eof( ff )
Line input #ff,ss
' 変数arに,区切りの 項目を分割する
' ただしデータに『,』が存在していることは考慮していない
ar = split( ss, "," )
' レコードセットにデータをセット
Wend
close ff
と言った具合になります

データベースとは ConnectionとRecordset辺りをキーワードに調べてみましょう

VB6付属のMSDNで『データアクセスガイド』と言った項目も参照してみましょう