プロが教えるわが家の防犯対策術!

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

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

ネット上にあります、サンプルプログラム
http://www.atmarkit.co.jp/fdotnet/basics/adonet0 …
を参考にしつつ、途中まで作成してみたのですが、
*********に囲んであるところをどのようにしたら良いのかが分かりません。
以下に、途中まで作成したプログラムと、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")

'プログラム終わり

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

A 回答 (1件)

探し当てられた ページは残念ながら『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で『データアクセスガイド』と言った項目も参照してみましょう
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!