註冊
登錄
首頁
論壇版規
禁止列表
說明
地圖
數位書香
私人消息 (0)
公共消息 (0)
論壇任務 (0)
系統消息 (0)
好友消息 (0)
帖子消息 (0)
麻辣家族討論版版
»
VB 與 VB.Net
» 請問VB6如何連結新版的ACCESS呢?
返回列表
下一主題
上一主題
發帖
[發問]
請問VB6如何連結新版的ACCESS呢?
algoji3ji3
發短消息
加為好友
algoji3ji3
當前離線
UID
23594
帖子
11
主題
5
精華
0
積分
16
金錢
16
點名
0
作業系統
win7
軟體版本
sp3
閱讀權限
10
在線時間
24 小時
註冊時間
2016-2-9
最後登錄
2020-2-21
小學生
帖子
11
主題
5
精華
0
積分
16
點名
0
作業系統
win7
軟體版本
sp3
閱讀權限
10
註冊時間
2016-2-9
最後登錄
2020-2-21
1
#
跳轉到
»
正序看帖
打印
字體大小:
t
T
發表於 2016-10-9 20:28
|
只看該作者
[發問]
請問VB6如何連結新版的ACCESS呢?
請問各位大大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
Private Sub Command1_Click()
RF = Text1.Text
bb = Label1
Call
PPT
R
Label1 = AD
End Sub
Sub PPTR()
'1.連線代號
Dim myCon As
ADO
DB.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:\
User
s\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)
下載次數: 2
2016-10-9 20:27
樓主熱帖
VBA可以測試網路有連線嗎?
請問如何將SQL資料表中某一欄資料複製到EXC
請問控制access內的資料修改與刪除怎麼寫呢
請問EXCELVBA還可以連線FTP嗎
收藏
分享
lpk187
發短消息
加為好友
lpk187
當前離線
UID
20047
帖子
552
主題
3
精華
0
積分
578
金錢
578
點名
0
作業系統
win7
軟體版本
office 2010
閱讀權限
50
性別
男
在線時間
892 小時
註冊時間
2015-2-8
最後登錄
2024-7-9
高中生
帖子
552
主題
3
精華
0
積分
578
點名
0
作業系統
win7
軟體版本
office 2010
閱讀權限
50
性別
男
註冊時間
2015-2-8
最後登錄
2024-7-9
6
#
發表於 2016-10-10 10:08
|
只看該作者
回復
1#
algoji3ji3
用這個檔去測看看
PDR.rar
(369.38 KB)
下載次數: 4
2016-10-10 10:08
TOP
lpk187
發短消息
加為好友
lpk187
當前離線
UID
20047
帖子
552
主題
3
精華
0
積分
578
金錢
578
點名
0
作業系統
win7
軟體版本
office 2010
閱讀權限
50
性別
男
在線時間
892 小時
註冊時間
2015-2-8
最後登錄
2024-7-9
高中生
帖子
552
主題
3
精華
0
積分
578
點名
0
作業系統
win7
軟體版本
office 2010
閱讀權限
50
性別
男
註冊時間
2015-2-8
最後登錄
2024-7-9
5
#
發表於 2016-10-10 09:40
|
只看該作者
回復
1#
algoji3ji3
多次測試,都指向 PDR.accdb 是個損壞的檔,雖然可以手動打開,但用VB用就是無法打開,建議你再做一個檔去測試
TOP
小誌
發短消息
加為好友
小誌
(小誌)
當前離線
曾經也是水電工
UID
9
帖子
1195
主題
395
精華
113
積分
1747
金錢
1747
點名
0
作業系統
Vista
軟體版本
Office 2003
閱讀權限
200
性別
男
來自
台灣
在線時間
491 小時
註冊時間
2010-5-1
最後登錄
2025-7-7
暱稱:
小誌
頭銜:
曾經也是水電工
管理員
帖子
1195
主題
395
精華
113
積分
1747
點名
0
作業系統
Vista
軟體版本
Office 2003
閱讀權限
200
性別
男
來自
台灣
註冊時間
2010-5-1
最後登錄
2025-7-7
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
發短消息
加為好友
algoji3ji3
當前離線
UID
23594
帖子
11
主題
5
精華
0
積分
16
金錢
16
點名
0
作業系統
win7
軟體版本
sp3
閱讀權限
10
在線時間
24 小時
註冊時間
2016-2-9
最後登錄
2020-2-21
小學生
帖子
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
小誌
發短消息
加為好友
小誌
(小誌)
當前離線
曾經也是水電工
UID
9
帖子
1195
主題
395
精華
113
積分
1747
金錢
1747
點名
0
作業系統
Vista
軟體版本
Office 2003
閱讀權限
200
性別
男
來自
台灣
在線時間
491 小時
註冊時間
2010-5-1
最後登錄
2025-7-7
暱稱:
小誌
頭銜:
曾經也是水電工
管理員
帖子
1195
主題
395
精華
113
積分
1747
點名
0
作業系統
Vista
軟體版本
Office 2003
閱讀權限
200
性別
男
來自
台灣
註冊時間
2010-5-1
最後登錄
2025-7-7
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
靜思自在 :
甘願做、歡喜受。
返回列表
下一主題
上一主題
EXCEL專屬討論區
Excelㄧ般區
Excel程式區
進階應用專區
OFFICE 系列
Word
PowerPoint
Access
Office不分區
程式語言
VB 與 VB.Net
C 與 C#
Java 與 J#
程式設計不分區
資料庫
ORACLE
My SQL
MS SQL
網頁設計
ASP 與 ASP.NET
PHP
PHP+MySQL 入門實作
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
網頁設計不分區
電腦與作業系統
電腦各種硬體討論
一般電腦軟體討論
論壇事務
管理公告
投訴反映
新手測試
愛 ‧ 生活
公益佈告欄
生活與感動
[收藏此主題]
[關注此主題的新回復]
[通過 QQ、MSN 分享給朋友]
申請友情鏈接
Facebook粉絲