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

cyo cyo 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
代码如下:
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
请大虾指教
...全文
评论 4
收藏 已收藏
分享
返回顶部