vb 修改数据库

  Dim rscode As New ADODB.Recordset

...................

 Set RsCode = zwpub.DataMdb.DbConnect.Execute("select Dend from code where ccode = N'" & curYHKM & "' and iyear=" & zwpub.QueryYear, dbOpenDynaset)

    RsCode.Open "select Dend from code where ccode = N'" & curYHKM & "' and iyear=" & zwpub.QueryYear, zwpub.DataMdb.DbConnect, adOpenDynamic, adLockOptimistic

在vb中应用execute打开数据表，通常不能修改 ，如修改，应该用open.

【推广】 免费学中医，健康全家人
原文地址：https://www.cnblogs.com/yinxingyeye/p/3380496.html