[ツリー表示へ] [ワード検索] [Home]
タイトル ： ＣＳＶデータをＭＤＢに全件出力 投稿日 ： 2006/12/15(Fri) 15:51 投稿者 ： やま
| お世話になっております。 ＣＳＶデータ全件をＭＤＢのテーブルに格納する処理があるのですが、 データが、３万件あると、３万回のインサート処理が走ってしまう コーディングになっています。 処理の度に、ＭＤＢのテーブルのデータは全て削除し、 ＣＳＶデータを１件１件追加する処理になっています。 もっと効率のよい方法はないでしょうか？ ご教授お願い致します。 '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 |
をクリックするとツリー全体を一括表示します） - ＣＳＶデータをＭＤＢに全件出力 - やま 12/15-15:51No.4687