如何将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
请大虾指教