如何将DTPICKER控件中的值写入SQL SERVER中?

cyo 2003-04-08 08:28:05
代码如下:
SUB FORM_LOAD()
DTPICKER1.VALUE=DATE
END SUB
SUB COMMAND_CLICK()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim str As String
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "dsn=hgsql;uid=sa;pwd=o4w5n6;database=hgprd"
conn.Open
str = "select 保单号,业务员,受理保费,缴费方式,营业部,险种 from shouli"
rs.Open str, conn, adOpenDynamic, adLockOptimistic
RS.ADDNEW
rs.Fields("受理日期").Value = convert(nchar, "& DTPicker1.Value&")
rs.Update
请大虾指教
...全文
26 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
cyo 2003-04-08
rs.Fields("受理日期").Value = '" & DTPicker1.Value & "'
运行后,提示:在对应所需名称或集合中,找不到项目

是什么原因?
回复
jeansure 2003-04-08
rs.Fields("受理日期").Value = DTPicker1.Value
回复
jeansure 2003-04-08
好象日期不是数字型的
rs.Fields("受理日期").Value = '" & DTPicker1.Value & "'
试试看???
回复
minajo21 2003-04-08
convert是SQL中的函数,不是VB的
如果你的"受理日期"是datetime型的,直接这样就可以了
rs.Fields("受理日期").Value = DTPicker1.Value

如果是char型,rs.Fields("受理日期").Value = CStr(DTPicker1.Value)
回复
相关推荐
发帖

1187

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2003-04-08 08:28
社区公告
暂无公告