我想向数据库写入时间,出现语法错误,以下是详细代码,请教:Sub database()
Dim connection1 As New ADODB.Connection
Dim connection2 As New ADODB.Connection
Dim cmdRDB As New ADODB.Command
Dim recset1 As New ADODB.Recordset
Dim n As Variant
Dim p As Variant
Dim strConnectionString$, rstString$
Dim i, j
strConnectionString$ = "Provider=SQLOLEDB.1;Data Source=CHENS\SQLEXPRESS;User Id=optimize;Password=123456;Initial Catalog=优化平台"
connection1.ConnectionString = strConnectionString$
connection1.Open
rstString$ = "INSERT 汽机数据(一号汽机进汽量,一号汽机进汽焓值,一号汽机抽汽量,一号汽机抽汽焓值,一号汽机发电量,二号汽机进汽量,二号汽机进汽焓值,二号汽机抽汽量,二号汽机抽汽焓值,二号汽机发电量,时间) VALUES(1,2,3,4,4,6,7,8,9, 10, " & DateTime.Now & ")"
connection1.Execute rstString
connection1.Close
End Sub
出现在DateTime.Now这里数据库里我时间段设置的是:时间 varchar(60)请问我的程序哪里错了,谢谢!!!
Dim connection1 As New ADODB.Connection
Dim connection2 As New ADODB.Connection
Dim cmdRDB As New ADODB.Command
Dim recset1 As New ADODB.Recordset
Dim n As Variant
Dim p As Variant
Dim strConnectionString$, rstString$
Dim i, j
strConnectionString$ = "Provider=SQLOLEDB.1;Data Source=CHENS\SQLEXPRESS;User Id=optimize;Password=123456;Initial Catalog=优化平台"
connection1.ConnectionString = strConnectionString$
connection1.Open
rstString$ = "INSERT 汽机数据(一号汽机进汽量,一号汽机进汽焓值,一号汽机抽汽量,一号汽机抽汽焓值,一号汽机发电量,二号汽机进汽量,二号汽机进汽焓值,二号汽机抽汽量,二号汽机抽汽焓值,二号汽机发电量,时间) VALUES(1,2,3,4,4,6,7,8,9, 10, " & DateTime.Now & ")"
connection1.Execute rstString
connection1.Close
End Sub
出现在DateTime.Now这里数据库里我时间段设置的是:时间 varchar(60)请问我的程序哪里错了,谢谢!!!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货