读写数据库.txt

来自「用于车辆监控数据的分析」· 文本 代码 · 共 18 行

Private  Sub  Form_Load()  
Call  OpenDb  
Dim  rs1  As  New  ADODB.recordset  
rs.CursorLocation  =  adUseClient  
rs.Open    "1  ",  adoConn,  adOpenDynamic,  adLockOptimistic  
rs1.Open    "2  ",  adoConn,  adOpenDynamic,  adLockOptimistic  
dim  a  as  variant  
dim  b  as  variant  
do  while  not  rs.eof  
a  =  rs.Fields(  "a  ").Value  
b  =  rs.Fields(  "b  ").Value  
rs1.addnew  
rs1!a=a  
rs1!b=b  
rs1.update  
rs.movenext  
loop  
end  sub