数据库中时间的添加

Question

sorry,应该是
Private Sub Command1_Click()
  Dim cn As New ADODB.Connection
  Dim rs As New ADODB.Recordset
  Dim sql As String
  Dim a(1) As Date
  a(1) = CDate(Now)
  'MsgBox a(1)
  cn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=sale"
 ' sql = "select time from ys"
'Set rs = cn.Execute(sql)
'MsgBox rs(0)
' rs.Open cn, 1, 3
  sql = "insert into ys(time) values ( '" & a(1) & "')"
   cn.Execute (sql)
  'rs.AddNew
 'rs.Fields(0) = CDate(Now)
  
  'rs.Update
  'rs.Close
 'Set rs = Nothing
  cn.Close
  Set cn = Nothing
End Sub

Answer 1

如果你的数据库中字段是datetime型，
sql = "insert into ys ([time]) values ( " & a(1) & ")"
另外，最好不要用关键字，保留字作为字段名。

Answer 2

ys中除了time其他的是否允许为空，不是的话你必须为每个字段写全了

Answer 3

sql = "insert into ys (time) values ( '" & a(1) & "')"

Answer 4

sql = "insert into ys ([time]) values ( convert(datetime," & a(1) & ",121))"