用asp把数据库中的数据读入数组中
用asp把数据库中的数据读入数组中连接信息略,先判断字段是否为T(真)ifrs2("Association")="T"thenId1="Association"elseI...
用asp把数据库中的数据读入数组中
连接信息略,先判断字段是否为T(真)
if rs2("Association")="T" then
Id1="Association"
else
Id1=""
end if
.
.
.
if rs2("Association")="T" then
Id15="Association"
else
Id15=""
end if
Dim Industry
dim A
A=Array(Id1,Id2,Id3,Id4,Id5,Id6,Id7,Id8,Id9,Id10,Id11,Id12,Id13,Id14,Id15)
for i=0 to ubound(A)
if A(i)<>"" then
for j=0 to 20
redim Industry(j)
Industry(j)=A(i)
next
end if
next
Industry0=Industry(0)
Industry1=Industry(1)
Industry2=Industry(2)
Industry3=Industry(3)
Industry4=Industry(4)
这里究竟出了什么问题?!我头都两个大了!实际上从数据库中读15个字段值,把每行记录中前四个值为"T"(真)输出出他们的字段名称,拜托了!!!
不出错就是读不出数据.
数据库表中有15个字段,字段值分别为T或没赋值.查询每行中前四个字段值为T的记录,显示它所在列的列名! 展开
连接信息略,先判断字段是否为T(真)
if rs2("Association")="T" then
Id1="Association"
else
Id1=""
end if
.
.
.
if rs2("Association")="T" then
Id15="Association"
else
Id15=""
end if
Dim Industry
dim A
A=Array(Id1,Id2,Id3,Id4,Id5,Id6,Id7,Id8,Id9,Id10,Id11,Id12,Id13,Id14,Id15)
for i=0 to ubound(A)
if A(i)<>"" then
for j=0 to 20
redim Industry(j)
Industry(j)=A(i)
next
end if
next
Industry0=Industry(0)
Industry1=Industry(1)
Industry2=Industry(2)
Industry3=Industry(3)
Industry4=Industry(4)
这里究竟出了什么问题?!我头都两个大了!实际上从数据库中读15个字段值,把每行记录中前四个值为"T"(真)输出出他们的字段名称,拜托了!!!
不出错就是读不出数据.
数据库表中有15个字段,字段值分别为T或没赋值.查询每行中前四个字段值为T的记录,显示它所在列的列名! 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询