求壹個抽簽的VB程序,能把名字寫入數據庫,又能運行抽簽? 源代碼請發cht3068@sina.com

Dim?A()?As?String

Private?Sub?BEG_Click()

Timer1.Enabled?=?True

If?BEG.Caption?=?"開始抽簽"?Then

BEG.Caption?=?"停止"

Else

BEG.Caption?=?"開始抽簽"

Timer1.Enabled?=?False

End?If

End?Sub

Private?Sub?ADD_Click()

Dim?STR?As?String

STR?=?InputBox("請輸入要增加的名字")

Dim?conn?As?New?ADODB.Connection

Dim?rs?As?New?ADODB.Recordset

Dim?Str1?As?String

Dim?Str2?As?String

Dim?Str3?As?String

Str1?=?"Provider=Microsoft.Jet.OLEDB.4.0;"

Str2?=?"Data?Source=C:\Documents?and?Settings\Administrator\桌面\DB2.MDB;"

Str3?=?"Jet?OLEDB:Database?Password="

conn.Open?Str1?&?Str2?&?Str3

strSQL?=?"select?*?from?表1?"

rs.Open?strSQL,?conn,?3,?3

rs.AddNew

rs!名字?=?STR

rs.Update

rs.Close

conn.Close

End?Sub

Private?Sub?Form_Load()

Timer1.Enabled?=?False

Dim?conn?As?New?ADODB.Connection

Dim?rs?As?New?ADODB.Recordset

Dim?Str1?As?String

Dim?Str2?As?String

Dim?Str3?As?String

Str1?=?"Provider=Microsoft.Jet.OLEDB.4.0;"

Str2?=?"Data?Source=C:\Documents?and?Settings\Administrator\桌面\DB2.MDB;"

Str3?=?"Jet?OLEDB:Database?Password="

conn.Open?Str1?&?Str2?&?Str3

strSQL?=?"select?*?from?表1?"

rs.Open?strSQL,?conn,?3,?3

TEM?=?rs.RecordCount

rs.Close

For?I?=?1?To?TEM

strSQL?=?"select?*?from?表1?where?編號="?&?I?&?""

rs.Open?strSQL,?conn,?3,?3

ReDim?Preserve?A(0?To?I)

A(I)?=?rs!名字

rs.Close

Next?I

conn.Close

End?Sub

Private?Sub?Timer1_Timer()

Static?J?As?Integer

Text1.Text?=?A(J)

J?=?J?+?1

If?J?=?UBound(A)?Then

J?=?1

End?If

End?Sub

代碼以及運行過，妳現在桌面上建立壹個名為db2的數據庫，壹個字段“名字”

上一篇:ASP中上傳圖片到第二個頁面處理,再到第三個頁面顯示.

下一篇:如何禁止浩方的廣告