连接数据库

dim cnn,rst,strcnn,strsql
set cnn = createobject("adodb.connection")
set rst = createobject("adodb.recordset")
strcnn = "数据库连接字符串"
cnn.open = strcnn
strsql = "select * from table_a"
rst.open strsql,strcnn,2,2//参数为1，3时可用RECORDCOUNT取到记录总数，为2时返回-1
msgbox rst("abc") //取查询到的结果，字段名为abc的值，或第2列的值，第一列的index为0
msgbox rst(2)
rst.close
cnn.close
set rst = nothing
set cnn = nothing

Dim res,cmd,sql
Set res = createobject("adodb.recordset")
Set cmd = createobject("adodb.command")cmd.activeconnection="数据库连接字符串"
cmd.CommandType = 1
sql = "select max(order_number) as a from orders"
cmd.CommandText = sqlSet
res = cmd.execute()
Set res = nothingSet
cmd.ActiveConnection = nothing
Set cmd = nothing

数据库连接字符串可以建立UDL文件来获得