Access和Access VBA学习总结

access具有哪些数据类型，各有什么作用

Access允许九种数据类型：文本、备注、数值、日期/时间、货币、自动编号、是/否、OLE对象、超级链接、查询向导。在表的设计视图中，每一个字段都有设计类型。


　文本：这种类型允许最大255个字符或数字，Access默认的大小是50个字符，而且系统只保存输入到字段中的字符，而不保存文本字段中未用位置上的空字符。可以设置“字段大小”属性控制可输入的最大字符长度。


　备注：这种类型用来保存长度较长的文本及数字，它允许字段能够存储长达64000个字符的内容。但Access不能对备注字段进行排序或索引，却可以对文本字段进行排序和索引。在备注字段中虽然可以搜索文本，但却不如在有索引的文本字段中搜索得快。


　数字：这种字段类型可以用来存储进行算术计算的数字数据，用户还可以设置“字段大小”属性定义一个特定的数字类型，任何指定为数字数据类型的字型可以设置成“字节”、“整数”、“长整数”、“单精度数”、“双精度数”、“同步复制ID”、“小数”五种


类型。在Access中通常默认为“双精度数”。


日期/时间：这种类型是用来存储日期、时间或日期时间一起的，每个日期/时间字段需要8个字节来存储空间。


　货币：这种类型是数字数据类型的特殊类型，等价于具有双精度属性的数字字段类型。向货币字段输入数据时，不必键入人民币符号和千位处的逗号，Access会自动显示人民币符号和逗号，并添加两位小数到货币字段。当小数部分多于两位时，Access会对数据进行四


舍五入。精确度为小数点左方15位数及右方4位数。


　自动编号：这种类型较为特殊，每次向表格添加新记录时，Access会自动插入唯一顺序或者随机编号，即在自动编号字段中指定某一数值。自动编号一旦被指定，就会永久地与记录连接。如果删除了表格中含有自动编号字段的一个记录后，Access并不会为表格自动编


号字段重新编号。当添加某一记录时，Access不再使用已被删除的自动编号字段的数值，而是重新按递增的规律重新赋值。


　是/否：这种字段是针对于某一字段中只包含两个不同的可选值而设立的字段，通过是/否数据类型的格式特性，用户可以对是/否字段进行选择。


　OLE对象：这个字段是指字段允许单独地“链接”或“嵌入”OLE对象。添加数据到OLE对象字段时，可以链接或嵌入Access表中的OLE对象是指在其他使用OLE协议程序创建的对象，例如WORD文档、EXCEL电子表格、图像、声音或其他二进制数据。OLE对象字段最大可为


1GB，它主要受磁盘空间限制。


　超级链接：这个字段主要是用来保存超级链接的，包含作为超级链接地址的文本或以文本形式存储的字符与数字的组合。当单击一个超级链接时，WEB浏览器或Access将根据超级链接地址到达指定的目标。超级链接最多可包含三部分：一是在字段或控件中显示的文本；


二是到文件或页面的路径；三是在文件或页面中的地址。在这个字段或控件中插入超级链接地址最简单的方法就是在“插入”菜单中单击“超级链接”命令。


　查阅向导：这个字段类型为用户提供了一个建立字段内容的列表，可以在列表中选择所列内容作为添入字段的内容


二、如何确定字段数据类型


1、和金钱有关的，用货币型，和金钱无关但需数值计算的选数字型，无需数值计算又不超过255个字符的选文本型，超过255个字符的选备注型。


2、如果只有两个确定的值可供选择，可以用是/否型，也可以用文本型。其他如日期型类型，含义明显，不再叙述。
========

ACCESS中的7种常用的数据类型

 
1. 字符类型：（VARCHAR、CHA）用于存储字符数据，最大长度为255，ACCESS中有两个字符数据：VARCHAR和CHAR，前者用于存储可变长度字符串，后者用于存储固定长度字符串。固定长度会用空格来填充不够的位数，并且检索的时候要比可变的快。


2. 备注类型：（MEMO）长度为64000个字符，由于字符类型数据的最大长度为255个字节，所以没办法存储更长的文字说明，备注类型数据就是为了解决这个问题的。


 


3. 数字类型：ACCESS中有6种数字类型：


Byte 字节型 整数 0-255


Smallint 整型 整数 -32000-32000


Integer（number） 长整型 整数 -2000000000-2000000000：9个0


Money（currency）货币性 整数和4位小数 正负900000000000000：14个0


