'引用ado
dim cn as ado.connection
set cn=new ado.connection cn.ConnectionTimeout = 25
cn.Provider = "sqloledb"
cn.Properties("Data Source").Value = sServerName
cn.Properties("Initial Catalog").Value = sDatabaseName
cn.Properties("User ID").Value = sUserName
cn.Properties("Password").Value = sPassword cn.open '然后再定义recordset
dim rs as adodb.recordeset
set rs=new adodb.recordeset
rs.open yourSql,cn,1,3 '定义你的sql语句
dim cn as ado.connection
set cn=new ado.connection cn.ConnectionTimeout = 25
cn.Provider = "sqloledb"
cn.Properties("Data Source").Value = sServerName
cn.Properties("Initial Catalog").Value = sDatabaseName
cn.Properties("User ID").Value = sUserName
cn.Properties("Password").Value = sPassword cn.open '然后再定义recordset
dim rs as adodb.recordeset
set rs=new adodb.recordeset
rs.open yourSql,cn,1,3 '定义你的sql语句
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货