下面就是我用來打開我的mdb檔程式碼....希望對你有幫助...
'==========================================================
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim qs As New ADODB.Recordset
Provider = "provider = microsoft.jet.oledb.4.0"
Source = "data source = " & App.Path & "\db1.mdb"
db.Open Provider & ";" & Source
'版大講的open方法在這...如果你的沒有可能你的比較特殊吧....XD
rs.Open Text1.Text, db
qs.Open Text2.Text, db
temp = FreeFile
Open App.Path & "\hsa.txt" For Output As #temp
'使用前請先引入mdb需要的元件...物件的宣告也要記得做..
'============================================================
我只是初學者...因為工作需求所以全部自己看書...
如果有錯的東西還請各位不吝指教....
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.166.142.67