タイトル : CSVデータをMDBに全件出力 投稿日 : 2006/12/15(Fri) 15:51 投稿者 : やま
お世話になっております。 CSVデータ全件をMDBのテーブルに格納する処理があるのですが、 データが、3万件あると、3万回のインサート処理が走ってしまう コーディングになっています。 処理の度に、MDBのテーブルのデータは全て削除し、 CSVデータを1件1件追加する処理になっています。 もっと効率のよい方法はないでしょうか? ご教授お願い致します。 'ODBC Driver用宣言 Dim lConnection As OdbcConnection Dim lDataAdapter As New OdbcDataAdapter Dim lSQLCommand As New OdbcCommand Dim lTransaction As OdbcTransaction lConnectStr = "DSN=" & "MDB" & ";UID=" & "" & ";PWD=" & "" lConnection = New OdbcConnection(lConnectStr) lConnection.Open() 'テーブルデータを全件削除 〜 省略 〜 lSQLCommand.Connection = lConnection '作成された接続をセット lSQLCommand.CommandType = CommandType.Text 'CommandTextをテキストとして解釈 lDataAdapter.SelectCommand = lSQLCommand i = 0 Do i = i + 1 StrSQL = "" StrSQL = StrSQL & " INSERT INTO テーブル1 " & vbNewLine StrSQL = StrSQL & " " & vbNewLine StrSQL = StrSQL & " (" & vbNewLine StrSQL = StrSQL & " キー," & vbNewLine 〜 省略 〜 lSQLCommand.CommandText = StrSQL lSQLCommand.ExecuteNonQuery() Loop |