Oprstr = "updata " & Table & " set " & Trim(rs.Fields(i - 1).Name) & "='" & value(i) & *******"' where " & Trim(rs.Fields(0).Name) & "='" & value(1) & "'"程序运行到这里,通过中断监视,连接字符串的过程中上式*******号位置后面的字符就没有连接到变量中 东西的定义都没有错完整代码如下For i = 2 To rs.Fields.Count
        Oprstr = "updata " & Table & " set " & Trim(rs.Fields(i -     1).Name) & "='" & value(i) & "' where " & Trim(rs.Fields(0).Name) & "='" & value(1) & "'"
            rs.Close
            rs.Open Oprstr, db, adOpenDynamic, adLockOptimistic哪为高手帮忙解决一下啊 小弟在线等 感激不禁

解决方案 »

  1.   

    Oprstr = "updata" & Table & " set " & Trim(rs.Fields(i - 1).Value) & "=" & "'" & Values(i) & "******" & "'" & " where" & Trim(rs.Fields(0).Value) & "=" & "' & Values(1) & '"
      

  2.   

    strSQL = "updata" & Table & " set " & Trim(rs.Fields(i - 1).Value) & "=" & "'" & Values(i) & "******" & "'" & " where" & Trim(rs.Fields(0).Value) & "=" & "'" & Values(1) & "'"