UC知道熟悉数据库操作的来．完成后追加到2000分
来源：百度知道 编辑：UC知道 时间：2024/05/23 23:02:10
做了一个抽奖程序，LABEL上滚动抽奖数字”8888””8282”等等．现在创建了数据库，里面有个库存．里面有2个字段分别是”奖名””数量”，每个奖品都有量，抽完就没了．所以现在需要操作数据库．我试了好久，数量还是不动．请高手看看．我一共2000多分．回答解决了问题的全给．
Dim closefrm As Boolean
Dim myCon As New ADODB.Connection
Dim myRS As New ADODB.Recordset
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
Randomize
Do While StopSignal
DoEvents
DB = Rnd(0) * ((8 - 1) + 1) + 1
Loop
Select Case DB
Case Is = 8
Label1.Caption = "1520"
Case Is = 7
Label1.Caption = "2008"
Case Is = 6
Label1.Caption = "2668"
Case Is = 5
Label1.Caption = "8282"
Case Is = 4
Label1.Caption = "9696"
Case Is = 3
Label1.Caption = "8066"
Case Is = 2
Label1.Caption = "8656"
End Select
If myCon.State = adStateOpen Then
myCon.Close
End If
myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Dim closefrm As Boolean
Dim myCon As New ADODB.Connection
Dim myRS As New ADODB.Recordset
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
Randomize
Do While StopSignal
DoEvents
DB = Rnd(0) * ((8 - 1) + 1) + 1
Loop
Select Case DB
Case Is = 8
Label1.Caption = "1520"
Case Is = 7
Label1.Caption = "2008"
Case Is = 6
Label1.Caption = "2668"
Case Is = 5
Label1.Caption = "8282"
Case Is = 4
Label1.Caption = "9696"
Case Is = 3
Label1.Caption = "8066"
Case Is = 2
Label1.Caption = "8656"
End Select
If myCon.State = adStateOpen Then
myCon.Close
End If
myCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
好像字符型数值不能进行加减运算吧?
把你数据库中"库存"表里的"数量"改成数值型的试下.
把你数量那个字段类型改成数值型的,然后将你那句更新SQL语句改也下
将
sql = "updata 库存 set 数量='" & "数量" - 1 & "'where 奖项= " & Val(Me.Label1.Caption) & ""
改成:
sql = "updata 库存 set 数量=数量-1 where 奖项= " & Val(Me.Label1.Caption)
在SQL语句中,字符类型的变量要用 '"&变量名&"' 表示,而数值型的只要作 "&变量名&" 表示就可以了
听一些世界名曲吧，你们小时候可能很熟悉的：http://www.zcty.org/bbs/printpage.asp?BoardID=11&ID=11188
http://bbs.breezecn.com/read.php?tid=41043%A1%A3
（本人理智性的发出，不是神经病乱发哦~）
日
突然想起来了
你这个不是asp，是vb
靠，误导.....
有点没有看明白