- 帖子
- 9
- 主題
- 6
- 精華
- 0
- 積分
- 22
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- XP
- 閱讀權限
- 10
- 性別
- 男
- 來自
- TAIWAN
- 註冊時間
- 2011-9-12
- 最後登錄
- 2016-5-4
|
[發問] 請問從資料庫匯出資料到execl會出現語法錯誤
因我是程式不強，只能找網路上的範例來改簡單的程式
以下資料是在網路上找的範例，但不知少了哪些語法，也找了滿多資料
就是不知少了哪些語法，才會造成無法正常執行。
*這次撰寫的功能是在資料框A1輸入ID , 然後A2則會顯示該使用者名稱*
在編輯器的左邊 , 選擇你想要輸入資料所在的工作表 , 最簡單就是點兩下Sheet1
在右邊打上下列資料 , 這段的意思是要偵測他只要工作表欄位有更動(假設他輸入過值)
把它Excel的欄位位置接收 , 判斷是否是A1這個欄位 , 如果是 , 啟用Search這個函式來搜尋
在Excel裡 , 欄位是透過Range來表示 , 而不管是Column或是Row , 都是從1開始
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 and Target.Row=1 Then
Search (Target.Text)
End If
End Sub
接收到來自上述的搜尋要求 , 進資料庫搜尋 , 並將回傳值丟給A2欄位(在Excel裡 , 欄位需選定Select才可把資料貼上 , ActiveCell.FormulaR1C1代表給選定欄位貼上這個動作）
Sub Search(ByVal id As String)
Dim conn As ADODB.ConnectionDim dbRecset As ADODB.Recordset
Dim sSQL As StringDim ss As String
初始化
Set dbRecset = New ADODB.Recordset
Set conn = New ADODB.Connection
conn.ConnectionString = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=127.0.0.1;PORT=3306;DATABASE=test;UID=XXX;PASSWORD=OOO;OPTION=3"
conn.Open
sSQL = "SELECT * FROM Table where id='" & id & "'"
dbRecset.CursorLocation = adUseClient
dbRecset.Open Source:=sSQL, ActiveConnection:=conn, CursorType:=adOpenForwardOnly, LockType:=adLockReadOnly, Options:=adCmdTextdbRecset.MoveFirst
取資料
While Not dbRecset.EOF
Range("A2").Select
ActiveCell.FormulaR1C1 = dbRecset(1)
dbRecset.MoveNext
Wend
dbRecset.Close
End Sub
存檔後 , 回到資料表 , 在A1上打ID , A2就可以顯示Name了^^
ps 1 資料庫的資料表就很單純的建立資料 , 不需要啥額外設定
Ps 2 如果要連到別的電腦 , 記得對方要開3306 , Excel必須啟用這個表單的巨集功能(為了安全理由 , 有些含有巨集的Excel檔案 , 開啟時巨集預設關閉 , 需手動開啟 |
|
發表於 2011-10-22 22:21
| 
