[發問] 請問VB6如何連結新版的ACCESS呢?

algoji3ji3

請問各位大大VB6怎麼連結新版的ACCESS呀~
我在EXCEL VBA底下作業連線OK~
但是搬到VB6就不行了~
也試過更新成VB6 SP6~還是不行~

總是會出現「執行階段錯誤'-2147467259 (80004005)」

上網爬文了好久都只有針對副檔名是mdb的，

沒有針對「accdb」的~

請問各位大大有解決辦法嗎?

下載 (19.09 KB)

2016-10-9 20:24

下載 (30.88 KB)

2016-10-9 20:24

1. Private Sub Command1_Click()
   
2.     RF = Text1.Text
   
3.     bb = Label1
   
4.     Call PPTR
   
5.    
   
6.     Label1 = AD
   
7. End Sub
   
8. 
   
9. 
   
10. Sub PPTR()
    
11. 
    
12. '1.連線代號
    
13.     Dim myCon As ADODB.Connection '開資料庫
    
14.     Dim mywq As ADODB.Recordset '開資料表
    
15. 
    
16. '2.建立Connection物件
    
17.     Set myCon = New ADODB.Connection
    
18. '3.連結資料庫
    
19.     '驅動程式Provider = Microsoft.ACE.OLEDB.12.0
    
20.     '檔案位置Data Source=
    
21.     myCon.Open "Provider = Microsoft.ACE.OLEDB.12.0;" & _
    
22.     "Data Source =C:\Users\algo\Desktop\PDR.accdb;" & _
    
23.     "Jet OLEDB:Database Password=a123;"
    
24. 
    
25.     myCon.CursorLocation = adUseClient
    
26. 
    
27. '4.建立Recordset物件&連結資料表
    
28.     '選取SELECT+欄位+FROM+資料表名稱+Where+欄位名稱
    
29.    
    
30.     RF = " SELECT top 1 " & " 編號, " & " 姓名, " & " 職務, " & " 編碼 " & _
    
31.          " FROM PDA " & _
    
32.          " WHERE 編碼 " & _
    
33.          " LIKE  '" & P & "' "
    
34.    
    
35.     Set mywq = myCon.Execute(RF)
    
36.    
    
37.         AD = mywq.Fields("姓名")
    
38.    
    
39. '5.關閉連線
    
40.     myCon.Close
    
41.    
    
42. '6.丟棄物件
    
43.     Set mywq = Nothing
    
44.     Set myCon = Nothing
    
45. End Sub

複製代碼

ACCESS連線.rar (584.84 KB)

下載次數: 2

2016-10-9 20:27

小誌

一段ASP的程式碼，師出同門請參考
重點是你開發程式的這台電腦是否有安裝2007以上版本的ACCESS?

1. <%@Language=VBScript %>
   
2. <%
   
3. Dim adoCon
   
4. Dim rsLogbook
   
5. Dim strSQL
   
6. Set adoCon = Server.CreateObject("ADODB.Connection")
   
7. adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("DatabaseName.mdb")
   
8. Set rsLogbook = Server.CreateObject("ADODB.Recordset")
   
9. strSQL = "SELECT TableName.FieldName FROM TableName;"
   
10. rsLogbook.Open strSQL, adoCon
    
11. Response.Write ("<br>")
    
12. Response.Write (rsLogbook("FieldName"))
    
13. rsLogbook.Close
    
14. Set rsLogbook = Nothing
    
15. Set adoCon = Nothing
    
16. %>

複製代碼

algoji3ji3

回復 2# 小誌

版大您好~
我試過連線「mdb」，可以連線無誤~
目前是要連線「accdb」檔會有出問題~

安裝的是
vb6.0 sp6
Microsoft Access 2010
2007 Office system 驅動程式：資料連線元件
accessruntimeanddataconnectivity2007sp3-kb2526310-fullfile-zh-tw
AccessDatabaseEngine_X64

爬文能裝的都裝了....還是不行>"<特來求救>"<

小誌

簡易範例，同樣用師出同門的ASP
剛試過

1. Set conobject = Server.CreateObject("ADODB.Connection")
   
2.          DBPath = Server.MapPath("mlebp-new.accdb")
   
3.          conobject.Open "Driver={Microsoft Access Driver (*.mdb, *.accdb)};DBQ=" & DBPath
   
4.         Set recobject=Server.CreateObject("ADODB.Recordset")

複製代碼

lpk187

回復 1# algoji3ji3


   多次測試，都指向 PDR.accdb 是個損壞的檔，雖然可以手動打開，但用VB用就是無法打開，建議你再做一個檔去測試

lpk187

回復 1# algoji3ji3

用這個檔去測看看
   
PDR.rar (369.38 KB)

下載次數: 4

2016-10-10 10:08