Real 单精度 浮点数字 14.E-45 – 3.4E+38


Float 双精度浮点数字 4.9E-324 – 1.8E+308


4. 日期时间类型：（datetime）用于存储日期值，时间值，日期时间混合值：


常规日期


常日期


中日期


短日期


长时间


中时间


短时间


5. 自动编号类型：（counter）每增加一条记录就会自动增加一个编号。


6. 是否类型：（yesno）对一个字段中包含的两种不同的可选值。


7. ole对象类型：允许单独的链接或嵌入OLE对象。相关：SQL数据库。
========

access数据库-表

字段数据类型用小数注意点


有个网友问：字段数据类型用小数，输入小数，它会自动保存为整数，即小数部分会被舍去。
正　文:
  远程一看，小数 字段属性里 数值范围 为0，这当然不行了。截图解疑


即输入  23.6655555后，它会自动保存为 23


即输入  23.6655555后，它会自动保存为 23.66555
所以小数 数值范围写大点，更适合。
========

【Access基础扫盲】小数与null

摘　要:小数，null 空值
正　文:
1.access的四舍五入规则为，任何小于或等于0.5的小数部分都舍去，这一点请注意。经四舍五入后，6.5成为6，6.51成为7.
普通除法：200/6=33.333；200.6/6.8=29.5; 200.8/6.5=30.892
整数除法：200\6=33; 200.6\6.8=28; 200.8\6.5=33;  
200.8\6.8相当于int(201\7)，其中int是取整函数。
2.比较运算符
在所有的比较运算符情况下，如果第一个值或第二个值为Null(空),则结果也为Null。由于Null表示未知值，因此与Null进行的任何比较的结果也是未知的。这一点需特别注意。当有一个值出现空值时会影响比较结果。
参考：【Access扫盲】用查询找出2个表中相同与不同部分 （在此示例查询sql代码中加入null，否则影响效果）。因为初期不懂null作用，现在明白了！
========

0、""(空字串)、Null、Empty、与 Nothing 的区别

摘　要:先回答以下问题吧！ 经过以下的叙述之后， 变量 A、B、C、D 分别等于 0、""、Null、 Empty、 Nothing 的哪一个？


正　文:
Dim A
Dim B As String
Dim C As Integer
Dim D As Object
A 等于 Empty， 因为尚未初始化的「不定型变量」都等于 Empty。但如果检测 A = "" 或 A = 0， 也都可以得到 True 值。
B 等于 ""， 因为尚未初始化的非固定长度「字串」都等于 "" 。 但请注意 B<> Null。
C 等于 0， 这个还有问题吗？
D 等于 Nothing， 尚未设定有物件的「物件变量」都等于 Nothing， 但请不要使用 D = Nothing , 而要使用 D Is Nothing 来判断 D 是否等于 Nothing， 因为判断 是否相等的符号是 Is 不是 = 。
最令人迷惑的地方是 Null 这个保留字， 请看以下语句：
Print X = Null
Print X <> Null
结果都是输出 Null(不是 True 也不是 False)， 这是因为任何一个运算式只要含有 Null ， 则该运算式就等于 Null， 实际上想要判断某一数据是否为 Null 绝对不能使用：
If X = Null Then ' 永远都会得到 Null
而要使用：
If IsNull(X) Then
哪一种数据会等于 Null 呢？ 除了含有 Null 运算式之外， 就属没有输入任何数据的「数据字段」(在数据库中) 会等于 Null。 
========

Access sql语句创建表及字段类型

创建一张空表： Sql="Create TABLE [表名]"


创建一张有字段的表： Sql="Create TABLE [表名]([字段名1] MEMO NOT NULL, [字段名2] MEMO, [字段名3] COUNTER NOT NULL, [字段名4] DATETIME, [字段名5] TEXT(200), [字段名6] TEXT(200))


字段类型：   


2 : "SmallInt",                 // 整型    
3 : "Int",                 // 长整型    
4 : "Real",                 // 单精度型    
5 : "Float",                 // 双精度型    
6 : "Money",                 // 货币    
7 : "DateTime",                 // 日期时间 
11 : "Bit",                 // 是否 
13 : "TimeStamp", 
17 : "TinyInt",                 // 字节 
72 : "UniqueIdentifier",         // 同步复制 ID 
128 : "Binary", 
129 : "Char", 
130 : "NChar", 
131 : "Decimal",                 // 小数 
133 : "DateTime", 
135 : "SmallDateTime", 
200 : "VarChar", 
201 : "Text", 
202 : "VarChar",                 // 文本 
203 : "Text",                 // 备注 
204 : "Binary",                 // 二进制 
205 : "Image"                 // OLE 对象


