爱在深秋 发表于：2009-06-04 14:22:26
Private Sub 完成_Click()
Dim Rec As New ADODB.Recordset
Rec.Open "SELECT * FROM msystem where 是否注册=0", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect
With Rec
!序列号 = Forms![注册第一步]!Text0.Caption
!是否注册 = -1
!注册码 = Me.Text3
!注册状态 = "已注册"
.Update
End With
CurrentDb().Properties("StartupForm") = "主窗体" '设定启动窗体为用户登录
End Sub
在Rec.Open 加个断点，在调试模式下测试，看看问题在哪里。
End With后加
Rec.Close
Set Rec = Nothing
释放空间。
!序列号 = Forms![注册第一步]!Text0.Caption
改为
!序列号 = Forms![注册第一步]!Text0
出现这样的提示
好的，
点击下载此附件
也许测试过程中，会提示输入注册码，请你把序列号发过来，我生成一个给你，
你也许可以根据里面的数据逆运算那个注册码，否则你告诉我，你的序列号，我把注册码生成给你，
在WITH上面一行加上REC.ADDNEW.给你一段示例:
Set yy = New ADODB.Recordset
yy.LockType = adLockOptimistic
yy.Open "cname", CurrentProject.Connection
yy.AddNew
with yy
!IDNO = Me.IDNO
!CNAME = Me.CNAME
.Update
end with
还是不清楚呀，能否把例子做成了，上传我再学习呀，谢谢，我刚才已经试过，还问题呀
你好，可以写入，这个原始的例子估计是只能写是一条记录的，应该不会是一直添加记录
有一地方，我现在才发现错误，这东西真是很难做，有时候一点点的错误，都很难查出来， 谢谢老师的帮助了
总记录：13篇 页次：1/1 9 1 :
