Foxtable(狐表)用户栏目专家坐堂 → [求助]使用SQL插入记录时日期字段为空时都变成1900-1-1?


  共有5423人关注过本帖树形打印复制链接

主题:[求助]使用SQL插入记录时日期字段为空时都变成1900-1-1?

帅哥哟,离线,有人找我吗?
新福星
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1960 积分:15566 威望:0 精华:0 注册:2011/7/16 20:59:00
[求助]使用SQL插入记录时日期字段为空时都变成1900-1-1?  发帖心情 Post By:2022/6/1 6:39:00 [只看该作者]

使用SQL语句插入记录时,日期字段为空时都变成1900-1-1.
将SQL语句日期属性的值设置为Nothing,插入SQL Server数据库里,再读出来就变为1900-1-1,如何使之仍然为空?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109736 积分:558396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/6/1 8:38:00 [只看该作者]

插入和读取的代码呢?

 回到顶部
帅哥哟,离线,有人找我吗?
新福星
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1960 积分:15566 威望:0 精华:0 注册:2011/7/16 20:59:00
  发帖心情 Post By:2022/6/1 10:07:00 [只看该作者]

插入是用的SQL 语句InSert,读取用的是 Load
下面是插入语句

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20220601095949.png
图片点击可在新窗口打开查看

读取语句
        DataTables("XXX").LoadFilter="条件"
        DataTables("XXX").Loadtop=""
         DataTables("XXX").Load



[此贴子已经被作者于2022/6/1 10:07:48编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109736 积分:558396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/6/1 10:33:00 [只看该作者]

弹出最终拼接的sql语句看看
msgbox(sql2)

 回到顶部
帅哥哟,离线,有人找我吗?
新福星
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1960 积分:15566 威望:0 精华:0 注册:2011/7/16 20:59:00
  发帖心情 Post By:2022/6/1 13:33:00 [只看该作者]

日期都00:00:00,怎么替换成Nothing?

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20220601132658.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109736 积分:558396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/6/1 13:42:00 [只看该作者]

sql里不是nothing,是null,大概这样

Dim sql As String = "insert into 表A(编号,日期) values("
If dr.isnull("编号") Then
    sql = sql & " null ,"
Else
    sql = sql & "'" & dr("编号") & "',"
End if

If dr.isnull("日期") Then
    sql = sql & " null )"
Else
    sql = sql & "#" & dr("日期") & "#)"
End if
msgbox(sql)


 回到顶部