3个回答
展开全部
简单,就直接进入设计界面,把窗体属性打开,数据一项,数据录入选择是就行了
追问
我要把数据保存到表中
追答
把表作为窗体数据源
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Private Sub 保存_Click()
'检查录入完整性
If IsNull(Me.Text1) or IsNull(Me.Text1) Then
MsgBox "记录录入未完整!", vbInformation, "提示:"
Else
Dim strsql As String
strsql = "Select * from system_readers '数据表连接字符串"
Rs.Open strsql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Rs.AddNew
Rs("readerid") = Me.Text1
Rs("readername") = Me.Text2
Rs("readersex") = Me.text3
Rs("readertype") = Me.Text4
Rs("password") = Me.text5
Rs.Update
MsgBox "注册成功!", vbInformation, "提示:"
End If
End Sub
这是我用窗体添加注册的代码,你可以参考一下
'检查录入完整性
If IsNull(Me.Text1) or IsNull(Me.Text1) Then
MsgBox "记录录入未完整!", vbInformation, "提示:"
Else
Dim strsql As String
strsql = "Select * from system_readers '数据表连接字符串"
Rs.Open strsql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Rs.AddNew
Rs("readerid") = Me.Text1
Rs("readername") = Me.Text2
Rs("readersex") = Me.text3
Rs("readertype") = Me.Text4
Rs("password") = Me.text5
Rs.Update
MsgBox "注册成功!", vbInformation, "提示:"
End If
End Sub
这是我用窗体添加注册的代码,你可以参考一下
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询