該樓層疑似違規已被系統折疊?隱藏此樓查看此樓

'　Adodc + DataGrid 控件直接連接 Excel 表格，

'　把 Excel 表格當成數據庫。

'　在窗體中畫出 Adodc1 和 DataGrid1 兩個控件，

'　不做任何屬性設置，只管大小和位置。

'　-------------------------------------------

Option Explicit

Public mPath As String '　程序所在的絕對路徑

Public mLink As String '　數據庫連接字符串

Public mSQL As String '　ＳＱＬ命令字符串

Public mWJ As String '　Excel2003版本文件名

Private Sub 連接數據()

'　連接數據庫表裝入數據并刷新記錄集

Adodc1.ConnectionString = mLink

Adodc1.CommandType = 8

Adodc1.EOFAction = 2

Adodc1.RecordSource = mSQL

Adodc1.Refresh

'　將數據填表并刷新表格控件

Set DataGrid1.DataSource = Adodc1

DataGrid1.Refresh

End Sub

Private Sub 連接參數()

'　構成連接 Excel2003 表格命令：mLink

mLink = "Provider = Microsoft.Jet.OLEDB."

mLink = mLink & "4.0; Persist Security "

mLink = mLink & "Info = FALSE; "

mLink = mLink & "data source = " & mWJ

mLink = mLink & "; extended properties "

mLink = mLink & "= Excel 8.0"

'　構成 SQL－SELECT 語句格式

mSQL = "Select * From [Sheet1$]"

End Sub

Private Sub Form_Load() '　初始化模塊

mPath = App.Path '　獲取程序所在的路徑

If Right(mPath, 1) <> Chr(92) Then

mPath = mPath & Chr(92)

End If

Adodc1.Visible = False

mWJ = mPath & "相對路徑\Excel2003文件名.XLS"

Call 連接參數 : Call 連接數據

End Sub