创建至数据库的 ADO 连接(ADO connection)
打开数据库连接
创建 ADO 记录集(ADO recordset)
打开记录集(recordset)
从数据集中提取你所需要的数据
关闭数据集
关闭连接
//创建至数据库的 ADO 连接(ADO connection)
Dim dbconn
dbconn = "连接字符串"
Set DB = Server.Createobject("ADODB.Connection")
DB.connectiontimeout = 300
//打开数据库连接
DB.Open dbconn
//创建 ADO 记录集(ADO recordset)
Set rs = Server.Createobject("ADODB.Recordset")
strSQL = "" //sql查询语句
//打开记录集(recordset)
rs.Open strSQL,DB
if RS.EOF or RS.BOF Then
RS.close
DB.close
Else
//取数据(例子)
Do until RS.EOF
//.......循环取数据
RS.Movenext
loop
RS.close
DB.close
end if
参考资料:http://homepage.yesky.com/