Dim cn As New ADODB.Connection
Dim rs as new adodb.recordset
Dim strSQL as stringcn.Provider = "SQLOLEDB"
cn.Open "Driver={SQL Server};Server=Develop;Database=Test;Uid=SA;Pwd=;"strSQL="select DISTINCT wzname from material"
set rs=cn.execute(strSQL)
If nor rs.eof then
...
Dim rs as new adodb.recordset
Dim strSQL as stringcn.Provider = "SQLOLEDB"
cn.Open "Driver={SQL Server};Server=Develop;Database=Test;Uid=SA;Pwd=;"strSQL="select DISTINCT wzname from material"
set rs=cn.execute(strSQL)
If nor rs.eof then
...
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货