如何让系统时间自动写入到access数据库中

access数据库中自动写时间非常简单。在数据库中给时间字段设置默认值，设置为Now()那么你在添加新闻的时候就不用管这个字段了，只要每增加一条记录，则会把添加记录的时间自动写入数据库。

恩，你这错误可能和声明对象相关，VBA和VB还是不同的，要加adodb:

dim cn as adodb.connection

set cn=new adodb.connection

你再试下，VBA不熟悉，许多对象搞不明白，或许有更简单的方法

我把一个名称为test.txt文件也放入了C:\Documents and Settings\Desktop\1文件夹下，在这个文件夹下建立了一个schema.ini文件，ini文件的内容：

[test.txt]

Format=TabDelimited

因为我这个文件是用tab分隔的，所以用TabDelimited

同时，我的数据库文件db.mdb中，存在一个tt表，字段对应test.txt文件中的字段名称

以下代码测试通过：

Dim cn As Connection

Dim sql As String

Dim n As Long

Set cn = New Connection

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0" &_

"Data Source=" &App.Path &"\db.mdb"

sql = "insert into tt select * from [test.txt] in ""C:\Documents and Settings\Desktop\1"" ""textHDR=YesFMT=Delimited"""

'如果表tt不存在：

'sql = "select * into tt from [test.txt] in ""C:\Documents and Settings\Desktop\1"" ""textHDR=YesFMT=Delimited"""

cn.Execute sql, n

MsgBox "成功插入：" &n &"行数据"

Set cn = Nothing

---