|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
网上搜索到access asp xml 矩形图实例,如何改为sql server 形势的?sql server 不懂,也不会用数组!
下面的代码是自己的:只是简单的访问spl server ,连数组都不知道怎么用。
<%
dim conn
dim db
dim rs
dim connstr
dim SQLServerName
dim SQLDBUserName
dim SQLDBPassword
dim SQLDBName
dim sql
SQLServerName="(local)" '数据库服务器名或者IP,本机填“(local)”
SQLDBUserName="sa" '数据库帐号
SQLDBPassword="" '数据库密码
SQLDBName="xxxx" '数据库名称
Set conn=Server.CreateObject("ADODB.connection")
db="Provider=SQLOLEDB.1;Persist Security Info=False;Server=" & SQLServerName & ";User ID=" & SQLDBUserName & ";Password=" & SQLDBPassword & ";Database=" & SQLDBName & ";"
conn.Open db
Set rs= Server.CreateObject("ADODB.RecordSet")
SQL="Select top 10 * From 表名"
Rs.open sql,conn,1,1
if rs.eof and rs.bof then '这是另外一种判断当前表为空的方式
resp*****e.write "数据库无数据"
else
Do While Not rs.EOF '循环读取
resp*****e.write rs("字段")
rs.movenext '将指针移向下一条记录
loop
end if
rs.close
%> |
|