Question

VB中怎么把从数据库提取出来的数据分配给不同的控件然后显示颜色

还有查询数据库没有的数据要怎么报错
谢谢啊

Answer 1

第一个问题不知道你要什么效果，第二如下：
if rs.eof then
msgbox "没有查询到数据！"
exit sub
end if

追问

就是把数据库里面的1000个数据分配给1000个空间当做变量的使用，比如说1就使控件变红色，2使控件变绿色这样
取出来的值有2列但是我只要1列怎么办

追答

取出来的值是根据你的查询语句来的，你只查需要的那一个字段不就行了吗？
假设你查询出来的字段是数字类型的
dim a(1000) as integer
rs.movefirst
for i=0 to rs.count-1
a(i)=rs("字段名")
rs.movenext
next

再把数组a中的值赋给不同的控件，根据这个值给不同颜色就行了

if a(0)=1 then
Text1.BackColor = vbRed
end if

追问

rs.count没有这样写的啊

追答

改成这样
for i=0 to 1000
if rs.eof then exit for
a(i)=rs("字段名")
rs.movenext
next