Question

向数据库中添加信息的sql语句，如何写，为什么datatime类型会报错？

Answer 1

Private Sub CommandButton1_Click()
If TextBox1.Text = "" Or ComboBox1.Text = "" Then
MsgBox "内容和主题是必须输入的", 1 + 16, "出错提示"
TextBox1.SetFocus
Exit Sub
End If
If IsDate(TextBox1.Text) = False Then
MsgBox "日期必须按格式输入，例如： 2009-12-06。"
TextBox1.SetFocus
Exit Sub
End If
Dim RS1 As Recordset
Dim DB1 As Database
Set DB1 = OpenDatabase(ThisWorkbook.Path & "\" & "Info.MDB", False, False, ";Pwd=slkf")
Set RS1 = DB1.OpenRecordset(Name:="记事信息", Type:=dbOpenDynaset)
With RS1
.FindFirst "日期='" & TextBox1.Value & "' Or 主题='" & ComboBox1.Value & "'"
If Not .NoMatch Then
MsgBox "日期 [ " & TextBox1.Value & "或者主题：" & ComboBox1.Value & " ] 的信息已存在，不能重复添加！", 1 + 16, "出错提示"
DB1.Close
Set RS1 = Nothing
Set DB1 = Nothing
Exit Sub
Else
.AddNew
.Fields("日期").Value = Me.TextBox1.Value
.Fields("主题").Value = Me.ComboBox1.Value
.Fields("内容").Value = Me.TextBox2.Value
.Update

MsgBox "增加 [ 日期：" & TextBox1.Value & " 内容：" & TextBox2.Value & " ] 的信息成功！目前共有记录" & RS1.RecordCount & "条", 1 + 16, "添加成功"
End If
DB1.Close
Set RS1 = Nothing
Set DB1 = Nothing
End With
End Sub

Answer 2

不会写就不要误导人家嘛，一点也不道义！
举个例子：插入任意3个学生的完整信息；
INSERT INTO Student
（TABLE （01001，‘赵华’，19），
（01002，‘李芳’，18），
(01003，‘刘红’，20)，
）；
这个才是sql（结构化查询语句）呀
datetime类型的数据是这样的 2000-10-01 这样插入的才对
要不要引号 我忘记了 你自己试试

Answer 3

sql的格式
insert into 表名 （字段名） values （值）
字段名如果省略，相当于在字段名中写了所有字段。
在值部分，字符串类型和时间类型都要加单引号。
如表A 有id int，name varchar（50），birthday datatime 插入的sql语句就可以是
insert into A (id,name,birthday) values(1,'张三','2010-1-2 23:59:58')
如时间只有年月日部分，时分秒部分会认为0
可以用函数getdate()取得当前时间。

Answer 4

可以使用SQL函数 Convert(),例如将当前服务器的时间转换为日期：

Select Convert(char(10),getdate(),126)

这样会得到形如：yyyy-mm-dd 格式的字符串日期。