a b c a 1 2 b 0 NULL c 0 0是个什么东东?表格控件?什么表格控件? 是数组吗?
dim cn as adodb.connection dim rs as adodb.recordset dim db as string db="..." dim sql as string sql="select * from ... " cn.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &db cn.open rs.open sql,cn rs.refresh while not rs.eof if rs.recordset.fields("a")=b then rs.recordset.edit rs.recordset.fields("c")=4 rs.recordset.update endif wend 试试看,行不
dim cn as adodb.connection cn.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\test.mdb" cn.open cn.execute "update tablename set c=4 where a='b'"
a 1 2
b 0 NULL
c 0 0是个什么东东?表格控件?什么表格控件?
是数组吗?
dim rs as adodb.recordset
dim db as string
db="..."
dim sql as string
sql="select * from ... "
cn.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &db
cn.open
rs.open sql,cn
rs.refresh
while not rs.eof
if rs.recordset.fields("a")=b then
rs.recordset.edit
rs.recordset.fields("c")=4
rs.recordset.update
endif
wend
试试看,行不
cn.connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\test.mdb"
cn.open
cn.execute "update tablename set c=4 where a='b'"