以下字段为无编码字段（NChar、NVarchar、NText型） 8,128,130,202,203,204,205 以下字段为按当前系统内码编码的字段（Asp中可用CodePage=936纠正为gb2312内码） 129,200,201


在现有的表中增加字段： 
Sql="alter table [表名] add column [字段名] varchar(200)"


修改字段类型： 
Sql="alter table [表名] Alter COLUMN 字段名]   varchar(50)"


删除表： 
Sql="Drop table [表名]"


删除字段： 
sql="alter table [表名] drop [字段名]"


修改字段：
Alter TABLE [表名] Alter COLUMN [字段名] 类型(大小) NULL


新建约束：
Alter TABLE [表名] ADD CONSTRAINT 约束名 CHECK ([约束字段] <= '2007-1-1')


删除约束：
Alter TABLE [表名] Drop CONSTRAINT 约束名


新建默认值：
Alter TABLE [表名] ADD CONSTRAINT 默认值名 DEFAULT 'Gziu.CoM' FOR [字段名]


删除默认值：
Alter TABLE [表名] Drop CONSTRAINT 默认值名


=======================================


conn.open connstr sql="alter table [tablename] add hehe char(20)" conn.execute(sql) response.write("添加成功")


ACCESS新建数据库和表还不简单，有了表字段初始化就更简单


=======================================


<% 
session("tablen")="news" 
'news是已存在的表名 
session("fieldsn")="c" 
'要添加的字段名
connectionstring="provider=microsoft.jet.oledb.4.0;data source="&server.MapPath("data/qq.mdb") 
set conn=server.createobject("adodb.connection") 
conn.OPEN connectionstring 
jhsql = " Alter Table "&session("tablen")&" add column "&session("fieldsn")&" real " 
conn.execute(jhsql)
%>


================================


生成数据表，添加字段，其中id字段为自动增加，测试通过~~


Sub GenAutoIncrementFld() 
set cn=server.CreateObject("ADODB.Connection") 
set clx=server.CreateObject("ADOX.Column") 
set cat=server.CreateObject("ADOX.Catalog") 
set tblnam=server.CreateObject("ADOX.Table")


cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\网站制作\asp操作mdb\db\test.mdb"      
Set cat.ActiveConnection = cn


tblnam.Name = "Test"      
clx.ParentCatalog = cat
   
clx.Type = 3      
clx.Name = "Id"     
clx.Properties("AutoIncrement") = true      
tblnam.Columns.Append clx      
tblnam.Columns.Append "DataField",130,20      
cat.Tables.Append tblnam


     Set clx = Nothing
     Set cat = Nothing
     cn.Close
     Set cn = Nothing End Sub


call GenAutoIncrementFld


===================================


字段类型对应数值


''---- DataTypeEnum Values ---- 
Const adEmpty = 0
Const adTinyInt = 16
Const adSmallInt = 2
Const adInteger = 3
Const adBigInt = 20
Const adUnsignedTinyInt = 17
Const adUnsignedSmallInt = 18
Const adUnsignedInt = 19
Const adUnsignedBigInt = 21
Const adSingle = 4
Const adDouble = 5
Const adCurrency = 6
Const adDecimal = 14
Const adNumeric = 131
Const adBoolean = 11
Const adError = 10
Const adUserDefined = 132
Const adVariant = 12
Const adIDispatch = 9
Const adIUnknown = 13
Const adGUID = 72
Const adDate = 7
Const adDBDate = 133 
Const adDBTime = 134
Const adDBTimeStamp = 135
Const adBSTR = 8
Const adChar = 129
Const adVarChar = 200
Const adLongVarChar = 201
Const adWChar = 130
Const adVarWChar = 202
Const adLongVarWChar = 203
Const adBinary = 128
Const adVarBinary = 204
Const adLongVarBinary = 205
Const adChapter = 136
Const adFileTime = 64
Const adPropVariant = 138
Const adVarNumeric = 139
Const adArray = &H2000
========
Access数据类型转换
每个函数都可以将表达式 （表达式:算术或逻辑运算符、常数、函数和字段名称、控件和属性的任意组合，计算结果为单个值。表达式可执行计算、操作字符或测试数据。）强制转换为特定的数据类型 （数据类型:决定字段可拥有的数据类型的字段特征。数据类型包括 


