解决日期型字段不能空值更新问题的问题-CSDN论坛

解决日期型字段不能空值更新问题的问题

VB > VB基础类

收藏回复

[问题点数：20分，结帖人js_jdc]

⋅请教关于得分排名问题 ⋅查错：用ActiveReport报表显示打印代密码的mdb数据库问题。 ⋅如何用代码添加Adodc控件？ 更多帖子 关注私信空间博客 js_jdc 等级 本版专家分：0 结帖率 100%: 为解决日期型字段不能空值更新问题，在窗体添加一个DTPicker1控件（DTPicker1.Visible=False）和一个Text1控件，DTPicker1与数据库的日期型字段绑定，text1不与字段，但与DTPicker1连接，要通过text1向DTPicker1输入日期，并用text1显示DTPicker1中值，代码如下：

Private Sub Text2_KeyPress(KeyAscii As Integer)   '向DTPicker1和数据库输入日期
On Error GoTo err1:
  If KeyAscii = 13 Then
      If IsDate(Text2) = True Then
          DTPicker1.Value = Text2
      Else
        If Text2 = "" Then
          DTPicker1.Value = Null
        Else
          MsgBox "日期输入错误！", 16
        End If
      End If
  End If
  Exit Sub
err1:
  MsgBox "日期输入错误！", 16
End Sub

Private Sub DTPicker1_Change()    '显示DTPicker1绑定数据库的日期
   If DTPicker1.Value = Null Then
       Text2.Text = ""
       GoTo 5
   End If
   Text2.Text = DTPicker1.Value
5 End Sub

上述代码，上一段输入没有问题，但下一段显示出现错误，什么原因？请指教！！！

2004-08-30 23:54:53

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅关于图像匹配的问题 ⋅图像匹配问题 ⋅怎么这么恶心呀 更多帖子 关注私信空间博客 tztz520 等级 本版专家分：50592 勋章 红花 2005年1月 VB大版内专家分月排行榜第一 2004年12月 VB大版内专家分月排行榜第一 2004年11月 VB大版内专家分月排行榜第一 2004年10月 VB大版内专家分月排行榜第一 黄花 2005年3月 VB大版内专家分月排行榜第二 2005年2月 VB大版内专家分月排行榜第二: Private Sub DTPicker1_Change()    '显示DTPicker1绑定数据库的日期
   If DTPicker1.Value = Null Then
       Text2.Text = ""
       GoTo 5
   End If
   Text2.Text = DTPicker1.Value
5 :
End Sub

2004-08-31 08:29:59

点赞只看TA 引用举报 #1得分 5

⋅[求助]如何判断程序是在IDE环境中运行，还是通过exe文件运行？ ⋅200分求VB基礎培訓教程 ⋅MyConnection.Execute執行一個返回多個RecordSet的SQL語句,為何會出現這樣的錯誤? 更多帖子 关注私信空间博客 leolan 等级 本版专家分：13822: If Text2 = "" Then
DTPicker1.Value = Null 'DTPicker的值不可為NULL!

2004-08-31 08:41:58

点赞只看TA 引用举报 #2得分 0

⋅请教关于得分排名问题 ⋅查错：用ActiveReport报表显示打印代密码的mdb数据库问题。 ⋅如何用代码添加Adodc控件？ 更多帖子 关注私信空间博客 js_jdc 等级 本版专家分：0: tztz520说的与楼主的一样，没有区别。

leolan说的，实际上是没有问题的：设DTPicker1.checkbox=ture时,DTPicker1.Value = Null是可以的。

2004-08-31 16:45:13

点赞只看TA 引用举报 #3得分 0

⋅好不容易混到了1W，散分记念 ⋅向南京的朋友问好 ⋅有福州厦门的朋友吗，打算这三天来福州厦门玩 更多帖子 关注私信空间博客 版主 饮水需思源 等级 本版专家分：69703: '不太理解楼主说的情况：
'如果数据库中允许日期型字段为空，则：
strsql=" update tablename set 日期字段="& iif(text1.text="","NULL","'"& format(text1.text,"YYYY-MM-DD") &"')"
conn.strsql
'如果数据库不允许日期型字段为空，则：
private sub text1_lostfocus()
    if trim(text1.text)="" then
        msgbox "请输入日期型数据!",48,"提示"
        text1.setfocus
        exit sub
    else
        if not isdate(text1.text) then
            msgbox "请输入日期型数据!",48,"提示"
            text1.setfocus
            exit sub
        else
            text1.text=format(text1.text,"YYYY-MM-DD")
        end if
    end if
end sub
strsql=" update tablename set 日期字段='"& text1.text &"'"
conn.execute strsql

2004-08-31 16:59:19

点赞只看TA 引用举报 #4得分 15

⋅请教关于得分排名问题 ⋅查错：用ActiveReport报表显示打印代密码的mdb数据库问题。 ⋅如何用代码添加Adodc控件？ 更多帖子 关注私信空间博客 js_jdc 等级 本版专家分：0: 我可能未说得清：

   Access日期型字段在text1控件中不能空值输入，在DTPicker1控件中可以空值""输入，但要在DTPicker.checkbox=bure状态，这种状态下，DTPicker控件上会有复选框，不美观。为了解决这个问题，我将DTPicker与text联用，用DTPicker与数据库连接，用text来向DTPicker输入和显示DTPicker中的数值，DTPicker设为不可见状态（DTPicker.Visible=False)。现在输入的问题是解决了，在text中不论输入的日期型值或空值，都可以，不会像单独用text输入空值出现错误的情况。但现在出现的问题是，text不能显示DTPicker中的数值，不随DTPicker的变化而变化,也就是下面这段代码出了问题，不知错在哪里？请指教。

