- //写入本地ACCESS数据库
- 变量 返回影响行数,返回的表,返回错误信息,c1,c2
- 数据库连接="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&系统.获取程序路径()&"UserInfo.mdb;"
- 账号=编辑框.获得文本("账号")
- 密码=编辑框.获得文本("密码")
- 账号状态=编辑框.获得文本("账号状态")
- //数据库添加操作语句
- Sql语句="insert into Info(Account,Pwd,Do) values ('"&账号&"','"&密码&"','"&账号状态&"' )"
-
- 会员.数据库(数据库连接,Sql语句,返回影响行数,返回的表,返回错误信息)
- 数组空间.大小(返回的表,c1,c2)
- 如果(c1>0)
- 辅助.消息框("添加成功!")
- 数据库操作.查询()
- 否则
- 辅助.消息框("添加失败!")
- 如果结束
- 如果结束
复制代码
|