使用oledb方法打开数据库(或是用odbc方式打开数据库,这里在odbc里设置数据源strConnect = "ODBC;DSN=odbc中数据源的名;"), Set db = DBEngine.Workspaces(0).OpenDatabase("", False, False,strConnect)打开数据库。sql执行过程操作如下: dim db as database dim rsttemp as recordset dim strsql as string strsql="select * from ...." set rsttemp=db.OpenRecordset(strSQL, dbOpenSnapshot, dbSQLPassThrough) 上面是返回结果集的方式执行sql db.Execute strSQL, dbSQLPassThrough 这样是不返回结果集的执行方式(用于执行delete和update,insert into语句)
当然可以了,你只需要引用 Microsoft ActiveX Data Objects 2.X Librarydim cn as ADO.Connection dim rs as ADO.recordset应该没有问题了,有问题找我!
Set db = DBEngine.Workspaces(0).OpenDatabase("", False, False,strConnect)打开数据库。sql执行过程操作如下:
dim db as database
dim rsttemp as recordset
dim strsql as string
strsql="select * from ...."
set rsttemp=db.OpenRecordset(strSQL, dbOpenSnapshot, dbSQLPassThrough)
上面是返回结果集的方式执行sql
db.Execute strSQL, dbSQLPassThrough
这样是不返回结果集的执行方式(用于执行delete和update,insert into语句)
dim rs as ADO.recordset应该没有问题了,有问题找我!