| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 549 人关注过本帖
标题:求如何保存
只看楼主 加入收藏
jiapeng_1988
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2011-12-19
结帖率:0
收藏
已结贴  问题点数:5 回复次数:1 
求如何保存
Private Sub cmdUpdate_Click()
    '条件判断保证输入的合理性
    '如果名称文本框为空,则显示提示信息并返回
    If Trim(Text6.Text) = "" Then
        MsgBox "名称不能为空", vbExclamation + vbOKOnly, "警告"
        '设置鼠标焦点
        Text6.SetFocus
        Exit Sub
    End If
    '判断价格文本框输入不能为空
    If Trim(Text7.Text) = "" Then
        MsgBox "价格不能为空", vbExclamation + vbOKOnly, "警告"
        '设置鼠标焦点
        Text7.SetFocus
        Exit Sub
    End If
    '判断价格文本框输入必须为数字
    If Not IsNumeric(Trim(Text8.Text)) Then
        MsgBox "价格必须为数字", vbExclamation + vbOKOnly, "警告"
        '设置鼠标焦点
        Text8.SetFocus
        '使文本变为选中状态
        '设置选择的起始位置和选择的长度
        Text8.SelStart = 0
        Text8.SelLength = Len(Text8.Text)
        Exit Sub
    End If
    '判断入库数量文本框输入必须为数字
    If Not IsNumeric(Trim(Text9.Text)) Then
        MsgBox "价格必须为数字", vbExclamation + vbOKOnly, "警告"
        '设置鼠标焦点
        Text9.SetFocus
        '使文本变为选中状态
        '设置选择的起始位置和选择的长度
        Text9.SelStart = 0
        Text9.SelLength = Len(Text9.Text)
        Exit Sub
    End If
之前这些是各种判断,接下来我想讲输入的信息保存到数据库Data1中,应该如何保存
我的书中是需要UpdataBatch adAffectAll,我的vb里面没有啊 不知道怎么回事
还有书中是利用ADo的 而我要用access2000
谢谢了 我自己写的
    '保存Data1的记录集的修改
    Data1.Recordset.AddNew
    Data1.Recordset.Update
    '保存后,设置按钮状态
    SetButtons True
有问题
搜索更多相关主题的帖子: 价格 焦点 提示信息 文本框 如何 
2011-12-19 10:21
shi781203
Rank: 2
来 自:广东省
等 级:论坛游民
帖 子:112
专家分:50
注 册:2011-3-18
收藏
得分:5 
建议你的程序改用文件的方式保存吧,这会比较方便!

飞点燃费盐--历史上至有型的计算机病毒(能感染你是我的荣幸,也是你的光荣!)
2011-12-19 22:18
快速回复:求如何保存
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015587 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved