如何为Access数据库表添加日期或时间戳

时间：2022年12月11日

来源：想当豹子女士

编辑：本站小编

下面小编为大家带来如何为Access数据库表添加日期或时间戳，本文共9篇，希望能帮助大家!本文原稿由网友“想当豹子女士”提供。

篇1：如何为Access数据库表添加日期或时间戳

为了应用方便，您可能需要给数据库的每条记录都添加日期/时间戳，以便确定各个记录添加到数据库的时间，在Access数据库应用中，使用Now函数能够轻松完成这个任务。本文将一步一步为您介绍整个添加过程，非常简单。本文所使用的Access版本为Access ，对于之前的版本，添加步骤类似但不完全一致。

1. 打开包含了您需要添加日期或时间戳的表的Access数据库;

2. 双击窗口左侧面板中您需要添加日期或时间戳的表;

3. 从Office Ribbon界面左上角“视图”的下拉菜单选择“设计视图”将表切换到设计视图模式;

4. 点击该表“字段名称”列第一个空白行的空格，在格内为该列输入一个名称;

5. 点击同一行的“数据类型”列中显示“文本”字样旁的箭头，从下拉菜单中选择“日期/时间”;

6. 在屏幕底部的“字段属性”窗格中，在“默认值”一栏输入“Now()”;

7. 还是在“字段属性”窗格中，点击“显示时间选择器”属性相应空格中的箭头，并在下拉菜单中选择“从不”;

8. 保存数据库;

9. 通过向数据库添加一个新记录，以确认新字段设置运行正常，Access应当在“记录添加日期”字段地洞加上时间戳，

提示：Now()函数在字段中添加了当前的日期和时间，您也可以选择用Date()函数只添加日期不添加时间。

篇2：FuncADDColumn(为表添加字段)数据库

