短划代码百科全书

暗淡?a()?作为?线

私人?Sub?BEG_Click()

定时器1。启用?=?真实的

如果?求求。标题?=?“开始抽签”?然后

求求。标题?=?“停止”

其他

求求。标题?=?“开始抽签”

定时器1。启用?=?错误的

结束?如果

结束?潜水艇

私人?Sub?ADD_Click()

暗淡?STR?作为?线

STR?=?InputBox("请输入要添加的名称")

暗淡?康恩?作为?新的?ADODB。关系

暗淡?rs?作为?新的?ADODB。记录集

暗淡?Str1?作为?线

暗淡?Str2?作为?线

暗淡?Str3?作为?线

Str1?=?“提供商=微软。Jet . OLEDB.4.0”

Str2?=?“数据?Source=C:\Documents?然后呢。设置\管理员\桌面\DB2。MDB”

Str3?=?“喷气式飞机?OLEDB:数据库?密码= "

控制室。打开吗?Str1?& amp?Str2?& amp?Str3

strSQL?=?“选择?*?从哪里?表1?”

rs。开放?strSQL,?康恩?3,?三

rs。添加新内容

rs!名字?=?力量值

rs。更新

rs。关闭

关闭控制室

结束?潜水艇

私人?Sub?Form_Load()

定时器1。启用?=?错误的

暗淡?康恩?作为?新的?ADODB。关系

暗淡?rs?作为?新的?ADODB。记录集

暗淡?Str1?作为?线

暗淡?Str2?作为?线

暗淡?Str3?作为?线

Str1?=?“提供商=微软。Jet . OLEDB.4.0”

Str2?=?“数据?Source=C:\Documents?然后呢。设置\管理员\桌面\DB2。MDB”

Str3?=?“喷气式飞机?OLEDB:数据库?密码= "

控制室。打开吗?Str1?& amp?Str2?& amp?Str3

strSQL?=?“选择?*?从哪里?表1?”

rs。开放?strSQL,?康恩?3,?三

TEM?=?rs。记录计数

rs。关闭

为了什么?我?=?1?去哪?透射电镜

strSQL?=?“选择?*?从哪里?表1?在哪里?编号= "?& amp?我?& amp?""

rs。开放?strSQL,?康恩?3,?三

雷迪姆?保存?A(0?去哪?我)

甲(我)?=?rs!名字

rs。关闭

下一个?我

关闭控制室

结束?潜水艇

私人?Sub?定时器1 _定时器()

静电?j?作为?整数

Text1。文字?=?阿(J)

j?=?j?+?1

如果?j?=?UBound(A)?然后

j?=?1

结束?如果

结束?潜水艇

代码并运行,现在您在桌面上设置了一个名为db2的数据库,一个字段“name”。