Question

不用循环，插入一次是可以的，但是循环插入到数据库就出错，怎么改





Answer 1

1、不清楚为什么 i=13
2、不清楚为什么 i = i+ 12
3、Rd.MoveNext 是不需要的，因为是 Rd.AddNew，新增加记录会自动到下一条记录的；
4、最好使用 FOR I=1 TO row + Next i 比较好，不要使用DO循环语句。

Answer 2

去掉Rd.MoveNext语句

追问

还是报这个错误

追答

Rd.open Sqlstr,cn,adOpenDynamic,adLockBatchOptimistic

追问

还是不行

追答

用INSERT语句插入记录，这种方法更简单。

i=13
do while i<row
    sqlstr="insert into contract(Letter,Medium,place) values('"
    sqlstr=sqlstr+trim(CLL.GetCellString2(1,i,0))+"','"
    sqlstr=sqlstr+trim(CLL.GetCellString2(2,i,0))+"','"
    sqlstr=sqlstr+trim(CLL.GetCellString2(6,i+1,0))+"')"
    cn.execute sqlstr
    i=i+12
loop