台灣最具影響力的-資訊專家社群 - 讓您成為最有價值的IT專業人才
線上人數
2358
 
會員總數:229174
接案會員:6761
文章總數:2320
討論主題:175252
歡迎您免費加入會員
討論區列表 >> VB6 >> 是否有VB連接Access範例

[變換順序]
[我要回覆]
1


回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
是否有VB連接Access範例
價值 : 20 QP  點閱數:5244 回應數:3

點圖分享到Plurk吧!
樓主

白蓮
門外漢
0 2
10 0
發送站內信

我的架構已經弄好了 可是不會連結資料庫><
請問大大要怎麼連結呢
有流程可以給我參考嗎><
本篇文章發表於2006-05-14 11:41
什麼是iT Power資訊報 新手會員瞧一瞧
1樓
回應

AirCanada
捐贈 VP 給 AirCanada 檢舉此回應
hi
http://www.mf100.com/document/2004-6/326.shtml
轉載 沐風


本篇文章回覆於2006-05-14 12:20
--未登入的會員無法查看對方簽名檔--
2樓
回應

nick
捐贈 VP 給 nick 檢舉此回應
先勾選VB內「引用項目」的「Microsoft ActiveX Data Objects 2.7 Library」選項。

Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public cmd As New ADODB.Command

driver = "{Microsoft Access Driver (*.mdb)}"
dbq = "C:\test.mdb"

conn.Open "driver=" & driver & ";dbq=" & dbq
Set cmd.ActiveConnection = conn
cmd.CommandText = sqlstr
rs.CursorLocation = adUseClient
rs.Open cmd, , adOpenStatic, adLockPessimistic

完成後,就可以 rs 作為資料的控制項。



本篇文章回覆於2006-06-13 18:37
--未登入的會員無法查看對方簽名檔--
3樓
回應

Juby
檢舉此回應
Private Sub Form_Load()
Dim strConnect As String
Dim errAdo As ADODB.Error
On Error GoTo HandleErrors

' 連線字串
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\你的資料庫名稱.mdb"
conn.ConnectionString = strConnect
conn.Open

Exit Sub
HandleErrors:
Dim strMsg As String
For Each errAdo In conn.Errors
strMsg = strMsg & errAdo.NativeError & ":" & errAdo.Description
MsgBox strMsg
Next
End Sub


' 在結束 Form 時再把連線關閉即可
Private Sub Form_Unload(Cancel As Integer)
conn.Close
End Sub



本篇文章回覆於2006-07-22 21:28
--未登入的會員無法查看對方簽名檔--
[變換順序]
1
 

回覆
如要回應,請先登入.