vb中如何向日期字段中插入一个变量( 有日期,or null)-----请高手分析一下!!!!谢谢!!

Question

有一个text(用于输入日期型的值/可以不输入)
insert into table  (日期)  values (text)    当text为空时,插入的是空值(null) 而不是 1900-01-01 0:00:00请高手指点!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Answer 1

if trim(text.text)="" then
SQLSTR="insert into table  (日期)  values (NULL) "
else
SQLSTR="insert into table  (日期)  values (" & text.text & ") "
end if

Answer 2

samwzhang(分全给我)  你这种方法我也用过了,不过我的日期字段很多,这样就很不方便,有没有其它的办法呢?

Answer 3

SQLSTR = IIf(Trim(Text.Text) <> "", "insert into table  (日期)  values (" & Text.Text & ")", "insert into table  (日期)  values (NULL) ")

Answer 4

for i=1 to text.count
 text(index).tag=FldName(Index)
next i
'__________________
SQLSTR="insert into table  ("
SQLSTR1=") Values ("
for i=1 to text.count
 SQLSTR=SQLSTR & text(index).tag & ","
 if trim(text(index).text)="" then
 SQLSTR1=SQLSTR1 & "NULL,"
 else
 SQLSTR1=SQLSTR1 & & text.text & ", "
 end if
next i
SqlStr=left(SQLSTR,len(SQLSTR)-1)
SqlStr1=left(SQLSTR1,len(SQLSTR1)-1)
SQLSTR=SQLSTR & SQLSTR1 & ")"
cn.excute SQLSTR

Answer 5

iif(isdate(text1.text)=false,null,text1.text)

Answer 6

insert into table  (日期)  values (format(val(text),"yyyy-mm-dd hh:mm:ss"))

Answer 7

wumylove1234(毁于随)  iif 是什么函数呀,具体怎么用呢?

Answer 8

iif(表达式，表达式为True输出的值，表达式为False输出的值)
明白否？或者看这个(MSDN)--------------------------------------------------------------------------------
IIf 函数
      根据表达式的值，来返回两部分中的其中一个。语法IIf(expr, truepart, falsepart)IIf 函数的语法含有下面这些命名参数：部分 描述 
expr 必要参数。用来判断真伪的表达式。 
truepart 必要参数。如果 expr 为 True，则返回这部分的值或表达式。 
falsepart 必要参数。如果 expr 为 False，则返回这部分的值或表达式。 
说明由于 IIf 会计算 truepart 和 falsepart，虽然它只返回其中的一个。因此要注意到这个副作用。例如，如果 falsepart 产生一个被零除错误，那么程序就会发生错误，即使 expr 为 True。
--------------------------------------------------------------------------------

Answer 9

TO wxlys() 
           这样也不行呀,你再帮我看一下,谢谢!

Answer 10

TO : yangao(QQ宝典) 
                        你都是用if 来判断的呀

Answer 11

strsql="insert into tablename(date1,date2) values(" & iif(text1.text="","NULL","'"& format(text1.text,"YYYY-MM-DD") &"'") &","& iif(text2.text="","NULL","'"& format(text2.text,"YYYY-MM-DD") &"'") &")"
conn.execute strsql

Answer 12

谢谢大家!!!!!!!!问题已解决,更要谢谢"Leftie(左手,为人民币服务)"