用于为表添加字段，可以侦测表中有没有这字段。如果没有，添加该字段。 /* author:nyb time :/12/29 fixtime: aim :看表中是否有这个字段，如果没有，添加上 input : 调用： execute FuncADDColumn 'a','c','int' execute FuncADDColumn 'a','ddd','var

用于为表添加字段。可以侦测表中有没有这字段。

如果没有，添加该字段。

author:nyb

time :2003/12/29

fixtime :

aim :看表中是否有这个字段，如果没有，添加上

input :

调用：

execute FuncADDColumn 'a','c','int'

execute FuncADDColumn 'a','ddd','varchar(100)'

CREATE PROCEDURE FuncADDColumn

@tablename varchar(128), -- 表名

@Columnname varchar(128),---列名

@ColumnType varchar(128) -- 列定义

set @tablename = ltrim(rtrim(@tablename))

set @Columnname = ltrim(rtrim(@Columnname))

set @ColumnType = ltrim(rtrim(@ColumnType))

declare @string varchar(8000)

IF not EXISTS( select * from syscolumns where id=object_id(@tablename) and name = @Columnname )

begin

select @string =' ALTER TABLE '+ @tablename + ' ADD [' + ltrim(rtrim(@Columnname)) + '] ' + @ColumnType + ' null'

print @string

execute(@string)

end

原文转自：www.ltesting.net

篇3：如何在Access 数据库中添加附件

Access允许您在数据库表中包含附件，通过利用微软的对象链接和嵌入(OLE)技术，您可以将照片、图表、文档及其他文件存储在您的Access数据库中。数据库附件是Access 2007版本的一个新特点，添加过程非常简单，费时较短，通过下面几个步骤就可以完成：

1. 首先使用Access 2007打开Access数据库。

2. 在“设计视图”中打开您想要添加附件的表。

3. 在“字段名称”列的空白行中为附件字段输入一个名称。

4. 在“数据类型”下拉框中选择“附件”

5. 点击屏幕左上角的保存按钮保存对表所做的更改。

6. 转到“数据表”视图查看表内容，

7. 双击出现在你想要添加附件的空白字段中的回形针图标。注意这个图标旁的括号内的数字代表了附加到此记录的文件数量。

8. 在出现的“附件”对话框中点击“添加”按钮，可添加新附件。

9. 在出现的“选择文件”对话框中，使用“搜索范围”列表导航到您要附加到该记录的文件，然后点击“打开”按钮。

10. 点击“确定”按钮，关闭“附件”对话框。

11. 你会注意到，该记录中回形针图标旁的数字也做出了相应的改变。

提示：

1. 本文所提到的向数据库对象添加附件功能只在Access 2007中可用，之前的Access版本并不支持此功能。

2. 所添加的文件必须小于250MB，而且您添加的附件总量最大只能达到2GB。

篇4：最全各类考证时间日期表

最全各类考证时间日期表-职业资格考试时间

其实每个证的考证时间都和往年差不了太多啦，但一般情况下都不会一样的，还是要关心一下，给自己留个底嘛，祝你在20考证成功哦！

[年最全各类考证时间日期表]

篇5：Word中添加时间和日期的技巧

Word2010

步骤/方法

打开Word2010文档，将光标移动到合适的位置。

单击“插入”选项卡，

在“文本”区单击“日期和时间”按钮。

在“日期和时间”对话框的“可用格式”列表中选择合适的日期或时间格式。

选中“自动更新”选项，实现每次打开Word文档自动更新日期和时间，单击“确定”按钮即可。

篇6：纯编码实现Access数据库的建立或压缩!!

纯编码实现Access数据库的建立或压缩!!

'#######以下是一个类文件，下面的注解是调用类的方法################################################

'# 注意：如果系统不支持建立Scripting.FileSystemObject对象，那么数据库压缩功能将无法使用

'# Access 数据库类

'# CreateDbFile 建立一个Access 数据库文件

'# CompactDatabase 压缩一个Access 数据库文件

'# 建立对象方法:

'# Set a = New DatabaseTools

'# by (萧寒雪) s.f.

'#########################################################################################

Class DatabaseTools

Public function CreateDBfile(byVal dbFileName,byVal DbVer,byVal SavePath)

'建立数据库文件

'If DbVer is 0 Then Create Access97 dbFile

'If DbVer is 1 Then Create Access dbFile

On error resume Next

If Right(SavePath,1)“\\” Or Right(SavePath,1)“/” Then SavePath = Trim(SavePath) & “\\”

If Left(dbFileName,1)=“\\” Or Left(dbFileName,1)=“/” Then dbFileName = Trim(Mid(dbFileName,2,Len(dbFileName)))

If DbExists(SavePath & dbFileName) Then

Response.Write (“对不起，该数据库已经存在!”)

CreateDBfile = False

Else

Dim Ca

Set Ca = Server.CreateObject(“ADOX.Catalog”)

If Err.number0 Then

Response.Write (“无法建立，请检查错误信息

” & Err.number & “

” & Err.Description)

Err.Clear

Exit function

End If

If DbVer=0 Then

call Ca.Create(“Provider=Microsoft.Jet.OLEDB.3.51;Data Source=” & SavePath & dbFileName)

Else

call Ca.Create(“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & SavePath & dbFileName)

End If

Set Ca = Nothing

CreateDBfile = True

End If

End function

Public function CompactDatabase(byVal dbFileName,byVal DbVer,byVal SavePath)

'压缩数据库文件

'0 为access 97

'1 为access 2000

On Error resume next

If Right(SavePath,1)“\\” Or Right(SavePath,1)“/” Then SavePath = Trim(SavePath) & “\\”

If Left(dbFileName,1)=“\\” Or Left(dbFileName,1)=“/” Then dbFileName = Trim(Mid(dbFileName,2,Len(dbFileName)))

If DbExists(SavePath & dbFileName) Then

Response.Write (“对不起，该数据库已经存在!”)

CompactDatabase = False

Else

Dim Cd

Set Cd =Server.CreateObject(“JRO.JetEngine”)

If Err.number0 Then

Response.Write (“无法压缩，请检查错误信息

” & Err.number & “

” & Err.Description)

Err.Clear

Exit function

End If

If DbVer=0 Then

call Cd.CompactDatabase(“Provider=Microsoft.Jet.OLEDB.3.51;Data Source=” & SavePath & dbFileName,“Provider=Microsoft.Jet.OLEDB.3.51;Data

Source=” & SavePath & dbFileName & “.bak.mdb;Jet OLEDB;Encrypt Database=True”)

Else

call Cd.CompactDatabase(“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” &

SavePath & dbFileName,“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” &

SavePath & dbFileName & “.bak.mdb;Jet OLEDB;Encrypt Database=True”)

End If

'删除旧的数据库文件

call DeleteFile(SavePath & dbFileName)

'将压缩后的数据库文件还原

call RenameFile(SavePath & dbFileName & “.bak.mdb”,SavePath & dbFileName)

Set Cd = False

CompactDatabase = True

End If

end function

Public function DbExists(byVal dbPath)

'查找数据库文件是否存在

On Error resume Next

Dim c

Set c = Server.CreateObject(“ADODB.Connection”)

c.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & dbPath

If Err.number0 Then

Err.Clear

DbExists = false

else

DbExists = True

End If

set c = nothing

End function

Public function AppPath

'取当前真实路径

AppPath = Server.MapPath(“./”)

End function

Public function AppName()

'取当前程序名称

AppName = Mid(Request.ServerVariables(“SCRIPT_NAME”),(InStrRev(Request.ServerVariables(“SCRIPT_NAME”) ,“/”,-1,1))+1,Len(Request.ServerVariables(“SCRIPT_NAME”)))

End Function

Public function DeleteFile(filespec)

'删除一个文件

Dim fso

Set fso = CreateObject(“Scripting.FileSystemObject”)

If Err.number0 Then

Response.Write(“删除文件发生错误!请查看错误信息

” & Err.number & “

” & Err.Description)

Err.Clear

DeleteFile = False

End If

call fso.DeleteFile(filespec)

Set fso = Nothing

DeleteFile = True

End function

Public function RenameFile(filespec1,filespec2)

'修改一个文件

Dim fso

Set fso = CreateObject(“Scripting.FileSystemObject”)

If Err.number0 Then

Response.Write(“修改文件名时发生错误!请查看错误信息

” & Err.number & “

” & Err.Description)

Err.Clear

RenameFile = False

End If

call fso.CopyFile(filespec1,filespec2,True)

call fso.DeleteFile(filespec1)

Set fso = Nothing

RenameFile = True

End function

End Class

篇7：为导入文件加上时间戳标记的两种方法数据库教程

问：如何给导入文件加上时间戳标记?

答：请参考下文中介绍的两种方法：

1.在DOS下从系统获得时间戳

利用Dos命令取得时间戳:

C:\\>echo %date%

-12-31 星期一

C:\\>echo %date:~0,10%

2007-12-31

然后使用导出(exp)工具引用该时间戳就很容易了:

exp userid=eygle/eygle file=d:\\eygle%date:~0,

10%.dmp log=d:\\eygle%date:~0,10%.log

2.使用SQL脚本从数据库获得时间戳

注释：在NT下该命令的执行结果可能与Windows2000和WindowsXp上不同,没有NT的环境可以试验(此时只需“”把date引用起来就可以了,如: “%date%”)，

我们也可以使用如下的SQL方式获得时间戳.

首先编写一个doexp.sql脚本:

column today new_val dt

select to_char( sysdate, 'ddmmyyyy' ) today from dual;

host exp userid=eygle/eygle tables=emp

file=exp_prod_&dt..exp log=exp_prod_&dt..log

exit

然后再编写一个start.bat批处理脚本调用doexp.sql脚本:

echo off

set oracle_sid=eygle

sqlplus eygle/eygle @doexp

执行结果如下:

E:\\Is\\IsTrain\\Exp2>dir

驱动器 E 中的卷是 SWAPDK

卷的序列号是 F8BA-FCAC

E:\\Is\\IsTrain\\Exp2 的目录

2007-12-07 15:14

2007-08-26 15:18 170 doexp.sql

2007-12-07 15:12 4,096 exp_prod_0710.exp

2007-12-07 15:12 335 exp_prod_07102003.log

2007-08-26 15:18 4,096 exp_prod_26082003.exp

2007-08-26 15:18 312 exp_prod_26082003.log

2007-12-07 15:42 4,096 exp_prod_30082003.exp

2007-08-30 17:09 335 exp_prod_30082003.log

2007-12-07 15:14 1,660 sqlnet.log

2007-12-07 15:12 60 start.bat

9 个文件 15,160 字节

2 个目录 674,652,160 可用字节

篇8：将现有的Access数据库升级为SQL数据库教程

很多Access和SQL Server开发人员都经常面临着将一个Access数据库升级到SQL Server数据库的问题，由于存在现有的Access升级向导，这一转变的过程就会变得相当简单，尤其是当你建立一个与SQL Server数据相联系的ADP的时候。然而，向导并不是十全十美的，需要解决的问题还是大有存在。

首先，有些对象并不是简单的升级，所以这时你不得不人为地处理。第二，很多Access特性──比如一些查询类型，对象，以及特定的数据类型在你没有做好升级之前的准备的情况下就会导致错误的产生。现在，让我们讨论一下在数据库升级过程中可能面临的问题，我将提供能够解决问题的一些通用的指导方法，最后，你必须花一定的时间和精力将这些知识应用到开发之中。

哪些不能够升级？

在处理实际的问题之前，让我们看看不能随意升级的对象，它们包括以下：

交叉表查询

包含SQL DISTINCTROW关键字的任何查询

所有的隐藏对象

作为参数的表格数据的查询(这些表格可以升级，但它们却不能正确的运行)

Pass-Through查询

SQL数据定义语言查询(比如CREATE TABLE, ALTER TABLE, 以及DROP语句)

这些Access对象需要特定的处理。具体的，你将建立一个可比较的SQL Server对象，除此之外，SQL Server不支持Jet安全特性，所以你必须使用Windows认证和/或SQL Server安全机制。

包括的问题点

在数据库的升级之前，如果你已经知道哪些地方将可能导致错误并知道如何处理产生的错误，数据库升级过程中导致的错误的可能性将大大地减少。我能够提供的数据库升级的最好的建议是在开发之前做好最完整的计划。现在，我将列举数据库升级过程中可能会导致产生的问题──如果你没有做好计划之前的准备。

不支持的日期

关于日期，在Access和SQL Server之间都存在很大的差别。Access支持很大范围的日期，从11月1日到9912月31日。相反，SQL Server支持的日期从1753年1月1日到9999年12月31日。数据库的升级向导无法升级包含SQL Server不支持的日期的表格。这就意味着在升级之前你必须人工地处理这些日期。幸运的是，这一问题只影响少数的数据库。

与表格控制相关的查询

开发人员通常会使用表格控制的查询来限制或询问一个数据来源。一个表格可以提供将数据显示在一个特定报告中的多种选择。例如，SQL SELECT语句包含了用户的输入：

SELECT Orders.RequiredDate, Orders.ShippedDate, Orders.Freight,

Orders.ShipName, Orders.ShipAddress, Orders.OrderDate

FROM Orders

WHERE

Orders.OrderDate Between [Forms]![DateFilter]![DateFrom] And [Forms]![DateFilter]![DateTo]));

为了限定报告中的数据，用户可以输入一个开始和结束的日期到列表(DateFrom 和DateTo)。其他的代码可以打开并显示满足用户输入的两个日期之间的记录。

因为这种查询方式被Jet处理，表格中产生的问题可以很快被解决。然而，当数据库升级时，SQL Server不会涉及到表格控制，结果通常为查询失败。为了修正这一查询方式，开发人员必须更改表格。我建议你使用输入参数属性，并将数值传递到SQL Server存储程序。

交叉表查询

SQL Server不支持Jet TRANSFORM语句──这一语句可以使一个交叉表查询成为可能。例如，数据库升级向导支持以下查询方式：

TRANSFORM. Sum(CCur([Order Details].UnitPrice*[Quantity]*(1-[Discount])/100)*100)

AS ProductAmount

SELECT Products.ProductName, Orders.CustomerID, Year([OrderDate]) AS OrderYear

FROM Products INNER JOIN (Orders INNER JOIN [Order Details]

ON Orders.OrderID = [Order Details].OrderID) ON Products.ProductID =

[Order Details].ProductID

WHERE Orders.OrderDate Between #1/1/# And #12/31/1997#

GROUP BY Products.ProductName, Orders.CustomerID, Year([OrderDate])

PIVOT “Qtr ” & DatePart(“q”,[OrderDate],1,0) In (“Qtr 1”,“Qtr 2”,“Qtr 3”,“Qtr 4”)

还好，你无需在SQL Server中使用Transact-SQL (T-SQL) CASE关键词重新编写一个Access的交叉表查询，

下面的SELECT语句描述了使用T-SQL方式重新建立一个交叉表查询的语法：

SELECT Customers.CustomerID, Customers.CustomerName

SUM (Case When Orders.Orderdate BETWEEN '01-Jan-1990' AND '31-Dec-'

Then [UnitPrice]*[Quantity] Else 0 End) as 1997)

FROM Customers INNER JOIN Orders

ON CustomerID=Orders.CustomerID

隐藏对象

所有的隐藏对象在数据库升级过程中都被忽略。对此，你最好的处理方法是使用程序对象的GetHiddenAttribute属性检查对象。例如，以下代码使用这一方法决定对象是否被隐藏。

Dim IsHidden As Boolean

If Application.GetHiddenAttribute(objtype, objname) Then

IsHidden = True

End If

如果特定的对象被隐藏，IsHidden布尔变量将被为True。

包含索引的表格

数据库升级向导不支持没有索引或其他限制的表格。升级向导可以升级一个无索引的表格，但其转换之后只能成为一个只读的表格。幸运的是，解决这一问题很简单：添加一个索引到每一个没有索引的表格。一旦你已经完成升级数据库，请记住将添加的索引删除。

数据库升级操作步骤

一旦你已经做好一切准备，并确定操作可以开始。数据库升级向导可以为你提供三种选择：

输出Access表格到SQL Server并链接到Access数据库

使用Pass-Through查询与SQL Server的后台服务器的表格相互通讯

将整个Access数据库移动到一个Access数据库工程(其只与SQL Server联系)

为了启动数据库升级向导，先从工具菜单栏中选择数据库功能，然后从子菜单中选择升级向导。向导的第一个面板提供两种选择：你可以建立一个新的SQL Server 数据库来存放Access表格，如图A所示，或者你可以在一个现成的SQL Server数据库中添加表格。选择一个现成的SQL Server数据库将需要输入一个数据服务名称(DSN)。

图 A

选择建立一个新的数据库或者使用一个现成的数据库

第二个面板要求获得SQL Server范例的信息。除此之外，你必须认证安全机制(如果存在)和为新的数据库提供一个缺省的名称，如图B所示。

图B

为一个新的数据库命名

在这点上，你可以将需要的表格复制到SQL Server，你也可以指出完成的部分将成为一个完整的ADP或者一个被链接的表格，如图C所示。

图 C

指明一个ADP或者一个被链接的表格