Question

vb6,adodc问题

在vb6中,如何用命令关闭adodc打开的access 2003数据库

Answer 1

用ODBC方法连接数据库，可以这样写。
dim conn as string
dim cn as adodb.connection
dim rs as adodb.recordset
conn="Driver={Microsoft Access Driver (*.mdb);DBQ=Path\DBName;Uid=Admin;Pwd=password}"
set cn=new adodb.connection
'打开数据库
cn.open conn
set rs=new adodb.recordset
'打开数据表
rs.open "查询语句",cn,1,3
'关闭数据表
set rs=nothing
'关闭数据库
set cn=nothing