註冊
登錄
首頁
論壇版規
禁止列表
說明
地圖
數位書香
私人消息 (0)
公共消息 (0)
論壇任務 (0)
系統消息 (0)
好友消息 (0)
帖子消息 (0)
麻辣家族討論版版
»
Excel程式區
» 執行出錯~找不到資料或資料型態錯誤
返回列表
下一主題
上一主題
發帖
執行出錯~找不到資料或資料型態錯誤
shenfu
發短消息
加為好友
shenfu
當前離線
UID
614
帖子
1
主題
1
精華
0
積分
7
金錢
7
點名
0
作業系統
win_xp
軟體版本
sp2
閱讀權限
10
性別
男
來自
Taiwan
在線時間
0 小時
註冊時間
2010-6-20
最後登錄
2010-6-27
小學生
帖子
1
主題
1
精華
0
積分
7
點名
0
作業系統
win_xp
軟體版本
sp2
閱讀權限
10
性別
男
來自
Taiwan
註冊時間
2010-6-20
最後登錄
2010-6-27
1
#
跳轉到
»
正序看帖
打印
字體大小:
t
T
發表於 2010-6-27 18:51
|
只看該作者
執行出錯~找不到資料或資料型態錯誤
本帖最後由 shenfu 於 2010-6-27 18:52 編輯
Sub PopulateOneField()
Dim cnn As
ADO
DB.Connection
Dim MyConn
Dim rst As ADODB.Recordset
Dim i As Long, j As Long
Dim Rw As Long
Dim s
SQL
As String
Dim sID As Long
Sheets("sheet1").Activate
Rw = Range("A65535").End(xlUp).Row
Set cnn = New ADODB.Connection
MyConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=D:\db.mdb;"
With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Open MyConn
End With
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseServer
For
i = 2 To 100
sID = Cells(i, 1).Value
sSQL = "select * from abc where abc.ID = " & sID
rst.Open Source:=sSQL, ActiveConnection:=cnn, _
CursorType:=adOpenKeyset, LockType:=adLockOptimistic
rst(Cells(1, 2).Value) = Cells(i, 2).Value
rst(Cells(1, 3).Value) = Cells(i, 3).Value
rst(Cells(1, 4).Value) = Cells(i, 4).Value
rst(Cells(1, 5).Value) = Cells(i, 5).Value
rst.Update
rst.Close
Next i
cnn.Close
Set rst = Nothing
Set cnn = Nothing
End Sub
以上程式執行會出錯
準則運算式的資料類型不符合
可是我都把id型態改為文字或全改數字都沒用也..
請問有何辦法嗎
我的id都是access中有的
而如果改成 ' " & sID & " '
也是會出現
=>可能是 bof 或 eof 的值為 true 或目前的資料錄已被刪除
收藏
分享
50 字節以內
不支持自定義 Discuz! 代碼
Min
發短消息
加為好友
Min
(閔)
當前離線
UID
8
帖子
172
主題
39
精華
20
積分
177
金錢
177
點名
0
作業系統
Microsoft Windows XP
軟體版本
Microsoft Office 2003
閱讀權限
100
性別
男
來自
高雄
在線時間
573 小時
註冊時間
2010-5-1
最後登錄
2023-3-19
暱稱:
閔
版主
帖子
172
主題
39
精華
20
積分
177
點名
0
作業系統
Microsoft Windows XP
軟體版本
Microsoft Office 2003
閱讀權限
100
性別
男
來自
高雄
註冊時間
2010-5-1
最後登錄
2023-3-19
2
#
發表於 2010-6-27 21:33
|
只看該作者
本帖最後由 Min 於 2010-6-27 21:35 編輯
試試看
sSQL = "select * from abc where abc.ID = '" & sID & "'"
若是我回答,使您滿意,請您讓我知道!
若是我的回覆,您仍有其他見解,也請您不嗇指教!
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粉絲