抽奖小程序的制作方法？

[lang888]

数据库字段为“

名字 身份证 电话

能让身份证书号码滚动 回车后就停止！

记录自动保存

我没做过 那位大哥有这样的原马给我个 ！！先谢谢了！！

[lihonggen0]

Dim CN As New ADODB.Connection '定义数据库的连接
Dim Rs As New ADODB.Recordset
Dim bln As Boolean

Private Sub Command1_Click()
'停止
bln = False
End Sub

Private Sub Command2_Click()
'开始
bln = True
Do While bln
Make
Loop
End Sub

Private Sub Form_Load()
CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic, adLockReadOnly
bln = True
End Sub

Private Sub Make()
Rs.MoveFirst
Do Until Rs.EOF
Text1.Text = Rs.Fields("FirstName")
DoEvents
If Not bln Then
Exit Do
End If
Rs.MoveNext
Loop

End Sub

[lang888]

我想随机抽出20条记录 我该怎么做？？

[online]

Private Sub Command1_Click()
Dim MyTimer
Dim Numberholder(6) As Integer
For x = 0 To 19
Randomize'初始化种子
TheValue = Int((20 * Rnd) + 1)
Numberholder(x) = TheValue
Picture1(x).Picture = LoadResPicture(Numberholder(x), 0)
Next x
End Sub

[online]

Private Sub Command1_Click()
Dim MyTimer
Dim Numberholder(20) As Integer
For x = 0 To 19
Randomize'初始化种子
TheValue = Int((20 * Rnd) + 1)
Numberholder(x) = TheValue
Picture1(x).Picture = LoadResPicture(Numberholder(x), 0)
Next x
End Sub

[lang888]

你这样做，会有重复记录的吧！！