dim cn as new adodb.connection dim rs as new adodb.recordsetcn.open"Provider=OraOLEDB.Oracle;Data Source=MyOracleDB;User Id=Username;Password=asdasd;" '读取: rs.open "select * from table1",cn do while not rs.eof debug.print rs.field(0) rs.movenext loop rs.close set rs=nothing'删除 cn.execute"delete from table1 where id>3"'插入 cn.execute "insert into table1(id,name) select 222,'cccc'"
delete
insert into
dim rs as new adodb.recordsetcn.open"Provider=OraOLEDB.Oracle;Data Source=MyOracleDB;User Id=Username;Password=asdasd;" '读取:
rs.open "select * from table1",cn
do while not rs.eof
debug.print rs.field(0)
rs.movenext
loop
rs.close
set rs=nothing'删除
cn.execute"delete from table1 where id>3"'插入
cn.execute "insert into table1(id,name) select 222,'cccc'"
http://expert.csdn.net/Expert/topic/2166/2166516.xml?temp=.4279596