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件)
- 最新から表示
- 回答順に表示
No.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で『データアクセスガイド』と言った項目も参照してみましょう
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
- Access(アクセス) access,vbaでフォルダ内のファイルをテーブルにインポート、ファイル名もフィールドに追加したい 1 2022/08/31 11:11
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- PHP htmlspecialcharsが機能していないです。 バグですか? 1 2022/04/05 01:22
- Visual Basic(VBA) ファイル全てを .xlsm に変更したところ、プログラムが途中で落ちてしまっています 17 2022/12/07 12:03
- Visual Basic(VBA) エクセルVBAについて 8 2022/07/13 22:41
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
- Visual Basic(VBA) VBAにてメール作成した際、一部指定箇所のみ赤文字にしたいです。 下記の内容ですと作成されたメール本 1 2022/04/27 13:31
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Webプログラムってネイティブア...
-
COBOLのS9タイプからXタイプへ...
-
プログラムってコードに性格っ...
-
指定したフォルダーを最前面表...
-
SH2を使いたいです
-
vba listviewにおけるtextのAli...
-
初級者の質問――time_tについて
-
VBA
-
壁紙の変更
-
タイトルバーのダブルクリック...
-
gccでスタックオーバーフローの...
-
Excel VBA で、データベースフ...
-
世界一美しいソースコード
-
C++ Builder6 をふたたび動か...
-
マイコンからプログラムを読み...
-
2値化した画像の黒い部分のピク...
-
VC++6.0からVC++2008exへの移行...
-
VBコンソールアプリ(.NET Frame...
-
Visual Studio .NET C# でDLLを...
-
Visual C++でDESを使って文字列...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
URLの最初の「h」を略す
-
指定したフォルダーを最前面表...
-
vba listviewにおけるtextのAli...
-
プロダクションコードとは?
-
Excel VBA じゃんけん
-
初級者の質問――time_tについて
-
VBA
-
COBOLのS9タイプからXタイプへ...
-
無限ループ中にある任意のキー...
-
XPathの関数「text()="value"」...
-
マイコンからプログラムを読み...
-
VBAにてTIFFから画像を取込みた...
-
Arduino nano(アルドゥイーノ ...
-
2値化した画像の黒い部分のピク...
-
VBコンソールアプリ(.NET Frame...
-
プログラミングの問題と解答例...
-
signalハンドラに引数を渡したい
-
三次元のグラフを書きたいので...
-
gccでスタックオーバーフローの...
-
Visual Studio .NET C# でDLLを...
おすすめ情報