Question

vb写入ACCESS的问题

用VB编写随机程序抽取ACCESS表下的‘人员名单’，在按停止键后，LABLE上随机滚动的信息（如姓名等）停下来后怎么自动写入ACCESS表里的‘中奖名单’中。有哪位高手知道，请帮忙解答，谢谢！！

Answer 1

Dim cnn As New ADODB.Connection
'cnn.Open 自己写了.
Dim onRunning As Boolean

Private Sub Command1_Click()
onRunning = Not onRunning

If Not onRunning Then Exit Sub

Dim sql As String
sql = "select 姓名 from 人员名单 "

Dim rs As New ADODB.Recordset
rs.Open sql, cnn
rs.Close
Dim rows()
rows = rs.GetRows

Dim max As Integer
Dim n As Integer
max = UBound(rows, 2) + 1

Randomize

Do
n = Int(Rnd() * max)

Label1.Caption = rows(0, n)

DoEvents
Loop Until Not onRunning

sql = "select 姓名 from 中奖名单 where 姓名 ='" & rows(0, n) & "'"

rs.Open sql, cnn, adOpenKeyset, adLockOptimistic
If rs.EOF Then rs.AddNew
rs(0) = rows(0, n)
rs.Update
rs.Close

End Sub

Answer 2

中奖基本都是骗子软件