Private Sub DTPicker1_Change()    '显示DTPicker1绑定数据库的日期
   If IsNull(DTPicker1.Value) = Ture Then
       Text2.Text = ""
       GoTo 5
   End If
   Text2.Text = DTPicker1.Value
5 End Sub

2004-09-01 23:02:30

点赞只看TA 引用举报 #5得分 0

收起

收藏回复

js_jdc

等级：

关注私信 TA的帖子

discuz 商业插件、模板收集（华为网盘）: 价值100元的根据精华限制用户 20131005(PHP≤5.2) http://dl.vmall.com/c0w1n6ahu0 价值199元的格子铺 2.1加强版 ... 价值180元的用户主题自助 V1.1 ... 价值200元的子域名重定向系统 1.2.5 http://

从零到有——我的OA如何成长: 早前发文说要分享，马上进入了财务系统...总体来说，就是我在毕业三个月后来到这里，然后从零开始造轮子造了一个还算健全但不算完整的OA系统。做了不少系统/模块，有很多都能写好多篇文章。毕业后这两年太神奇了，...

网站导出20190118: Bookmarks 书签栏重要网站 ...Artlist.io - Music Licensing For Video, Film &...unity3d插件免费下载商业资源代购团购 unity外包 ...我喜欢 Unity - Scripting API: AudioClip 3D模型/环境 unity3...

谷歌2017面经题集: 发个Google onsite 面经给需要的人。 round 1: 国人大哥，出了道 merge N 个sorted element list的题，要写成Generic的形式。第二题是leetcode 256. Paint House, 只不过他要输出path就是最少cost的具体方案。第...

我的Java开发学习之旅------>Java经典面试题: 从享受生活的角度上来说：“程序员并不是一种最好的职业，我认为两种人可以做程序员，第一，你不做程序员，你就没有什么工作可做，或者说是即使有可以做的工作但是你非常不愿意去做；第二，你非常痴迷和爱好程序，...

我的收藏家: Fast Dial www.mscape.cn bbs.csdn.net www.google.cn linux CentOS Pub --- 纯中文 CentOS 攻略站CentOS服务器构建 start [CentOS 中文站] CENT

程序员因为女孩而美丽！: 作者：陈皓 ... 女程序员是程序员里美丽的风景线，我希望这些女程序员的经历能让我们在这个“重男轻女”的社会中可以给女程员有更多平等的机会...这篇文章的来由是因为Eva在“三个事和三个问题”的评论里问我女孩子是

SaaS 2.0: SaaS 2.0 现在都在讲转型。外贸出口加工的转型为内销渠道、品牌、设计；造手机的转型做互联网地图位置服务；软件行业早就呼喊向服务转型多年，IT规划、设计、项目管理、测试、培训、运维等等这些服务也都被客户渐渐...

自己写的凌乱的笔记: c/s项目(javaSE) client server b/s项目(javaEE)browaer server ASP(2002~2003) b/s对比c/s项目： c/s对客户机比较高, 注册表：C++ C#中有其他的好处；升级麻烦。 b/s：不需要安装，升级很方便； ...

什么是微服务: 作者：老刘 ...来源：知乎著作权归作者所有。商业转载请联系作者获得授权，非商业转载请注明出处。一文详解微服务架构本文将介绍微服务架构和相关的组件，介绍他们是什么以及为什么要使用微服务架构和这些组件。...

华为网盘——discuz 商业插件、模板收集: 密码见：http://www.2zl.com.cn/forum.php?gid=1 价值100元的根据精华限制用户 20131005(PHP≤5.2) http://dl.vmall.com/c0w1n6ahu0 价值199元的格子铺 2.1加强版 ... 价值180元的用户主题自助...h

一个不知名前辈的创业史（血泪）: 2005年我的第一次软件行业创业，烧掉30万、2年时间打水漂的惨痛教训我是2000年从黑龙江大学计算机软件专业毕业后到浙江宁波工作的，在大学当了一年网络中心的老师后，感觉自己还是疯狂喜欢软件行业，不太...

2019年终总结：好好爱自己: 前言:B/S项目关于后面的就没有好好走。

张孝祥整理Java就业面试题大全: 从享受生活的角度上来说："程序员并不是一种最好的职业，我认为两种人可以做程序员，第一，你不做程序员，你就没有什么工作可做，或者说是即使有可以做的工作但是你非常不愿意去做；第二，你非常痴迷和爱好程序，...

