将Excel和XML导入数据库

 1   Inherits System.Windows.Forms.Form
 2     Dim DS1 As New System.Data.DataSet
 3     Dim DS2 As New System.Data.DataSet
 4 
 5      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 6         Dim MyCommand As System.Data.OleDb.OleDbDataAdapter
 7         Dim MyConnection As System.Data.OleDb.OleDbConnection
 8 
 9         MyConnection = New System.Data.OleDb.OleDbConnection( _
               "provider=Microsoft.Jet.OLEDB.4.0; " & _
               "data source=e:\BOOK1.XLS; " & _
               "Extended Properties=Excel 8.0;")
         ' Select the data from Sheet1 of the workbook.
         MyCommand = New System.Data.OleDb.OleDbDataAdapter( _
               "select * from [Sheet1$]", MyConnection)
 '或者是DS1.ReadXml("c:\abcd.xml")
 
         MyCommand.Fill(DS1, "handle")
         DataGrid1.DataSource = DS1
         MyConnection.Close()
 
     End Sub
 
     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
         Try
             Dim j As Integer
             Dim person_id, information_id, handle As String
             Dim handle_time As System.DateTime
             'If Me.SqlConnection1.Close() Then
             Me.SqlConnection1.Open()
             'End If
             For j = 1 To DS1.Tables("handle").Rows.Count - 1
 
                 Me.SqlDataAdapter1.InsertCommand.Parameters("@person_id").Value = DS1.Tables("handle").Rows(j).Item(0)
                 Me.SqlDataAdapter1.InsertCommand.Parameters("@information_id").Value = DS1.Tables("handle").Rows(j).Item(1)
                 'Me.SqlDataAdapter1.InsertCommand.Parameters("@handle").Value = DS1.Tables("handle").Rows(j).Item(2)
                 Me.SqlDataAdapter1.InsertCommand.Parameters("@handle_time").Value = CDate(DS1.Tables("handle").Rows(j).Item(3))
                 Me.SqlDataAdapter1.InsertCommand.ExecuteNonQuery()
             Next
 
             'MessageBox.Show(SqlDataAdapter1.InsertCommand.CommandText)
             Me.SqlConnection1.Close()
         Catch ex As Exception
             MessageBox.Show(ex.Message)
         End Try
    End Sub