ذخیره رنگ در دیتابیس

[حمید زارع 331]

سلام 

من میخام یه سری رنگها را در دیتابیس ذخیره کنم

Sub SetSubjectsColor
	Cur=SQLACC.ExecQuery("select * from Subjects")
	Dim StrColor As String
	If Cur.RowCount<>0 Then
		'Cur.Position=0
		For i=0 To Cur.RowCount-1
			StrColor=Colors.RGB(Rnd(0,255),Rnd(0,255),Rnd(0,255))
			Cur.Position=i
			SQLACC.ExecNonQuery("UPDATE Subjects set Color='"&StrColor&"'")	
		Next
	End If
End Sub

با این کد بالا تمام رنگها که به صورت اتفاقی انتخاب میشه به صورت  این عدد -12631824 در دیتابیس ذخیره میشه

 

کجای کارم اشتباهه ؟

[حمید زارع 331]

آقا حل شد :

Sub SetSubjectsColor
	Cur=SQLACC.ExecQuery("select * from Subjects")
	Dim StrColor,StrID As String
	Dim R,G,B As Int
	If Cur.RowCount<>0 Then
		'Cur.Position=0
		For i=0 To Cur.RowCount-1
			R=Rnd(0,255)
			G=Rnd(0,255)
			B=Rnd(0,255)
			StrColor=R&"#"&G&"#"&B
			Cur.Position=i
			StrID=Cur.GetInt("Id")
			SQLACC.ExecNonQuery("UPDATE Subjects set Color='"&StrColor&"' where Id='"&StrID&"'")	
		Next
	End If
End Sub

[Nemesis 1,846]

اینجا که کد تصادفی رو داری از هم جدا نمیکنی و به صورت بهم چسبیده داره وارد میشه

 

برای اطمینان شما 3 تا عدد تصادفی بگیر بعد این 3 تا رو در دیتابیس فراخوانی کن هرموقع هم خواستی میتونی بیاریش در RGB جا گذاری کنی

[حمید زارع 331]

کدها رو به این شکل تغییر دادم بازم همشون یک رنگ میشن :

Sub SetSubjectsColor
	Cur=SQLACC.ExecQuery("select * from Subjects")
	Dim StrColor As String
	Dim R,G,B As Int
	If Cur.RowCount<>0 Then
		'Cur.Position=0
		For i=0 To Cur.RowCount-1
			R=Rnd(0,255)
			G=Rnd(0,255)
			B=Rnd(0,255)
			StrColor=R&"#"&G&"#"&B
			Cur.Position=i
			SQLACC.ExecNonQuery("UPDATE Subjects set Color='"&StrColor&"'")	
		Next
	End If
End Sub

[Nemesis 1,846]

نوع ستون دیتابیس رو بررسی کن

پیشنهاد میکنم بذار روی Text