帖子: 11
主題: 5
精華: 0
積分: 16
點名: 0
作業系統: win7
軟體版本: sp3
閱讀權限: 10
註冊時間: 2016-2-9
最後登錄: 2020-2-21

論壇贊助勳章

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2016-10-9 20:28 | 只看該作者

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

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

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

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

沒有針對「accdb」的~

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

Private Sub Command1_Click()
RF = Text1.Text
bb = Label1
Call PPTR
Label1 = AD
End Sub
Sub PPTR()
'1.連線代號
Dim myCon As ADODB.Connection '開資料庫
Dim mywq As ADODB.Recordset '開資料表
'2.建立Connection物件
Set myCon = New ADODB.Connection
'3.連結資料庫
'驅動程式Provider = Microsoft.ACE.OLEDB.12.0
'檔案位置Data Source=
myCon.Open "Provider = Microsoft.ACE.OLEDB.12.0;" & _
"Data Source =C:\Users\algo\Desktop\PDR.accdb;" & _
"Jet OLEDB:Database Password=a123;"
myCon.CursorLocation = adUseClient
'4.建立Recordset物件&連結資料表
'選取SELECT+欄位+FROM+資料表名稱+Where+欄位名稱
RF = " SELECT top 1 " & " 編號, " & " 姓名, " & " 職務, " & " 編碼 " & _
" FROM PDA " & _
" WHERE 編碼 " & _
" LIKE '" & P & "' "
Set mywq = myCon.Execute(RF)
AD = mywq.Fields("姓名")
'5.關閉連線
myCon.Close
'6.丟棄物件
Set mywq = Nothing
Set myCon = Nothing
End Sub

複製代碼

ACCESS連線.rar (584.84 KB)

樓主熱帖

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

6^#

發表於 2016-10-10 10:08 | 只看該作者

回復 1# algoji3ji3

用這個檔去測看看

PDR.rar (369.38 KB)

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

5^#

發表於 2016-10-10 09:40 | 只看該作者

回復 1# algoji3ji3

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

TOP

小誌

　暱稱: 小誌
　頭銜: 曾經也是水電工

管理員 Rank: 9 Rank: 9 Rank: 9

帖子: 1190
主題: 394
精華: 113
積分: 1747
點名: 1
作業系統: Vista
軟體版本: Office 2003
閱讀權限: 200
性別: 男
來自: 台灣
註冊時間: 2010-5-1
最後登錄: 2024-11-25

2021牛年全勤獎章好學求知勳章熱烈參與勳章 2017 雞年全勤獎章 2018 狗年全勤獎章 2019 豬年全勤獎章 2020鼠年全勤獎章

4^#

發表於 2016-10-10 04:12 | 只看該作者

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

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

複製代碼

心安，平安
發表任何無意義的感謝或灌水文章一律砍,珍惜帳號,請詳閱版規!!

TOP

algoji3ji3

小學生 Rank: 1

帖子: 11
主題: 5
精華: 0
積分: 16
點名: 0
作業系統: win7
軟體版本: sp3
閱讀權限: 10
註冊時間: 2016-2-9
最後登錄: 2020-2-21

論壇贊助勳章

3^#

發表於 2016-10-10 00:47 | 只看該作者

回復 2# 小誌

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

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

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

TOP

小誌

　暱稱: 小誌
　頭銜: 曾經也是水電工

管理員 Rank: 9 Rank: 9 Rank: 9

帖子: 1190
主題: 394
精華: 113
積分: 1747
點名: 1
作業系統: Vista
軟體版本: Office 2003
閱讀權限: 200
性別: 男
來自: 台灣
註冊時間: 2010-5-1
最後登錄: 2024-11-25

2021牛年全勤獎章好學求知勳章熱烈參與勳章 2017 雞年全勤獎章 2018 狗年全勤獎章 2019 豬年全勤獎章 2020鼠年全勤獎章

2^#

發表於 2016-10-9 23:52 | 只看該作者

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

<%@Language=VBScript %>
<%
Dim adoCon
Dim rsLogbook
Dim strSQL
Set adoCon = Server.CreateObject("ADODB.Connection")
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("DatabaseName.mdb")
Set rsLogbook = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT TableName.FieldName FROM TableName;"
rsLogbook.Open strSQL, adoCon
Response.Write ("<br>")
Response.Write (rsLogbook("FieldName"))
rsLogbook.Close
Set rsLogbook = Nothing
Set adoCon = Nothing
%>

複製代碼

心安，平安
發表任何無意義的感謝或灌水文章一律砍,珍惜帳號,請詳閱版規!!

TOP