Boolean、Integer、Long、Currency、Single、Double、Date、String 和 Variant（默认）。）。
语法
CBool(expression)
CByte(expression)
CCur(expression)
CDate(expression)
CDbl(expression)
CDec(expression)
CInt(expression)
CLng(expression)
CSng(expression)
CStr(expression)
CVar(expression)
必选的 expression 参数 （参数:为操作、事件、方法、属性、函数或过程提供信息的值。）是任何字符串表达式 （字符串表达式:任一求值为一列连续字符的表达式。表达式的元素可以是:返回字符串或字符串 Variant (VarType 8) 的函数；字符串字面值、常量、变


量或 Variant。）或数值表达式 （数值表达式:计算结果为数字的任何表达式。表达式可以是变量、常数、函数和运算符的任意组合。）。
返回类型
函数名称决定返回类型，如下所示：
函数


返回类型


EXPRESSION 参数的范围


CBool


Boolean


任何有效的字符串或数值表达式。


CByte


Byte


0 到 255。


CCur


Currency


-922,337,203,685,477.5808 到 922,337,203,685,477.5807。


CDate


Date


任何有效的日期表达式。


CDbl


Double


对于负值，-1.79769313486231E308 到 
-4.94065645841247E-324；对于正值，4.94065645841247E-324 到 1.79769313486232E308。


CDec


Decimal


对于整数（即没有小数的数字），+/-79,228,162,514,264,337,593,543,950,335。对于具有 28 位小数的数字，值域范围是 
+/-7.9228162514264337593543950335。可能的最小非零数字为 0.0000000000000000000000000001。


CInt


Integer


-32,768 到 32,767；小数部分被四舍五入。


CLng


Long


-2,147,483,648 到 2,147,483,647；小数部分被四舍五入。


CSng


Single


对于负值，-3.402823E38 到 -1.401298E-45；对于正值，1.401298E-45 到 3.402823E38。


CStr


String


CStr 的返回值取决于 expression 参数。


CVar


Variant


对于数字，与双精度型的值域范围相同。对于非数字值，与 String 的值域范围相同。


注解
如果传递给该函数的 expression 位于要转换为的目标数据类型的值域范围之外，则将发生错误。
通常，可以在代码中使用数据类型转换函数，以表明某个操作的结果应表示为特定数据类型而非默认的数据类型。例如，使用 CCur 在通常会出现单精度、双精度或整型运算的地方强制使用货币运算。
应该使用数据类型转换函数而不是 Val 来提供数据类型之间国际认可的转换。例如，当使用 CCur 时，不同的小数点、不同的千位分隔符以及各种货币选项都会根据计算机的区域设置正确识别。
当小数部分恰好为 0.5 时，CInt 和 CLng 始终都会将其舍入到最接近的偶数。例如，0.5 舍入到 0，而 1.5 舍入到 2。CInt 和 CLng 与 Fix 和 Int 函数不同，后者会将数字的小数部分截断，而不会对其进行舍入。另外，Fix 和 Int 会始终返回与传入类型相同类型


的值。
可以使用 IsDate 函数确定 date 是否可以转换为日期或时间。CDate 可识别日期文本和时间文本，以及处于可接受的日期范围内的某些数字。将数字转换为日期时，整数部分将被转换为日期。数字的任何小数部分都将被转换为一天中的时间（从午夜 12 点开始计算）


。
CDate 将根据系统的区域设置 （区域设置:对应于给定语言和国家/地区的一组信息。）识别日期格式。如果采用可识别的日期设置之外的其他格式提供日期值，则可能无法确定正确的年、日、月顺序。此外，如果长日期格式中还包含星期字符串，也不能识别此格式。
CVDate 函数也提供了与 Visual Basic 早期版本的兼容性。CVDate 函数的语法与 CDate 函数的语法相同；不过，CVDate 会返回一个 Variant 值（其子类型为 Date）而不是实际的 Date 类型。由于目前存在一个固有的 Date 类型，因此已不再需要 CVDate 了。可以


将表达式转换为 Date，然后将其赋值给 Variant，从而达到相同的效果。此技术与所有其他固有类型到其对应的 Variant 子类型的转换一致。
 注释    CDec 函数不会返回离散数据类型；相反，它会始终返回一个其值已转换为 Decimal 子类型的 Variant。
