返回列表 上一主題 發帖

[發問] 請問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)
收藏 分享

algoji3ji3

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

論壇贊助勳章
2#
發表於 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

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題