展开全部
根据5261你的前提:
dim con as new adodb.connection '声明一个数据4102连接对象变1653量,用于打开数据库
dim rs as new adodb.recordset '声明一个数据集对象变量,用于打开数据表
private sub form_load() '在窗体加载事件中,打开数据连接对象
con.open "Provider=Microsoft.Jet.OLEDB.4.0;data source=数据库文件
.mdb;persist security info=false"
if rs.state<>adstateclosed then rs.close
rs.open "select * from login",con,1,3
end sub
private sub cmd_click() '单击注册按钮事件,完成新用户注册
if text_add<>"" then
if text_mm1=text_mm2 then
rs.fields("用户名")=text_add
rs.fields("密码")=text_mm2
……………………(如果还有其它的字段名称,你再添加)
else
msgbox "两次密码输入不一致,请重新输入!"
exit sub
end if
else
msgbox "用户名不能为空!"
exit sub
end if
已赞过
已踩过<
你对这个回答的评价是?
评论
收起