返回列表下一主題上一主題發帖

執行出錯~找不到資料或資料型態錯誤

shenfu

小學生 Rank: 1

帖子: 1
主題: 1
精華: 0
積分: 7
點名: 0
作業系統: win_xp
軟體版本: sp2
閱讀權限: 10
性別: 男
來自: Taiwan
註冊時間: 2010-6-20
最後登錄: 2010-6-27

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-6-27 18:51 | 只看該作者

執行出錯~找不到資料或資料型態錯誤

本帖最後由 shenfu 於 2010-6-27 18:52 編輯

Sub PopulateOneField()
Dim cnn As ADODB.Connection
Dim MyConn
Dim rst As ADODB.Recordset
Dim i As Long, j As Long
Dim Rw As Long
Dim sSQL 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 或目前的資料錄已被刪除