神马品牌网wow3.13任务奖励饰品:在ASP中怎样提取Access数据库中的数据
来源：百度文库 编辑：神马品牌网 时间：2024/04/27 23:53:10
各位高手：
用什么语句可以将Access数据库表格里的数据传递到一个数组变量里
我用了“x(1)=rs("字段名")”怎么不行，望赐教！
非常谢谢您！我建立了一个比较简单的数据库，表格中的每一行代表一个例题的数据，我需要提取这一行的每一个数据，然后再通过数组传递到网页的文本框中，主要的程序如下：
<%
dim x(30)
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\byq.mdb"
sql="select * from srzbyq where tihao='2.3'"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,2,2
x(1)=rs("Sna")
x(2)=rs("Snb")
x(3)=rs("Poa")
x(4)=rs("Pob")
x(5)=rs("Pka")
x(6)=rs("Pkb")
x(7)=rs("Ioa")
x(8)=rs("Iob")
x(9)=rs("Uka")
x(10)=rs("Ukb")
x(11)=rs("kq")
x(12)=rs("s")
x(13)=rs("kt")
rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing
%>
用什么语句可以将Access数据库表格里的数据传递到一个数组变量里
我用了“x(1)=rs("字段名")”怎么不行，望赐教！
非常谢谢您！我建立了一个比较简单的数据库，表格中的每一行代表一个例题的数据，我需要提取这一行的每一个数据，然后再通过数组传递到网页的文本框中，主要的程序如下：
<%
dim x(30)
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\byq.mdb"
sql="select * from srzbyq where tihao='2.3'"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,2,2
x(1)=rs("Sna")
x(2)=rs("Snb")
x(3)=rs("Poa")
x(4)=rs("Pob")
x(5)=rs("Pka")
x(6)=rs("Pkb")
x(7)=rs("Ioa")
x(8)=rs("Iob")
x(9)=rs("Uka")
x(10)=rs("Ukb")
x(11)=rs("kq")
x(12)=rs("s")
x(13)=rs("kt")
rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing
%>
可以实现。你给错误的信息弄出来帮你解决。
最简单的思路先给你。
i=0
do while rs.eof
x(i)=rs("字段名")
i=i+1
rs.movenext
loop