编程新人现下dataset里面存了一个100多列的表，想要将这个表存进access数据库中，想了一天试了一天。无奈了，来找大神帮忙。

编程新人求助：现下dataset里面存了一个100多列的表，想要将这个表存进access数据库中，想了一天试了一天。无奈了，来找大神帮忙。求助啊。。。。

 

        Dim dt As DataTable = New DataTable()

        Dim ConStr As String = g_SQLDataSource

        Dim SqlText As String = "select * from basictable"

        Dim conn As OleDb.OleDbConnection = New OleDb.OleDbConnection(ConStr)

        Dim comm As OleDb.OleDbCommand = New OleDb.OleDbCommand(SqlText, conn)

        Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(comm)

        Dim myDataset As DataSet = New DataSet()

        da.Fill(myDataset)

用这段代码将表写进数据库。
接下来

        myDataset.Tables(0).Columns.Add("结果")

        Dim i, j As New Integer

        i = myDataset.Tables(0).Rows.Count - 1

        j = 0

        For i = 0 To i

            Try

                Dim insertstr As String = "insert into basictable values ('" + myDataset.Tables(0).Rows(i).Item(0).ToString + "','" + myDataset.Tables(0).Rows(i).Item(1).ToString + "')"

                Dim cmd As OleDbCommand = New OleDbCommand(insertstr, conn2)

                cmd.ExecuteNonQuery()

                myDataset.Tables(0).Rows(i).Item("结果") = "OK"

                j = j + 1

            Catch ex As Exception

                myDataset.Tables(0).Rows(i).Item("结果") = ex.Message.ToString

                'MsgBox(ex.Message.ToString)