返回列表 上一主題 發帖

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

algoji3ji3

帖子
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」的~

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

T1.jpg
  1. Private Sub Command1_Click()
  2.     RF = Text1.Text
  3.     bb = Label1
  4.     Call PPTR
  5.    
  6.     Label1 = AD
  7. End Sub


  10. Sub PPTR()

  12. '1.連線代號
  13.     Dim myCon As ADODB.Connection '開資料庫
  14.     Dim mywq As ADODB.Recordset '開資料表

  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;"

  25.     myCon.CursorLocation = adUseClient

  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)
收藏 分享

lpk187

帖子
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

帖子
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: 9Rank: 9Rank: 9

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

2021牛年全勤獎章好學求知勳章熱烈參與勳章2017 雞年全勤獎章2018 狗年全勤獎章2019 豬年全勤獎章2020鼠年全勤獎章
4#
發表於 2016-10-10 04:12 | 只看該作者
簡易範例，同樣用師出同門的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")
複製代碼
心安，平安   
發表任何無意義的感謝或灌水文章一律砍,珍惜帳號,請詳閱版規!!

TOP

algoji3ji3

帖子
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: 9Rank: 9Rank: 9

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

2021牛年全勤獎章好學求知勳章熱烈參與勳章2017 雞年全勤獎章2018 狗年全勤獎章2019 豬年全勤獎章2020鼠年全勤獎章
2#
發表於 2016-10-9 23:52 | 只看該作者
一段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. %>
複製代碼
心安，平安   
發表任何無意義的感謝或灌水文章一律砍,珍惜帳號,請詳閱版規!!

TOP

        靜思自在 : 是非當教育，讚美作警惕。
返回列表 上一主題