您的位置：程序门 -> vb -> 基础类

保存问题

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

保存问题

发表于：2007-09-06 15:17:19 楼主

有2个txt文本框,txt_name,txt_tel
con.ＥＸＥＣute （ "insert into a（c_no,c_name) values（ ' " & trim（txt_name) & " ', ' " & trim（txt_tel) & " ') ")

如果2个文本都为空,保存时,还会有保存1个空格字符,如何解决?

发表于：2007-09-06 15:48:311楼得分:0

dim sql as string
sql = "insert into a（c_no,c_name) values（ ' " & trim（txt_name) & " ', ' " & trim（txt_tel) & " ') "
sql = replace（sql, " ' ' ", "null ")
con.ＥＸＥＣute （sql)

发表于：2007-09-06 16:36:142楼得分:0

if txt_name & txt_tel > " " then con.ＥＸＥＣute （ "insert into a（c_no,c_name) values（ ' " & trim（txt_name) & " ', ' " & trim（txt_tel) & " ') ")

发表于：2007-09-06 17:01:053楼得分:0

如果字段类型为 char（1) 改成 varchar（1)

发表于：2007-09-06 20:49:474楼得分:0

这个不懂正在学

发表于：2007-09-06 22:23:515楼得分:0

用len函数吧
if len（txt_name)> 0 and len（txt_tel)> 0 then
sql = "insert into a（c_no,c_name) values（ ' " & trim（txt_name) & " ', ' " & trim（txt_tel) & " ') "

con.ＥＸＥＣute （sql)
end if
另外就是你的数据库中的两个字段最好设置成varchar型的

发表于：2007-09-07 08:50:316楼得分:0

有10来个txt是要随机保存的,也要这像 "回复人datou985（^\会急转弯儿的猪/^) " 说的 if ....> 0吗? 另,数据库的都是varchar型的了

发表于：2007-09-07 09:04:157楼得分:0

不知道你提问的意图是什么，如果你的意思是字段允许同时为空，只是不要存空格，那么我前面的回答就没有问题，如果你的意思是所有字段不能同时为空，那么你可以在保存前作一个判断

if trim（txt_name.text & txt_tel.text) = " " then
msgbox "请至少填写一项！ ", , "提示 "
exit sub
end if

发表于：2007-09-07 09:28:188楼得分:0

铁面人,你的我试了,还是会保存空格

发表于：2007-09-07 09:59:489楼得分:0

如果连null都能存为空格，那我就没有什么可说的了。

其他资讯