Public DB_Cnn As ADODB.Connection public rst as ADODB.recordset'执行Sql语句 public sub Sql() dim sql_str as string'调用数据库连接 call Database_Connect'执行查询语句 sql_str="select * from table" set rst=new ADODB.recordset rst.open sql_str,DB_Cnn ......... rst.close'执行更新语句 sql_str="insert into ...." DB_Cnn.execute sql_str end sub
public rst as ADODB.recordset'执行Sql语句
public sub Sql()
dim sql_str as string'调用数据库连接
call Database_Connect'执行查询语句
sql_str="select * from table"
set rst=new ADODB.recordset
rst.open sql_str,DB_Cnn
.........
rst.close'执行更新语句
sql_str="insert into ...."
DB_Cnn.execute sql_str
end sub