3个回答
展开全部
Set conn = Server.CreateObject ("ADODB.Connection")
ConnectionString = "Driver={SQL Server};SERVER=(local);UID=sa;Password=;DATABASE=test"
conn.Open ConnectionString
SET rs=SERVER.CREATEOBJECT("ADODB.Recordset")
sql="select * from table1"
rs.Open sql,Conn,1,1
dim arr(4,100) '假设有100条记录
i=0
do while not rs.eof
if i<100 then
arr(0,i)=rs("a")
arr(1,i)=rs("b")
arr(2,i)=rs("c")
arr(3,i)=rs("d")
i=i+1
end if
rs.movenext
loop
ConnectionString = "Driver={SQL Server};SERVER=(local);UID=sa;Password=;DATABASE=test"
conn.Open ConnectionString
SET rs=SERVER.CREATEOBJECT("ADODB.Recordset")
sql="select * from table1"
rs.Open sql,Conn,1,1
dim arr(4,100) '假设有100条记录
i=0
do while not rs.eof
if i<100 then
arr(0,i)=rs("a")
arr(1,i)=rs("b")
arr(2,i)=rs("c")
arr(3,i)=rs("d")
i=i+1
end if
rs.movenext
loop
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
b=split(rs("a"),"
")
'取得数组
rs("b")=b(0)&"
"&b(1)&"
"&b(2)
'从前面开始3组写到字段b中
问题是你的数组的间隔符是空么?
")
'取得数组
rs("b")=b(0)&"
"&b(1)&"
"&b(2)
'从前面开始3组写到字段b中
问题是你的数组的间隔符是空么?
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询