将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( _
10                 " provider=Microsoft.Jet.OLEDB.4.0;  "   &  _
11                 " data source=e:\BOOK1.XLS;  "   &  _
12                 " Extended Properties=Excel 8.0; " )
13           '  Select the data from Sheet1 of the workbook.
14          MyCommand  =   New  System.Data.OleDb.OleDbDataAdapter( _
15                 " select * from [Sheet1$] " , MyConnection)
16  ' 或者是DS1.ReadXml("c:\abcd.xml")
17 
18          MyCommand.Fill(DS1,  " handle " )
19          DataGrid1.DataSource  =  DS1
20          MyConnection.Close()
21 
22       End Sub
23 
24       Private   Sub  Button2_Click( ByVal  sender  As  System.Object,  ByVal  e  As  System.EventArgs)  Handles  Button2.Click
25           Try
26               Dim  j  As   Integer
27               Dim  person_id, information_id, handle  As   String
28               Dim  handle_time  As  System.DateTime
29               ' If Me.SqlConnection1.Close() Then
30               Me .SqlConnection1.Open()
31               ' End If
32               For  j  =   1   To  DS1.Tables( " handle " ).Rows.Count  -   1
33 
34                   Me .SqlDataAdapter1.InsertCommand.Parameters( " @person_id " ).Value  =  DS1.Tables( " handle " ).Rows(j).Item( 0 )
35                   Me .SqlDataAdapter1.InsertCommand.Parameters( " @information_id " ).Value  =  DS1.Tables( " handle " ).Rows(j).Item( 1 )
36                   ' Me.SqlDataAdapter1.InsertCommand.Parameters("@handle").Value = DS1.Tables("handle").Rows(j).Item(2)
37                   Me .SqlDataAdapter1.InsertCommand.Parameters( " @handle_time " ).Value  =   CDate (DS1.Tables( " handle " ).Rows(j).Item( 3 ))
38                   Me .SqlDataAdapter1.InsertCommand.ExecuteNonQuery()
39               Next
40 
41               ' MessageBox.Show(SqlDataAdapter1.InsertCommand.CommandText)
42               Me .SqlConnection1.Close()
43           Catch  ex  As  Exception
44              MessageBox.Show(ex.Message)
45           End   Try
46      End Sub
47