|
#2
风吹过b2014-05-21 10:33
|
只有本站会员才能查看附件，请 登录
Private Sub Command1_Click()
Dim stemp As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
stemp = "select * from user"
rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Me!密码 <> 确认密码 Then
MsgBox "两次输入的密码不一致，请重新输入", vbExclamation, "Error"
Exit Sub
Else
stemp = "insert into user"
stemp = stemp & "(用户名，密码，身份证号)"
stemp = stemp & " values('" & Me!用户名 & "','" & Me!密码 & "','" & Me!身份证号 & "')"
DoCmd.RunSQL stemp1
Set rs = Nothing
End If
MsgBox "The information of register have saved already!", vbExclamation, "information"
End Sub