none
csvファイルの読込及びデータ更新方法について RRS feed

  • 質問

  • 現在、form1にtoolmasterdatagridviewを配置しています。datagridviewはtoolmasterというテーブルにバインディングされているとします。
    そこで、Sub CSVインポート()にてtoolmasterdatagridviewにToolmasterBindingSource.DataSourceでshizaitanka.csvを読み込んでいるのですが、これをSDBdatasetというデータセットを介して、データを更新したいと考えているのですが、バインディングする方法ではうまくいきません。
    何か良い方法はないでしょうか?

        Sub CSVインポート()
            'CSVファイルのあるフォルダ
            Dim csvDir As String = "C:\Documents and Settings\"
            'CSVファイルの名前
            Dim csvFileName As String = "shizaitanka.csv"

            '接続文字列
            Dim conString As String = _
                "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
                + csvDir + ";Extended Properties=""text;HDR=yes;FMT=Delimited"""
            Dim con As New System.Data.OleDb.OleDbConnection(conString)

            Dim commText As String = "SELECT * FROM [" + csvFileName + "]"
            Dim da As New System.Data.OleDb.OleDbDataAdapter(commText, con)

            'DataTableに格納する
            Dim dt As New DataTable
            da.Fill(dt)
            ToolmasterBindingSource.DataSource = dt
        End Sub

        Sub 更新()
            If MsgBox("データを更新しますか?",   MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
                Try
                    SqlDataAdapter1.Update(SDBDataSet)
                    MsgBox("更新成功!")
                Catch ex As Exception
                    MsgBox("更新できません!")
                End Try
            End If
        End Sub

    2007年3月8日 4:58