Question

求助啊。请问vb颜色信息的问题？？

我想把颜色信息存储在SQL中。

然后用vb读取sql的值。设置颜色。。

请问。sql中什么数据类型存储颜色最合适？？？

我用vb读取出来的sql的值，比如RS!color 以后。

然后怎么赋给某个颜色？？

比如要赋给的颜色是symbol.color

dim a as ？？

if 判断a是不是一个有效的颜色值 then
a = rs!color
end if
set simbol.color = a

哪位大大写段代码给我啊。。。。不胜感激。。。

Answer 1

在SQL用 char 或 int 类型都可以保存颜色值:

Private Sub Command1_Click()
Dim rs As ADODB.Recordset
Dim strSql As String
Dim MyColor As Long

'设置颜色值
MyColor = RGB(255, 0, 255)
或
MyColor = Label1.BackColor

'保存颜色值
strSql = "Update [表名] set 颜色值 = " & MyColor & ""
......

'从SQL读取颜色值
strSql = "select 颜色值 from [表名]"
......
MyColor = val(rs("颜色值").Value)

'赋颜色值
Label1.BackColor = MyColor
......
End Sub

Answer 2

dim a as long