示例
 注释   以下示例演示了此功能在 Visual Basic for Applications (VBA) 模块中的使用。有关使用 VBA 的详细信息，请在“搜索”旁边的下拉列表中选择“开发人员参考”，然后在搜索框中输入一个或多个词条。
CBool 函数
此示例使用 CBool 函数将表达式转换为 Boolean 值。如果表达式的求值结果是一个非零值，CBool 将返回 True；否则，它将返回 False。
Dim A, B, Check
A = 5: B = 5    ' 初始化变量。
Check = CBool(A = B)    ' Check 包含 True。
 
A = 0    ' 定义变量。
Check = CBool(A)    ' Check 包含 False。
 
            
CByte 函数
此示例使用 CByte 函数将表达式转换为 Byte 值。
Dim MyDouble, MyByte
MyDouble = 125.5678    ' MyDouble 是 Double 数据类型值。
MyByte = CByte(MyDouble)    ' MyByte 包含 126。
 
            
CCur 函数
此示例使用 CCur 函数将表达式转换为 Currency 值。
Dim MyDouble, MyCurr
MyDouble = 543.214588    ' MyDouble 是 Double 数据类型值。
MyCurr = CCur(MyDouble * 2)   
' 将 MyDouble * 2 (1086.429176) 的结果转换为
' Currency 数据类型值 (1086.4292)。
 
            
CDate 函数
此示例使用 CDate 函数将字符串转换为 Date 值。通常，建议不将日期和时间硬编码为字符串（如本示例中所示）。请改用日期文本和时间文本，如 # 2/12/1969# 和 #4:45:23 PM#。
Dim MyDate, MyShortDate, MyTime, MyShortTime
MyDate = "February 12, 1969"
' 转换为 Date 数据类型。
MyShortDate = CDate(MyDate)
 
MyTime = "4:35:47 PM"
' 转换为 Date 数据类型。
MyShortTime = CDate(MyTime)
 
            
CDbl 函数
此示例使用 CDbl 函数将表达式转换为双精度型值。
Dim MyCurr, MyDouble
MyCurr = CCur(234.456784)
' 将结果转换为 Double 数据类型。
MyDouble = CDbl(MyCurr * 8.2 * 0.01)
 
            
CDec 函数
此示例使用 CDec 函数将数值转换为 Decimal 值。
Dim MyDecimal, MyCurr
MyCurr = 10000000.0587    ' MyCurr 是 Currency 数据类型值。
MyDecimal = CDec(MyCurr)     ' MyDecimal 是 Decimal 数据类型值。
 
            
CInt 函数
此示例使用 CInt 函数将值转换为 Integer 值。
Dim MyDouble, MyInt
MyDouble = 2345.5678    ' MyDouble 是 Double 数据类型值。
MyInt = CInt(MyDouble)    ' MyInt 包含 2346。
 
            
CLng 函数
此示例使用 CLng 函数将值转换为 Long 值。
Dim MyVal1, MyVal2, MyLong1, MyLong2
MyVal1 = 25427.45
MyVal2 = 25427.55  ' MyVal1、MyVal2 是 Double 数据类型值。
MyLong1 = CLng(MyVal1)
' MyLong1 包含 25427。
MyLong2 = CLng(MyVal2)
' MyLong2 包含 25428。
 
            
CSng 函数
此示例使用 CSng 函数将值转换为 Single 值。
Dim MyDouble1, MyDouble2, MySingle1, MySingle2
' MyDouble1、MyDouble2 是 Double 数据类型值。
MyDouble1 = 75.3421115: MyDouble2 = 75.3421555
MySingle1 = CSng(MyDouble1)
' MySingle1 包含 75.34211。
MySingle2 = CSng(MyDouble2)
' MySingle2 包含 75.34216。
 
            
CStr 函数
此示例使用 CStr 函数将数值转换为 String 值。
Dim MyDouble, MyString
MyDouble = 437.324    ' MyDouble 是 Double 数据类型值。
MyString = CStr(MyDouble)
' MyString 包含 "437.324"。
 
            
CVar 函数
此示例使用 CVar 函数将表达式转换为 Variant 值。
Dim MyInt, MyVar
MyInt = 4534    ' MyInt 是 Integer 数据类型值。
MyVar = CVar(MyInt & "000")
' MyVar c包含字符串 4534000。
========