通过独立的输入记录字段

发表于2008年2月20日,星期三, - 13:22 |由admin |

有几种方式进入记录,最常见的是绑定到一个表的形式获得通过。 这样做的另一种方式是通过不相关的领域,即采用与独立无关的表字段的表单。
输入的数据,我们使用“记录集”,即由一个代码,在这个例子中是如下:

暗淡DB作为数据库
昏暗的RS作为Recordset

如果MSGBOX(“你愿意写吗?”VbYesNoCancel,“选项”)= vbYes
“按下问是否保存记录,如果是这样的代码,直到年底继续
集DB = CurrentDb()
设定RS = db.OpenRecordset(“资料”,dbOpenTable)
“打开表插入数据寄存器

rs.AddNew
RS(“名称”)=!INome
RS(“地址”)=我!Imorada
RS(“年龄”)=我!Iidade
rs.Update'将数据发送到表
rs.Close'清除数据和关闭记录集
设置RS =没有
设置DB =没有

Me.INome = NULL'清除表单中的字段
Me.Imorada = NULL
Me.Iidade = NULL
MSGBOX“记录保存”,vbInformation,“做”,“显示确认消息
Me.INome.SetFocus“将光标移动到第一场
其他:退出小组
结束如果

下载: 独立广场

RSS订阅 | 引用地址

评论»

还没有评论。

名称(必填)
电子邮件(必填-不公布)
网站
您的评论( 减少 | 增加
您可以使用<a“<abbr title=""> <acronym title=""> <blockquote cite=""> <B> <CITE>的<code> <del时间不用重新输入个人cite="">!的意见。

介绍

头像

谢谢您的访问。
订阅饲料,不要错过任何消息。

在这里,我将在博客中提供了与Microsoft Access工作的例子,并提问谁问。 更多

想订阅吗?

订阅或通过电子邮件订阅:
输入您的电子邮件:


广告