张孝祥正在整理Java就业面试题大全: 从享受生活的角度上来说："程序员并不是一种最好的职业，我认为两种人可以做程序员，第一，你不做程序员，你就没有什么工作可做，或者说是即使有可以做的工作但是你非常不愿意去做；第二，你非常痴迷和爱好程序，...

加密逻辑分享: 本人java菜鸟一名，工作也快一年了，在工作之余思考了很多，总想自己独立做点东西，可是没有什么好的想法，就在昨天突然想做个密码加密试试，然后就大刀阔斧开整。代码写完之后测试没问题，打成jar包，引入使用没...

GT注册大全-终结动态修订版: 本次‘GT注册大全-终结动态修订版’的特点：1.仅中文名称共享软件范围来说为国内乃至世界范围最新最全，通用注册信息有效率最高；2.较之前版本删除了N多已完全失效的注册信息，增加了N多新旧有效...4.进一步完善了‘GT

Hadoop、Hive、Spark 之间是什么关系？: 原文：https://mp.weixin.qq.com/s?__biz=MzAwNzIzMDY5OA==&mid=2651424131&idx=1&sn=ae80ad83c3c2f16d406a03e9b47f44ca&... 大数据本身是个很宽泛的概念，Hadoop...

这篇文章感触很深，就作为第一篇吧: 从享受生活的角度上来说："程序员并不是一种最好的职业，我认为两种人可以做程序员，第一，你不做程序员，你就没有什么工作可做，或者说是即使有可以做的工作但是你非常不愿意去做；第二，你非常痴迷和爱好程序，...

Python3 与 C# 面向对象之～继承与多态 Python3 与 C# 面向对象之～封装 Python3 与 NetCore 基础语法对比...: Python3 与 C# 面向对象之～继承与多态文章汇总：https://www.cnblogs.com/dotnetcrazy/p/9160514.html 目录： 2.继承 ¶ 2.1.单继承 ¶ 2.2.多继承 ¶ 2.3.C#继承 ¶ 2.4C#接口的多实现 ¶ ......

java 面试题总结: 抽象就是忽略一个主题中与当前目标无关的那些方面，以便更充分地注意与当前目标有关的方面。抽象并不打算了解全部问题，而只是选择其中的一部分，暂时不用部分细节。抽象包括两个方面，一是过程抽象，二是数据抽象。...

Java考试题: 一：单选题 1.下列哪一种叙述是正确的（D）A．abstract修饰符可修饰字段、方法和类B．抽象方法的body部分必须用一对大括号{ }包住C．声明抽象方法，大括号可有可无D．声明抽象方法不可写出大括号 2.如下代码...

Spark-Hadoop、Hive、Spark 之间是什么关系？: http://mp.weixin.qq.com/s?__biz=MzAwNzIzMDY5... 大数据本身是个很宽泛的概念，Hadoop生态圈(或者泛生态圈)基本上都是为了处理超过单机尺度的

java设计模式: Java设计模式分类： java学习 2011-09...我希望这本书的阅读者具备最基本的代码编写能力，您是一个初级的coder,可以从中领会到怎么设计一段优秀的代码；您是一个高级程序员，可以从中全面了解到设计模式以及 Java

100家大公司java笔试题汇总(带答案): B．抽象方法的body部分必须用一对大括号{ }包住 C．声明抽象方法，大括号可有可无 D．声明抽象方法不可写出大括号 2. 如下代码 public class Test { public int aMethod() { static int i = 0;

（五）2005年我的第一次软件行业创业，烧掉30万、2年时间打水漂的惨痛教训: 为了打开业务，我通过老朋友，在宁波找了专门做销售方面的公司做合作一起开发OA项目，我们出技术及人力，他们出一部分开发成本，这样我们就不担心做业务了，每做成一个笔业务我们就收一笔费用，我觉得这个合作模式也...

Java设计模式: 我希望这本书的阅读者具备最基本的代码编写能力，您是一个初级的coder,可以从中领会到怎么设计一段优秀的代码；您是一个高级程序员，可以从中全面了解到设计模式以及 Java 的边角技术的使用；您是一个顶级的系统...

QT实战之监控回看系统: 本课程基本Qt for windows平台下开发的监控回看界面程序，通过选择界面上的时间和日期可以准确定位观看过去的某一年某一日某个时刻的监控画面，支持对接第三方海康设备的功能，同时也能对于学习QT有很大的帮助。学会对接第三方设备，学会QT开发，学会界面布局，学会界面设计。

基于MATLAB的脑电信号处理.pdf: 脑电信号属于非平稳随机信号，且易受到各种噪声干扰。本文基于 Matlab 仿真系统，主要研究了小波变换在脑电信号处理方面的应用，包括小波变换自动阈值去噪处理、强制去噪处理，以 α波为例，提取小波分解得到的各层频率段的信号，并做了一定的分析和评价。

随机森林MATLAB代码: 随机森林分类方法的matlab代码实现，包括分类、重要度打分和回归。

相关热词 c#编写pc端窗口 c# 字符串转日期 c# 陈广新建复制对象c# c# image 灰度 c#关闭按钮触发事件 c# 定义公共timer c# 兵法编程 c# 刷新界面值偶尔卡死 c#删除文件