数据库连接 语法异常

数据库连接 语法错误
我想向数据库写入时间，出现语法错误，以下是详细代码，请教：

VB code

Sub database()Dim connection1 As New ADODB.ConnectionDim 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.CloseEnd Sub

出现在DateTime.Now这里

数据库里我时间段设置的是：时间 varchar(60)

请问我的程序哪里错了，谢谢！！！


[解决办法]
rstString$ = "INSERT 汽机数据(一号汽机进汽量,一号汽机进汽焓值,一号汽机抽汽量,一号汽机抽汽焓值,一号汽机发电量,二号汽机进汽量,二号汽机进汽焓值,二号汽机抽汽量,二号汽机抽汽焓值,二号汽机发电量,时间) VALUES(1,2,3,4,4,6,7,8,9, 10, '" & format(now(),"YYYY-MM-DD HH:MM:SS") & "')"

查看更多 下一篇