VB.net : CSVによるインポート用ファイルの作成( つまりエクスポート ) で作成した CSV をインポートする処理ですが、データベースの処理等をクラス化しています MyClass.vb 社員マスタ.sql 社員マスタ.csv
Imports System.IO
Imports System.Text
Module Module1
Sub Main()
' データベースとその他の処理をまとめたクラス
Dim MyObj As MyLib = New MyLib("localhost","lightbox","root","password")
' オブジェクトを使って接続処理
if Not MyObj.CreateConnection() then
Console.WriteLine("処理が異常終了しました")
Return
end if
'---------------------------------------------------
' insert 構文固定部分
Dim InsertQueryBase As String = "insert into `社員マスタ` ("
' 行毎完成 insert 文 を格納する変数
Dim InsertQuery As String = Nothing
' SHIFT_JIS で入力する為のテキストファイルの準備
Dim SJIS_Enc As Encoding = Encoding.GetEncoding(932)
Dim ReadFile As StreamReader = New StreamReader( MyLib.CsvPath, SJIS_Enc )
' SHIFT_JIS で読み込む準備
Dim LineText As String = Nothing
' ループカウンタ用
Dim idx As Integer = 0
' Peek() は、StreamReader オブジェクトの現在位置は変わりません
' それ以上読み取り可能な文字がない場合、戻り値は -1 です。
Do While ReadFile.Peek() >= 0
' 一行を読み込む
LineText = ReadFile.ReadLine()
if idx = 0 then
LineText = LineText.Replace("""","`")
InsertQueryBase = InsertQueryBase + LineText + ")"
idx += 1
Continue Do
end if
InsertQuery = InsertQueryBase + " values("
LineText = LineText.Replace("""""","NULL")
LineText = LineText.Replace("""","'")
InsertQuery = InsertQuery + LineText + ")"
' Console.WriteLine( InsertQuery )
MyObj.Execute(InsertQuery)
' 読み込みカウンタアップ
idx += 1
Loop
' リソースの後片づけ
ReadFile.Close()
ReadFile.Dispose()
'---------------------------------------------------
MyObj.EndConnection()
End Sub
End Module
|
|
【VB.NET : データベースの最新記事】
- VB.net : GetSchema メソッドでデータベース内のテーブル一覧と指定したテーブルの列名一覧を取得する
- VB.net : ListView に DB から読み込んだデータをセットする
- VB.net : 一時 PL/SQL で Data Pump Exportユーティリティと同じデータをエクスポートして処理結果を取得する
- VB.net : 一時PL/SQL 内の変数をプログラムでやり取りする
- VB.net : PL/SQL の OUT パラメータから実行結果を取得する
- VB.net : CSVによるインポート用ファイルの作成( つまりエクスポート )
- VB.net : insert 構文によるインポート用ファイルの作成( つまりエクスポート )
- VB.net 2008 : System.Data.Odbc データ取得(SELECT)処理( MySQL 5.1 )
- VB.net 2008 : System.Data.Odbc 更新処理( MySQL 5.1 )
- VB.net 2008 : System.Data.Odbc 接続テスト( MySQL 5.1 )
- VB.net : Oracle の行を返さない SQL の実行
