如何将DTPICKER控件中的值写入SQL SERVER中?
代码如下:
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
请大虾指教
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
请大虾指教
...全文
相关推荐
基于VBScript和控件实现WINCC SQL报表查询功能.doc
文档为基于VBScript和控件实现WINCC SQL报表查询功能,内含SQL数据库的创建过程,以及WINCC中VBS脚本的代码,WINCC的报表界面等,更有助于参考学习
VB资料-VB6中的所有AtiveX控件
VB6中的所有AtiveX控件,VB6的基本资料哈
VB连接SQL Sever 2005数据库
使用VB6.0连接SQL Sever 2005 数据库的源代码
一种利用VB将SQL Sever数据库数据生成excel报表的方法.pdf
一种利用VB将SQL Sever数据库数据生成excel报表的方法.pdf
VB实现文本文件批量导入及数据库管理.doc
VB实现文本文件批量导入及数据库管理


数据库(包含打印,安装,报表)
