Private Sub Button1_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button1.Click
'創(chuàng)建一個 DataSet
Dim myDataSet As DataSet = New DataSet
'連接數(shù)據(jù)庫，得到數(shù)據(jù)集
Try
' 設(shè)定數(shù)據(jù)連接字符串，此字符串的意思是打開Sql server數(shù)據(jù)庫，服務(wù)器名稱為本地 ,數(shù)據(jù)庫為temp
Dim strCon As String = "Provider = SQLOLEDB.1; Persist Security Info = False; User ID = " & TextBox4.Text & " ;PSW=" & TextBox5.Text _
& " ; Initial Catalog = " & TextBox2.Text & " ;Data Source = " & TextBox1.Text
'數(shù)據(jù)連接代碼，對此修改可導(dǎo)入其他類型數(shù)據(jù)庫到Excle表格
Dim myConn As OleDbConnection = New OleDbConnection ( strCon )
myConn.Open ( )
Dim strCom As String = "SELECT * FROM " & TextBox3.Text
Dim myCommand As OleDbDataAdapter = New OleDbDataAdapter ( strCom , myConn )
myCommand.Fill ( myDataSet , "table01" )
'關(guān)閉此OleDbConnection
myConn.Close ( )
Catch ey As Exception
MessageBox.Show ( "連接錯誤! " ey.ToString ( ) , "錯誤" )
End Try
Dim table As DataTable = myDataSet.Tables ( "table01" )
'創(chuàng)建一個空的Excel電子表格文檔
Dim AppExcel As Excel.Application = New Excel.Application
AppExcel.Application.Workbooks.Add ( True )
'讀取數(shù)據(jù)的字段名稱，并在產(chǎn)生的Excel表格的第一行顯示出來
Dim colIndex As Integer = 0
Dim col As DataColumn = New DataColumn
For Each col In table.Columns
colIndex = colIndex 1
AppExcel.Cells ( 1 , colIndex ) = col.ColumnName
Next
'實(shí)現(xiàn)數(shù)據(jù)集到Excel表格的轉(zhuǎn)換
Dim rowIndex As Integer = 1
Dim row As DataRow
For Each row In table.Rows
rowIndex = rowIndex 1
colIndex = 0
Dim col1 As DataColumn
For Each col1 In table.Columns
colIndex = colIndex 1
AppExcel.Cells ( rowIndex , colIndex ) = row ( col1.ColumnName ) .ToString ( )
Next
Next
AppExcel.Visible = True
End Sub