VB数据库编程

SQL功能与特性
　　其实，在前面的文章中，已经提及SQL命令的一些基本功能，然而，通过SQL命令，程序设计师或数据库管理员（DBA）可以：
　　（一）建立数据库的表格。（包括设置表格所可以使用之空间）
　　（二）改变数据库系统环境设置。
　　（三）针对某个数据库或表格，授予用户存取权限。
　　（四）对数据库表格建立索引值。
　　（五）修改数据库表格结构。（新建、删除或是修改表格字段）
　　（六）对数据库进行数据的新建。
　　（七）对数据库进行数据的删除。
　　（八）对数据库进行数据的修改。
　　（九）对数据库进行数据的查询。
　　这几项便是通过SQL命令可以完成的事情，看起来是不是比起“查询”两个字所代表的功能要多的多了呢？
　　SQL语法的分类
　　其实SQL命令并不是非常多，可是要把SQL用到出神入化，却也只需要短短几个命令便够，因为SQL命令是针对关系型数据库所建立出来的语法叙述，所以SQL在这类数据库中所发挥的功能非常的强，以下将针对在VB中常用的SQL语法基本命令加以分类介绍。在说明SQL的命令以及使用语法之前，以下将SQL做了的分类，在致上SQL语法所使用到的类型，可以说都已包含在这些类别当中。
　　第一类、属性词（Predicates）
　　在SQL命令中用来指明所要选择的记录的方式。如ALL、TOP与DISTINCT等等。
　　第二类、声明（Declaration）
　　针对SQL Parameter或Parameter Query 的名称与数据类型做声明，如PARAMETERS的声明等等。
　　第三类、条件子句（Clause）
　　在SQL的查询中，利用一些表达式定义出查询的条件，以缩小寻找的范围，如WHERE。
　　第四类、运算符（Operator）与操作数（Operation）
　　在SQL的查询中，与Operation共同组成表达式（Expression），如BETWEEN....AND 运算符与INNER JOIN操作数。　　第五类、函数（Function）
　　一些SQL常见的函数，像是AVG()是求算数平均数的函数。
　　第六类、SQL语句（Statement）
　　SQL的语句，可以说是SQL语法的主体，用来对某一个特定的数据库发出指示，并返回相关的数据，而SQL的语法结构，基本上可以利用下面
　　的式子来表示：命令＋条件子句
　　例如：
　　SELECT*FROM TAB WHERE TAB.NAME='A'
　　其中的“FROM....WHERE”便是一个条件子句，其实SQL的语法并不难，您只需记住这样的一个规则，相信可以很快的了解SQL用法。
　　SQL语法与命令
SELECT 语句
SELECT[predicate]{*|table.*|[table.]field [,[table.]field2[,...]]} [AS alias1 [,alias2[,...]]]
FROM tableexpression [,...][IN externaldatabase]
[WHERE...]
[GROUP BY...]
[HAVING...]
[ORDER BY...]
[WITH OWNERACCESS OPTION]
SELECT 语句包括下面几个部分
predicate
如前面所述，包括了ALL，DISTINCT,DISTINCTROW,与TOP 我们可以利用这样的语句去限制查询后所得的结果。
　　从指定表格中指定所有的字段。
　　table
　　针对被选择出的记录的字段，所指定表格的名称。
　　field1,field2
　　想要读取数据的字段名称，如果包含了一个以上的字段，会依照列出的顺序来读取数据。
　　alias1,alias2
　　用来替代在表格实际字段名称的化名。
　　tableexpression
　　表格名称或包含我们所想要的数据的表格。
　　externaldatabase
　　若使用到不是目前的数据库则将其名字定义在externaldatabase当中。
　 　　ALL,DISTINCT,DISTINCTROW,TOP属性词用法
　　SELECT [ALL|DISTINCT|DISTINCTROW|[TOP n[PERCENT]]] FROM table
　　ALL
　　若是您不指定任何的字段数据，则Microsoft Jet数据库引擎（database engine）将会选择所有的字段，并依据所定的条件查询出需求数据集。
例如下面这两个例子将会具有相同的效果，都会从职员表格中返回所有字段的数据。
　　例如：
　　若是我们要查询出职员表格中的所有记录，可以通过下面的语句来完成。
SELECT ALL* FROM 职员表格; DISTINCT
对某个表格所选择的字段数据，略过重复的情况，也就是说，针对某个字段查询出来的记录结果是唯一的。例如有许多存放在职员表格的职员
　　数据，也许会具有相同的姓名，所以若是我们用SQL语句中的SELECT DISTINCT，则查询出来的结果将会针对不一样的姓名加以筛选。若是您把
　　DISTINCT 加以省略，则这样的查询会显示所有的记录。
　　DISTINCTROW
　　将整条记录重复的记录忽略掉，而不是只有针对某一个字段的数据。
　　table
　　指定查询记录所需要的表格。
　　例如：
　　SELECT DISTINCTROW 公司名称
　　FROM 顾客表格 INNER JOIN 订单表格
　　ON 顾客表格.顾客ID＝订单表格.顾客ID
　　ORDER BY 公司名称;
　　如果您忽略 DISTINCTROW 则会对每个公司产生一行以下的订单数据。此外，若是DISTINCTROW只有用在一个表格当中，则会被省略掉。
　　TOP
　　从第一条或最后一条开始（利用ORDER BY条件子句），返回特定条数的数据。
　　例如：
　　当您想要知道在2000年，班上前25名的学生姓名数据时，您可以输入这样的语句：
　　SELECT TOP 25 学生姓名
　　FORM 学生表格
　　WHERE 毕业年份=1994
　　ORDER BY 毕业成绩平均分数 DESC；
　　如果您没有加上ORDER BY 这行条件的话，您所得到的数据，将会随机的数据。此外，在TOP语句之后，除了可以加上数字以外，还可以利用保留
　　字PERCENT来查询。
　　例如：
　　SELECT TOP 10 PERCENT学生姓名
　　FROM学生表格
　　WHERE毕业年份=1994
　　ORDER BY毕业成绩平均DESC；
　　PARAMETERS（参数）声明的用法
　　对于参数型的查询语法中，对参数的名称以及数据类型作 声明的操作。
　　PARAMETERS name datatype[,name datatype[,...]]
　　name
　　PARAMETERS的名称。您可以把参数名称当作字符串来使用，若是名称中包含了空字符串，可以利用中括号来处理，例如：“VBeden”。
　　datatype
　　输入参数的数据类型。
　　例如：
　　若是您在查询时，需要机动的输入姓名 ，可以利用下列的方式完成：
　　PARAMETERS “输入姓名” Text;
　　SELECT*
　　FROM 职员表格
　　WHERE姓名=“输入姓名：”;
ORDER BY条件语句
　　此条件子句，通常与SELECT语句合并使用目的是将查询的结果，依照指定字段加以排序。
　　SELECT fieldlist
　　FROM table
　　WHERE selectcriteria
　　ORDER BY field[ASC|DESC][,field2[ASC|DESC][,...]]
　　fieldlist
　　欲查询的字段名称。其中可以与ALL，DISTINCT，DISINCTROW，或TOP一起来使用。
　　table
　　欲查询的表格名称。
　　selectcriteria
　　查询的标准设置。
　　field1
　　指定要依照那个字段作为排序的依据，若是你没有加上ORDER BY查询出的数据集将不会作排序的操作。
　　ASC
　　递增顺序类别。(默认值)
　　DESC
　　递减顺序类别。
　　例如：
　　或是我们要将输出数据依据出生的先后次序排列，可以利用下面的命令。
　　SELECT 姓名，生日
　　FROM 职员表格
　　ORDER BY 生日
　　SELECT LastName,FirstName
　　FROM Employees
　　ORDER BY LastName ASC;
　　IN 条件子句
　　指定要速胜哪一个外部数据库的表格。(必须是Microsoft Jet数据库引擎所可以连接的数据库，如dBase,Paradox等等)
SELECT|INSERT]INTO destination IN
{path|["path" "type"]|[""[type;DATABASE=path]]}
FROM tableexpression IN
{path|["path" "type"]|[""[type;DATABASE=path]]}
destination
　　欲插入数据的外部表格名称。
　　tableexpression
　　表格名称或是被读取数据的表格名称。这个参数可以是一个单一的表格名称，或是一段已经被存储的SQL查询等。
　　path
　　包含该表格的完整路径名称。
　　type
　　数据库的类型名称， 通常是当数据库部属于Jet database时才会使用。(例如：dBASE III,dBASE IV,Paradox 3.x,Paradox 4.x,或 Btrieve)
　　例如：下面这两段的意义相同
PartA....FROM Table
IN ""[dBASE IV;DATABASE=C:/DBASE/DATA/SALES;];

PartB....FROM Table
IN "C:/DBASE/DATA/SALES" "dBASE IV;"
　　例如：Microsoft Jet database
SELECT 顾客编号
FROM 顾客表格
IN CUSTOMER.MDB
WHERE 顾客编号 Like "A*";
其中CUSTOMER.MDBO 为Jet database 的数据库名称，其中包含了顾客表格。
例如：dBASE III or IV
SELECT 顾客编号
FROM 顾客表格
IN "C:/DBASE/DATA/SALES" "dBASE IV;"
WHERE 顾客编号 Like "A*";
所以当我们使用不同于ACCESS 的数据库时，必须指明该数据库的类型名称。
HAVING 条件子句
指定一特定的分组记录，并满足HAVING 所指定的条件或状态，但条件是针对分组的条件设置。
SELECT fieldlist
FROM table
WHERE selectcriteria
GROUP BY groupfieldlist
HAVING groupcriteria
fieldlist
显示被查询的字段名称。(可与ALL，DISTINCT，DISTINCTROW，或TOP相结合)
table
欲查询数据的表格名称。
selectcriteria
选取标准。
groupfieldlist
分组记录的字段名称，到多10个字段。而这些字段的顺序决定最高到最低的分组阶层。
groupcriteria
决定什么样的分组记录要被显示。
HAVING跟WHERE 的用法相当类似，不同之处在于HAVING必须用于GROUP之后的分组数据上。
例如：
SELECT 分类编,Sum(库存数量)
FROM 产品表格
GROUP BY 分类编号
HAVING Sum(库存数量)>100 AND 产品名称 LIKE "*纸"；
　　GROUP BY 条件子句
　　依据指定的字段，将具有相同数值的记录合并成一条。
SELECT fieldlist
FROM table
WHERE criteria
GROUP BY groupfieldlist
fieldlist
欲读取的字段名称。(可与ALL，DISTINCT，DISTINCTROW，或TOP合并使用)
table
被查询的表格名称。
groupfieldlist
分组记录的字段名称，到多10个字段，而这些字段的顺序决定最高到最低的分组层次。
例如：
SELECT 姓名,Count(姓名)AS 职员姓名
FROM 职员表格
WHERE 部门名称='业务部'
GROUP BY 姓名
　　FROM 条件子句
　　指定表格名称或是查询，其中包含列在SELECT语句的字段数据。
SELECT fieldlist
FROM tableexpression[IN externaldatabase]
fieldlist
表格中的字段名称。(可与ALL,DISTINCT,DISTINCTROW,或TOP相结合)
tableexpression
表格名称，或多个表格的算式。
externaldatabase
若该表格参考到外部的数据库时，将其完整的路径名称记下。
例如：
从职员表格下，查询出所有姓名字段的数据(只有姓名字段被查询，其他则不显示)。
SELECT 姓名 FROM 职员表格；
WHERE 条件子句
　　指定查询的条件与限制。
SELECT fieldlist
FROM tableexpression
WHERE criteria
fieldlist
字段名称。(可与ALL,DISTINCT,DISTINCTROW,或TOP相结合)
tableexpression
表格名称，或多个表格的算式。
criteria
查询的结果，必须依照这一限制标准。
例如：
要查询出职员表格中，所有姓氏是李的数据，可以用下面的语句。
SELECT 姓名
FROM 职员表格
WHERE 姓氏='李'；
BETWEEN...AND 运算符
　　决定某一人数值是否介于特定的范围之内，此运算符只可以用在SQL的语句中。
expr[Not]BETWEEN value1 AND value2
expr
指定要加以计算的字段与表达式的组合。
value1,value2
所指明的数值范围。
例如：
若是要从职员表格查询出所有年龄介于25-30岁的员工，可以利用下面的程序来做。
SELECT 姓名,年龄 BETWEEN 25 AND 30
FROM 职员表格；
　　LIKE 操作数
　　用来将一字符串与另一特定字符串样式(pattern)比较，并将符合该字符串样式的记录过滤出来。
expression LIKE "pattern"
expression
使用在WHERE条件子句，SQL表达式。
pattern
用以比较的字符串样式。
例如：
若是你要查询出所有以“李”为首的姓氏，可以利用下面的式子。
Like "李*"
LIKE操作数的多种范例：
1、多个字符：
(1)"a*a"
可筛选："aa","aBa","aBBBa"，不能筛选："aBC"
(2)"*ab*"
可筛选："abc","AABB","Xab"，不能筛选："aZb","bac"
2、特殊字符：
"a“*”a"
可筛选："a*a"，不能筛选："aaa"
3、单一字符：
"a?a"
可筛选："aaa","a3a","aBa"，不能筛选："aBBBa"
4、单一数字：
"a#a"
可筛选："a0a","a1a","a2a"，不能筛选："aaa","a10a"
5、字符范围：
"“a-z”"
可筛选："f","p","j"，不能筛选："2","&"
6、指定字符以外部范围：
"“!a-z”"
7、指定非数字：
"“!0-9”"
可筛选："A","a","&","~"，不能筛选："0","1","9"
8、组合式结构：
"a“!b-m”#"
可筛选："An9","az0","a99"，不能筛选："abc","aj0"
　　SQL数字函数
　　1、AVG：算数平均数
　　AVG(expr)
　　expr
　　字段名称或表达式。
　　例如：
　　若要计算职员身高超过165厘米的职员平均身高，可以利用下面的SQL语句来完成。
　　SELECT Avg(身高)
　　AS 平均身高
　　FROM 职员表格 WHERE 身高>165；
　　2、COUNT：计算记录条数
　　COUNT(expr)
　　expr
　　字段名称或表达式。
　　例如：
　　若是要统计出业务部门的职员人数，并查询出职员的姓名，可以利用下面的程序。
　　SELECT Count(姓名) AS 职员姓名
　　FROM 职员表格
　　WHERE 部门名称='业务部'；
　　3、FIRST与LAST：返回某字段的第一条数据与最后一条数据。
　　FIRST(expr)
　　LAST(expr)
　　expr
　　字段名称或表达式。
　　例如：
　　若是要找出货品数量字段的第一条数据与货品价格字段的最后一条数据时，可以利用下面的查询方式。
　　SELECT FIRST(货品数量)，LAST(货品价格)
　　FROM 订单表格
　　4、MAX，与MIN：返回某字段的最大值与最小值。
　　用法同FIRST与LAST。
　　5、SUM：返回某特定字段或是运算的总和数值。
　　SUM(expr)
　　expr
　　字段名称或表达式。
　　例如：
　　要计算出货品总价，可使用下面的程序。
　　SELECT
　　Sum(单位价格*货品数量)
　　AS 货品总价 FROM 订单表格
　　多层SQL查询
　　顾名思义，多层的SQL查询的便在于：“在一个SQL语句中可以包含另一个SQL查询语句，形成内部嵌套的查询类型。”
comparison[ANY|ALL|SOME](sqlstatement)
expression[NOT]IN (sqlstatement)
[NOT]EXISTS(sqlstatement)
comparison
将表达式与内层查询的结果比较的操作。
expression
对内层查询的结果作搜索的表达式。
sqlstatement
为SELECT语句构成的SQL查询，必须用()将该语句括起来。
例如：
　　我们先从订单表格当中，查询出所有的单位，再将产品表格中的单位与的一一对比，查询出所有高于订单表格的单位价格的记录。
　　SELECT * FROM 产品表格
　　WHERE 单位价格>ANY (SELECT 单位价格 FROM 订单表格 WHERE 折扣>=.25)；
SQL与数据库的维护
　　表格的建立
　　将SQL中的基本语法作了一番介绍以后，但大多是偏向于数据库数据的查询与过滤，但实际上，我们通过SQL命令所可以做的事还有很多，接下来要介绍的便是如何利用SQL的语法命令来建立一个数据库中的表格。
　　　CREATE TABLE语句
　　我们可以利用这个命令，来建立一个全新的表格，但前提则是：数据库必须已经存在。CREATE TABLE table(field1 type[(size)][index1][,field2 type[(size)][index2][,...]][,nultifieldindex[,...]])
table
欲建立的新的表格名称。
field1,field2
在新表格中的新的字段名称，到少要一个字段以上。
type
字段的数据类型。
size
字段的大小。
index1,index2
利用CONSTRAINT条件子句定义一个单一字段的索引名称。
multifieldindex
利用CONSTRAINT条件子句定义一个多重字段的索引名称。
　　例如：
　　建立一个拥有职员姓名与部门字段的表格。
CREATE TABLE 职员表格 (姓名TEST，部门TEST，职员编号 INTEGER CONSTRAINT职员字段索引PRIMARY KEY)
在这一个范例中，我们建立了一个表格名称为“职员表格”的表格，并且定义了该表格的主键值，以限制数据不能重复输入。
　　表格索引的建立
　　　CREATE INDEX语句
　　这个命令主要是对一个已存在的表格建立索引，其用法如下：
CREATE[UNIQUE]INDEX index ON table(field[ASC|DESC][,field[ASC|DESC],...])
[WITH {PRIMARY|DISALLOWNULL|IGNORENULL}]
index
　　欲被建立的索引名称。
　　table
　　欲建立索引的表格名称。
　　field
　　欲被建立的索引的字段名称。并可通过DESC保留字，来决定索引的顺序。
　　例如：
在职员表格中建立一个索引。
CREATE INDEX 新索引名称
ON 职员表格(姓名部门)；
　
表格的字段更新
CONSTRAINT条件子句
CONSTRAINT 的功能是类似索引(INDEX)的，虽然CONSTRAINT 也可以建立表格之间的关联性。
单一字段索引：
CONSTRAINT name{PRIMARY KEY|UNIQUE|REFERENCES foreigntable[(foreignfield1,foreignfield2)]}
多字段索引：
CONSTRAINT name
{PRIMARY KEY(primary1[,primary2[,...]])
|UNIQUE(unique1[,unique2[,...]])
|FOREIGN KEY (ref1[,ref2[,...]])
|REFERENCES foreigntable[(foreignfield1[,foreignfield2[,...]])]}
name
要被建立的CONSTRAINT名称。
primary1,primary2
被用来设计成主键值的字段名称(可一个以上)。
unique1,unique2
被用来设计成唯一键值的字段名称(可一个以上)。
foreign key
字段名称，或是参考到别的表格中字段的字段名称。
foreigntable
如前所述，被参考到的表格。
foreignfield1,foreignfield2
在参考到的表格当中，被ref1,ref2字段所指定的字段。如果被参考的字段是参考表格中的主键值，你也可以省略这个条件子句。
例如：
当我们要建立一个新的职员数据表格，表格包含姓名、部门名称与生日三个字段，且由这三个字段建立一个唯一的索引时，可以使用下面这段SQL的语句。
CREATE TABLE 职员数据表格
(姓名 TEST，部门名称 TEST，生日 DATETIME，CONSTRAINT 职员数据表格限制 UNIQUE(姓名，部门名称，生日))；
以上是SQL中，与数据库表格建立相关的命令，你可以利用这些命令，通过SQL的语句，将数据库表格完整的建立出来，接下来的章节，将针对数据库建立之后的维护与增删所要使用的SQL语句作一介绍。
表的删除
　　　DELETE语句
　　我们可以利用DELETE语句，将表格中的记录删除。(注意：记录被删除后，无法再复原，所以条件设置要正确)
DELETE[table.*]
FROM tableexpression
WHERE criteria
table
欲删除记录的表格名称，也可以用*来取代。
tableexpression
一个或一个以上表格的名称。此一参数可以为单一的表格名称或是从INNER JOIN，LEFT JOIN，或RIGHTJOIN 等运算所得到的结果。
criteria
决定表格中记录要被删除的标准。
　　例如：
　　若是我们要将职员表格中姓名姓名叫做'李名'的记录删除，我们可以利用下面的SQL语句来完成。
　　DELETE * FROM 职员表格
　　WHERE 姓名='李名';
　 　　数据库表格相关的操作命令
　　SQL除了可以作为查询与数据库表格的建立的工具外，对于数据库与表格的新建、删修、与维护，与具有相当不错的功能，若是读者使用SQL命令得宜，对于整个效率的提高有着很大的帮助，所以对于SQL语句所带来的优势，常常会遇到一个情况，就是：“当我们对多个表格作复杂与多步骤的处理时，或许SQL只要一个语句就可以完成所有的需求与目标”，乍看一下，或许觉得有些玄妙，但是接下来的章节，会让你了解其中的妙处。
　　SELECT...INTO语句
　　我们可以通过这个命令，利用既存表格查询，来建立一个新表格的查询语句。
SELECT field1[,field2[,...]]INTO newtable[IN externaldatabase]
FROM source
field1,field2
欲拷贝到新表格的字段名称。
newtable
欲建立之新表格的名称，不可是已经存在的表格。
externaldatabase
若是该表格在另外的外部数据库时，该数据库的名称。
source
记录数据拷贝的来源表格名称，可以是单一的表格或是一段SQL查询之语句。
例如：
你可以通过下面的SQL语句，来建立一个新的“训练名册”表格。
SELECT 职员表格.姓名，职员表格.部门
INTO 训练名册 FROM 职员表格
WHERE 职称='新进人员';
　　INNER JOIN操作数
　　当某一个共同的字段数据相等时，将两个表格的记录加以组合。
SELECT fields
FROM table1 INNER JOIN table2
ON table1.field1 compopr table2.field2
table1,table2
欲进行记录组合的表格名称。
field1,field2
欲组合的字段名称。(必须具有相同的数据类型)
compopr
比较关系运算符如下：“=”，“<”，“>”，“<=”，“<>”等。
例如：
若是你要把分类表格与产品表格作组合，可参考下面的SQL语句。
SELECT 分类名称，产品名称
FROM 分类表格 INNER JOIN 产品表格
ON 分类表格.分类编号=产品表格.分类编号；
　　UNION操作数
　　我们可以通过UNION操作数来建立连接的查询条件，UNION操作数可以将两个以上的表格或是查询的结果组合起来。
[TABLE]query1 UNION [ALL][TABLE]query2 [UNION [ALL]
[TABLE]queryn [...]]
query1,query2,queryn
为一个SELECT的语句，或是一个已存在的查询名称，或是一个已存在的表格名称。
　　例如：
　　你可以利用下面的SQL语句，将订单数量超过1000的顾客表格记录，与新客户表格作UNION的操作。
TABLE 新客户表格 UNION ALL
SELECT *
FROM 顾客表格
WHERE 订单数量>1000；
　
　　ALTER语句
　　在一个表格被建立之后，利用ALTER语句，我们可以去修改表格的字段设计。
ALTER TABLE table
{ADD {COLUMN field type[(size)][CONSTRAINT index]
|CONSTRAINT multifieldindex}
|DROP {COLUMN field|CONSTRAINT indexname}}
table
欲被ALTER的表格名称。
field
要被增加或删除的字段名称。
type
字段数据类型。
size
字段大小。
index
对此字段的索引。
例如：
在职员表格中新建一个“薪水”的字段。
ALTER TABLE 职员表格
ADD COLUMN 薪水 CURRENCY；
例如：
在职员表格中删除一个“薪水”的字段。
ALTER TABLE 职员表格 DROP COLUMN 薪水；
　　DROP语句
　　针对所指定的表格或字段加以删除，或是把索引删除。
DROP {TABLE table|INDEX index ON table}
table
欲删除之表格或索引依附之表格名称。
index
欲从表格中删除的索引名称。
例如：
从职员表格中，删除编号索引。
DROP INDEX MyIndex ON Employees;
例如：
从数据库中，删除整个表格。
DROP TABLE 职员表格；
　　INSERT INTO语句
　　新建一条数据到表格当中。
　　多条记录新建查询：
INSERT INTO target [IN externaldatabase][(field1[,field2[,...]])]
SELECT [source.]field1[,field2[,...]
FROM tableexpression
单条记录新建查询：
INSERT INTO target[(field1[,field2[,...]])]
VALUES(value1[,value2[,...])
target
新建记录的表格名称。
externaldatabase
外部数据库的路径，搭配IN条件子句使用。
source
若是记录从其它表格中拷贝时，指明该表格的名称。
field1,field2
欲增加数据的字段名称。
tableexpression
表格名称或描述记录是从哪一个表格中插入的表格名称。配合INNER JOIN，LEFT JOIN，或 RIGHT JOIN 运算符一起使用。
value1,value2
欲插入表格中的数值。
例如：
在客户数据表格中，从新的表格插入数据。
INSERT INTO 客户数据表格
SELECT 新客户数据表格.*
FROM 新客户数据表格；
例如：
在职员表格中插入数据。
INSERT INTO 职员表格(姓名，生日，职称)
VALUES("王荣","57/12/11","经理");
例如：
从训练人员表格中，将职员雇用时间超过30天者，加入到正式职员表格中。
INSERT INTO 职员表格
SELECT 训练人员表格.*
FROM 训练人员表格
WHERE 雇用天数>30；
　 UPDATE语句
　　建立一个UPDATE的查询，通过条件的限制来修改特定的数据。
UPDATE table
SET newvalue
WHERE criteria;
table
欲修改数据的表格名称。
newvalue
欲修改成的数值(将该项数值插入到特定的字段当中)。
criteria
查询条件，用来决定要修改哪些记录。
例如：
若是要把订单表格中的订单数量修改成1.1倍，运费为1.03倍，可利用下列之SQL语句来完成。
UPDATE 订单表格
SET 订单数量=订单数量 * 1.1，运费=运费 * 1.03倍
WHERE 运达地点='美国'；
当我们完成修改后，你可以利用 SELECT 语句，配合同样的 WHERE 条件子句，来察看修改的数据是否正确。
事实上，要利用SQL完成某些看似复杂的操作，并不需要繁琐的SQL命令组合，或是许许多多的步骤才能完成，其实最重要的还是要活用SQL命令，才会在最精简的SQL语句里获得最高的效率。
很多软件都有保存用户设置的功能，以便用户下一次启动时其程序界面及相关设置都是自己最中意和习惯的，这使得软件具有人性化，用户用起来感到亲切。用VB编写的软件可以通过多种途径实现此功能，这里介绍用数据库方法来保存用户的个性化设置。
　　假设我们已经完成了一个用TextBox做编辑栏的字处理程序，该程序提供了让用户对编辑栏背景色和字体的设置菜单，现在我们想让用户所作的设置能保存下来。怎么办呢？
　　第一步：给窗体添加一个Data控件。
　　第二步：用Access建立一个名为Pad的数据库，在库中建立一个表Myset，给表添加四个字段：backcolor（数据），forecolor(文本），fontname(文本）,fontsize（文本）。注意：请将库文件存入程序所在目录。
　　如果你的机器没安装有Access，可通过VB建库。
　　第三步：编写如下代码：
在Form_Load事件添加：
'定位库文件路径
Data1.DatabaseName = App.Path + "/rtSet.mdb"
Data1.RecordSource = "MySet"
'设置背景色
Private Sub mnuBackColorSetting_Click()
CommonDialog1.Flags = cdlCCFullOpen
CommonDialog1.ShowColor
On Error GoTo err
Data1.Recordset.Edit
err:
If err.Number = 3021 Then
Data1.Recordset.AddNew
End If
Data1.Recordset.Fields("backcolor") = CommonDialog1.Color
Data1.Recordset.Update
Text1.BackColor = CommonDialog1.Color
End Sub
'设置字体
Private Sub mnuFontSetting_Click()
CommonDialog1.Flags = cdlCFEffects Or cdlCFBoth
CommonDialog1.ShowFont
On Error GoTo FontErr
Data1.Recordset.Edit
FontErr:
If err.Number = 3021 Then
Data1.Recordset.AddNew
End If
Data1.Recordset.Fields("fontsize") = CommonDialog1.FontSize
Data1.Recordset.Fields("forecolor") = CommonDialog1.Color
Data1.Recordset.Fields("fontname") = CommonDialog1.FontName
Data1.Recordset.Update
Text1.ForeColor = CommonDialog1.Color
Text1.Font.Name = CommonDialog1.FontName
Text1.Font.Size = CommonDialog1.FontSize
'窗体的Activate事件
Private Sub Form_Activate()
On Error Resume Next
Text1.BackColor = Data1.Recordset.Fields("backcolor")
Text1.Font.Size = Data1.Recordset.Fields("fontsize")
Text1.ForeColor = Data1.Recordset.Fields("forecolor")
Text1.Font.Name = Data1.Recordset.Fields("fontname")
End Sub
在当今提出的多种动态网页(Dhtml)解决方案中都强调了与数据库的连接,其实网页接挂后台数据库也是当前的热门应用,在电子商务等领域有着广泛的应用.MicroSoft为了适应其发展推出了新的ADO(Active Data Object)模型,通过ODBC的连接可以对当前流行的桌面数据库系统提供方便,快洁的连接.在这里,我想通过ADO在ASP技术中的应用来总结一下ADO对象以及其各自的属性和方法.
一、ADO对象模型:
下面简单介绍一下ADO的对象模型
ADO有三大对象,即Connection对象,Command对象,RecordSet对象.
Connection(对象)
─Errors(集合)─Error(对象)
Command(对象)
─Parameters(集合)─Parameter(对象)
RecordSet(对象)
─Fields(集合)─Field(对象)
　　其中Connection对象,Command对象,RecordSet对象和Field对象又分别具有Properities集合而产生Properity对象.我们在asp编程中已经对这几个对象有了足够的了解.下面是以上三大对象的相互关系.
Command.ActiveConnection-$#@62;Connection
RecordSet.ActiveConnection-$#@62;Connection
Connection.Execute-$#@62;RecordSet
Command.Execute-$#@62;RecordSet
RecordSet.Source-$#@62;Command
好了,有了以上的关系表后,你应该能理解有一些等价的表达形式了.
形式1
set rs = Server.CreateObject("ADODB.RecordSet")
strConn = "driver={SQL Server};server=srv;"& _
"uid=sa;pwd=;database=pubs"
strSQL = "Select * From Employee ;"
rs.open strSQL,strConn,,,adCmdText
形式2
set conn = Server.CreateObject("ADODB.Connection")
strConn ="driver={SQL Server};server=srv;"& _
"uid=sa;pwd=;database=pubs"
conn.open strConn
set rs = Server.CreateObject("ADODB.RecordSet")
rs.ActiveConnection=conn(注意此句)
strSQL = "Select * From Employee ;"
rs.open strSQL,,,,adCmdText
"上面这句也可以写成rs.open strSQL,conn,,,adCmdText
形式3
set conn = Server.CrreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.RecordSet")
strConn ="driver={SQL Server};server=srv;"& _
"uid=sa;pwd=;database=pubs"
conn.open strConn
strSQL = "Select * From Employee ;"
rs=conn.Execu strSQL(注意次句)
形式4
set rs = Server.CreateObject("ADODB.RecordSet")
strConn ="driver={SQL Server};server=srv;"& _
"uid=sa;pwd=;database=pubs"
strSQL = "Select * From Employee ;"
rs.open strSQL,strConn,,,adCmdText
注：上面的例子中均假设SQL Server的name=srv，使用SQL Server Authentication采用了默认的帐号sa，该帐号没有设定密码。
　　上面这几种形式都能够产生一个相同的RecordSet对象的实例rs,但方法各异,在后面的讨论中我们将看到它们不同的优越性.
二、Connection对象:
　　在ADO的模型中,Connection对象是最基本的对象,他主要是提供与数据库的连接。其他的两个对象都是通过它与数据库的连接来完成操作的。它的属性、方法如下所示。
Connection对象的主要属性
　　1、 CursorLocation,它的取值有两个，一个是adUseClient,一个是adUseServer（默认），从其英语本身的含义就可以看出，前者是使用客户端的游标，而后者是使用服务器端的游标。二着的差别在于adUseClient游标可以提供供应商所没有提供的额外的属性，因而灵活性更大。需要注意的是Connection对象与RecordSet对象均有此属性，由Connection对象产生的RecordSet对象会自动的继承这个属性。另外要让此属性对Connection和RecordSet对象的实例起作用的话，必须在打开它们之前先定义。

下面看一个例子
Set conn=Server.CreateObject("ADODB.Connection")
conn.CursorLocation=adUseClient
strConn ="driver={SQL Server};server=srv;"& _
"uid=sa;pwd=;database=pubs"
conn.open strConn
set rs= Server.CreateObject("ADODB.RecordSet")
rs.open "emloyee",conn,,,adCmdTable
采用次种方式则conn与rs的游标均为adUseClient了。
　　2、 ConnectionString，在打开一个Connection实例之前设定数据库的连接信息。在上面的例子中我们使用了一条语句conn.open strConn，其中的strConn就是ConnectionString，因此我们可以重写上面的语句如下：
Conn.ConnectionString=strConn
Conn.open
　　3、 ConnectionTimeOut，设置连接超时。
　　4、 CommandTimeOut，设置命令执行超时。
Connection的主要方法
　　1、 open，打开一个Connection的对象实例，常用的写法为conn.open ConnectionString，如果在打开之前已经定义了ConnectionString属性的话，就可以直接的打开。
　　2、 Execute，产生一个RecordSet实例，常用的写法为
Rs=conn.Excute CommandText,RecordsAffected,Option
其中的CommandText可以为以下的几种形式，主要由Option的值来决定1） SQL语句，此时Option的值为adCmdText，表示将执行一段SQL语句。2）数据库的一个表名，此时Option的值为adCmdTable，表示将对该表进行操作。
　　3、一个StoredProcedure名字，此时Option取值为adCmdStoredProc，它表示将要执行一个SQL上定义的存储过程。这是一个非常灵活而强大的方法，它可以对用户隐藏数据库的具体信息，而只需用户提供适当的参数就可以了，还能返还需要的参数值。在后面介绍Command对象时再做详细的介绍。值得注意的是，有时Excute后并不需要返回一个RecordSet对象，例如在表中删除记录。看下面的例子：
set conn= Server.CreateObject("ADODB.Connection")
conn.ConnectionString="driver={SQL Server};server=srv;"& _
"uid=sa;pwd=;database=pubs"
conn.open
conn.Execute "Delect From Employee Where Job_ID=1;",,adCmdText
　　该例子删除Employee表中Job_ID为1的记录，并不需要再返回一个RecordSet的实例，但如果将最后一句变为rs= conn.Execute "Delect From Employee Where Job_ID=1;",,adCmdText那么我们就可以用此rs来指向表中的记录条了。返回的rs和后面RecordSet对象中用Source属性产生的rs是相同的。
Connection对象的集合
1、 Errors集合，对应产生Error对象。我们将在后面做单独的讨论。
2、 Properties集合，对应产生Property对象，下面给出一段代码，它包含了Property对象的主要方法和属性。
$#@60;%
"this program is testing the ADO"s Property object
Const adCmdTable = &H0002
set conn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.RecordSet")
conn.ConnectionString="Driver={Microsoft Access Driver (*.mdb)};DBQ="& _
Server.Mappath("/source_asp")&"/property/employee.mdb;"
conn.open
rs.ActiveConnection=conn
rs.open "employee",,,adCmdTable
dim i,j
for i=0 to rs.fields.count-1
Response.Write rs.fields(i).name&"$#@60;br$#@62;"
next
for j=0 to rs.properties.count-1
Response.write rs.properties(j).name&"$#@60;br$#@62;"
next
rs.close
conn.close
%$#@62;
三、Error对象：
　　前面讲到了Connection对象是用于与各类的数据库进行挂接的，但在此过程中将会出现一些不可预测的错误，因而有了Error这个对象。首先要清楚一个概念，Error对象是在连接数据库时产生的，而并非那些运行时的实时错误。也就是我们常用 On Error Resume Next来忽略到的错误。这些错误将在Err对象中，我们可以用一个统一的模板来集中处理，我会在后面给出一个实例。下面还是先来看Error对象的属性和方法：
　　1、 Count属性：用来统计Errors集合的数目，它的特点与前面讲到的Property对象的Count对象相同。
　　2、 Clear方法：写法为Error.Clear，是用来清除Errors集合中的原有对象的，在统计新的Error对象时应该先使用此语句。
　　3、 Item方法：用来指定特定的一个错误，语法为Error.Item(number)，其中number为一数字。由于Item为默认的方法，所以Error(number)的写法与前面的写法是等价的。下面是一段程序。用来列举Error的所有对象。
$#@60;%
"this program is testing the ADO"s Error object
Dim i
Set conn=Server.CreateObject("ADODB.Connection")
conn.ConnectionString="Driver={Microsoft Access Driver (*.mdb)};DBQ=" _
&Server.Mappath("/source_asp")&"/property/employee.mdb;"
conn.open
if conn.errors.count$#@62;0 then
response.write "connection to database cause problem!"&"$#@60;br$#@62;"
for i =0 to conn.errors.count-1
response.write conn.errors.item(i)&"$#@60;br$#@62;"
next
else
response.write "connection to database successfully!"
end if
conn.close
%$#@62;
　　对于Err对象的通用模板处理程序我将在讨论RecordSet对象时给出。
　　下面我们将讨论ADO的第二个大的对象━Command对象，我的一个做网站的朋友告诉我他在平时使用ASP挂接数据库时很少使用Command对象，原因是Command对象不好使用，而喜欢用RecordSet对象。是的，可以这么说Command对象是整个ADO模型中最难掌握的一个，但也是功能和性能最好的一个。特别是它的StoredProcedue，它将处理的过程大部分都使用了在SQL Server上已经编译和优化了的存储过程，用过SQL Server的朋友都会明白的。下面就让我们来看Command对象。
四、Command对象：
　　从英语字面的意思就可以看出，Command是用来做命令执行和参数传递的。而Command对象的批量参数传递，StoredProcude执行等等灵活而强大的功能也是它受到青睐的原因。Command对象主要是向SQL语句、StoredProcude传递参数，依靠SQL Server的强大功能来完成数据库的操作；而RecordSet对象可以说是微软从新封装了数据对象，并提供了一系列的方法和属性来简化数据库的编程。我们看下面的一个例子，它用了两种不同的方法实现了向数据库中增加一新的记录条。从中可以清楚的看到Command对象与RecordSet对象的不同点。
方法1（Command）
const adCmdText=&H0001
const adInteger=3
const adVarChar=200
const adParamInput = &H0001
set conn=Server.CreateObject("ADODB.Connection")
set comm=Server.Createobject("ADODB.Command")
conn.open "Driver={ Microsoft Access Driver};DBQ="& _
Server.Mappath("/source_asp")&"/property/employee.mdb;"
comm.ActiveConnection=conn
comm.CommandType=adCmdText
comm.CommandText="insert into employee (Job_ID,Fri_Name,Last_Name)"& _
&"values(?,?,?)"
set param=comm.CreateParameter("ID",adInteger,adParamInput,3,4)
comm.Parameters.Append param
set param=comm.CreateParameter("FN",adVarChar,adParamInput,255,"bill")
comm.Parameters.Append param
set param=comm.CreateParameter("LN",adVarChar,adParamInput,255,"Gates")
comm.Parameters.Append param
comm.Execute
conn.close
方法2（RecordSet）
const adCmdTable=&H0002
set conn=Server.CreateObject("ADODB.Connection")
set rs=Server.Createobject("ADODB.RecordSet")
conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="& _
Server.Mappath("/source_asp")&"/property/employee.mdb;"
rs.ActiveConnection=conn
rs.open "employee",,,adCmdTable
rs.addnew
rs("Job_ID")=4
rs("Fri_Name")="bill"
rs("Last_Name")="Gates"
rs.update
rs.close
conn.close
　　从上面的例子就可以看出来了,这两个对象在处理一些问题上所用的不同的方法.RecordSet对象似乎更加好理解一些,因为它加入了一些在ANSI SQL中没有的元素,它其实是用 SQL在数据库上产生一个记录集，然后用一个游标来指向这个记录集，超作该游标来遍历这个记录集。但在性能上来讲的话Command的性能也相对要优越些.其可重应用性也非常的好。而且如果你是批量的加入记录的话,你也能体会到第一种方案的好处了，因为Command对象就是将SQL产生的记录集作为整体来处理。下面详细介绍Command对象的属性、方法和集合。

　　 1、 CreateParameter方法：用来产生一个Parameter对象，常用的写法为Set param=comm.CreateParameter(name,type,direction,size,value),其中name为参数的引用名，在后面引用参数的值时会有用；type为指定参数的类型，例如整数为adInteger；direction指定参数是输入还是输出，相应的值为adParamInput和adParamOutput；size指定参数的最大长度或最大的值；value指定参数的值。可以将各个选项分开来写，下面的两种写法是等价的：
Set param= comm.CreateParameter(name,type,direction,size,value)
和
set param= comm.CreateParameter(name,type,direction,size)
param.value=value
　　下面的方法其灵活性更大。大家请注意，在使用了CreateParameter方法后只是建立了新的 parameter对象，还需使用Parameter对象的append方法将该参数传递给Command对象。
　　2、 Execute方法：在指定了CommandText后，并将参数传递出去后，用Execute方法来完成执行。
　　3、 ActiveConnection属性：用来指定与Connection对象的连接，这里的一个技巧就是不同的Command对象指向同一个Connection连接。
　　4、 CommandText属性：其值可以是一条SQL命令句，可以是一个表名，也可以是一个StoredProcedure名。
　　5、 CommandType属性：它的值由CommandText相应值的给出，分别为adCmdText,adCmdTable,adCmdStoredProc。与前面在讲Connection对象的Execute方法中的相应的选项的含义相同。
　　6、 CommandTimeOut属性：设定命令执行的超时的值。
　　7、 Properties集合：我们不多讲了，与Connection对象的Property集合相差不多。
　　8、 Parameters集合：也就是参数对象的集合了，他有主要Item方法、Append方法，和Count属性，用法与Property对象及Error对象的相应属性和方法类似，下面给出一个示例：
const adCmdText=&H0001
const adInteger=3
const adVarChar=200
Const adParamInput = &H0001
set conn=Server.CreateObject("ADODB.Connection")
set comm=Server.Createobject("ADODB.Command")
conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="& _
Server.Mappath("/source_asp")&"/property/employee.mdb;"
comm.ActiveConnection=conn
comm.CommandType=adCmdText
comm.CommandText="Insert Into employee (Job_ID,Fri_Name,Last_Name)"& _
"Values(?,?,?);"
set param=comm.CreateParameter("ID",adInteger,adParamInput,3)
param.value=14
comm.Parameters.Append param
set param=comm.CreateParameter("FN",adVarChar,adParamInput,255,"bill")
comm.Parameters.Append param
set param=comm.CreateParameter("LN",adVarChar,adParamInput,255,"Gates")
comm.Parameters.Append param
comm.Execute
conn.close
"The folowing statments show the value of parametrs
dim i
for i=0 to comm.parameters.count-1
response.write comm.parameters.item(i)&"$#@60;br$#@62;"
next
　　当然，我们在引用参数时也可以不用数字，而用前面在CreateParameter时定义的名字，例如：FN、ID等等。另外我们可以将上面的程序的显示部分改为
dim key
for each key in comm.parameters
response.write key&"$#@60;br$#@62;"
next
　　下面我想重点讲一讲StoredProcedure，它的强大足以让我们对它关注，当然这其中会涉及到一些SQLServer的知识
五、StoredProcedure
　　在讨论StoredProcedure之前，我还要对Command对象的Execute方法的作用进行一下阐述，一般来说使用Command的Execute方法有三个目的。1、用于进行一些简单的处理，例如删除一条记录：
comm.CommandType=AdCmdText
comm.CommandText="Delect From employee Where Job_ID=1"
comm.execute
　　这样的工作不需要返回什么东西。2、用于进行一些复杂的处理，例如进行一个Transact的设计，这类一般都是和StoredProcedure一同工作的，而且有输出参数和输入的参数，这也是我们本章的讨论主题。3、用于返回一个RecordSet对象，用于其它的处理，例如：
comm.CommandType=AdCmdText
comm.CommandText="Delect From employee Where Job_ID=1"
set rs=comm.execute
dim i
while not rs.EOF
for i=0 to rs.fileds.count-1
response.write rs.fileds.item(i).value&","
next
response.write "$#@60;br$#@62;"
rs.MoveNext
wend
　　好了，还是让我们从新回到StoredProcedure的讨论上来。StoredProcedure是什么呢？它是一个预先存储的数据库执行动作集，在SQL的管理结构中，对于一个数据库下有几个部分，一个是数据表的集合、一个就是StoredProcedure的集合。将两者结合可以完成很多强大的功能。StoredProcedure其实是对传统的SQL语句的一种扩展，主要是在参数的输入与输出上。下面我大致的介绍一下StoredProcedure的语法结构和与Command对象的参数的传递问题。
StoredProcedure的标准写法：(在SQL Server上用Query Analyzer执行)
Create Procedure Procedure_Name
Define Parameter
As
SQL Structure
上　　面的语法结构中，Procedure_Name为存储结构的的名字，也是你将在Command中引用的名字。然后是定义输出和输入的参数。最后是一个SQL结构化语句。下面是一个StoredProcedure的例子，它无需输入的参数，也没有输出。
Create Procedure Del_User
As
Delect From Employee Where Job_ID=1
如果我们要删除指定的 Job_ID该怎么办呢？，这时我们需要给这个StoredProcedure输入的参数。
Create Procedure Del_User1
@intID int
As
Delect From Employee Where Job_Id = @intID
好了，这里的@intJob就是一个输入的参数，它可以从外部接受输入的值，下面是给它输入的asp程序：
set conn=Server.CreateObject("ADODB.Connection")
set comm=Server.CreateObject("ADODB.Command")
conn.ConnectionString="Driver={SQL Server};Server=ser;"& _
"uid=sa;pass=;database=employee "
conn.open
comm.ActiveConnection=conn
comm.CommandType=adCmdStoredProc
comm.CommandType="Del_User1"
"这里的名字就是前面在SQL Server中定义过的StoredProcedure的名字。
"下面就是参数的输入
param=comm.CreateParameter("ID",adInt,adParamInput,4)
"这里的adParamInput定义是最重要的。
Param.Value=1 "这里的值可以输入你想要的值，也可以用Request来获得
Comm.Parameters.Append param
Comm.Execute
　　这样我们就可以向StoredProcedure传递参数了。有时在一个StoredProcedure中，还存在有输出的参数，下面是一个例子它返回一个Job_ID确定的Fri_Name的值
Create Procedure Get_fName
@intID int
@fName varChar Output "说明为输出的参数
As
Select @fName = Fri_Name Where Job_ID = @intID
它相应的asp程序也要改写为下面的形式
set conn=Server.CreateObject("ADODB.Connection")
set comm=Server.CreateObject("ADODB.Command")
conn.ConnectionString="Driver={SQL Server};Server=ser;"&_
"uid=sa;psss=;database=employee"
conn.open
comm.ActiveConnection=conn
comm.CommandType=adCmdStoredProc
comm.CommandType="Get_fName"
"这里的名字就是前面定义过的StoredProcedure的名字。
"下面就是参数的输入
param=comm.CreateParameter("ID",adInt,adParamInput,4)
"这里的adParamInput定义是最重要的。
Param.Value=2 "这里的值可以输入你想要的值，也可以用Request来获得
Comm.Parameters.Append param
param=comm.CreateParameter("fName",adVarchar,adParamOutput,255,"")
"这里的adParamOutput定义是最重要的。说明它是一个输出的参数，默认的值 为一空的字符串
comm.Parameters.Append param
Comm.Execute
Response.Write "Job_Id为"¶m(0)&"的员工的首姓为"¶m(1)
　　我给大家简单介绍了一下StoredProcedure的基本概念，但StoredProcedure比较复杂，如果你想进一步的深入，必须对SQL Server的结构体系有全面的了解。另外，我们并没有在上面的里子中体会到StoredProcedure的优势，很多人会认为那还不如用普通的方法，其实在构建很多企业级的应用时才能够体会到用StoredProcedure的强大和必要性，这里我举一个简单的例子。一个网络银行的数据库（onLoan）中有两个相关的表Loan表和LoanHistory表，loan表用于记录贷款的信息，而每一笔贷款的记录在Loan表中登记后都必须在LoanHistory表中登记，因为定期的结算都是使用LoanHistory表的。你也许会说那很好办啊。用两个Insert Into语句分别向两个表中插入记录不就行了吗！但要注意的是在这个应用中，若记录在任何的一个表中插入失败都必须将整个的过程给取消（也就是一个事务的取消），那么若仅简单的使用两个Insert Into语句的话，若是在第一个语句执行完毕后，在第二个语句尚未完成时就发生了故障，这时第一个语句产生的效果是没法消除的了。如果我们将这整个的过程定义为一个事务，事务没有完整的结束就Roll Back所有的影响不就达到了要求吗？这在SQL Server中可以用Begin Transaction和Commit Transaction来完成的，例子如下：
Create StoredProcedure insert_loan
As
Begin transaction
Inset into Loan (Loan_ID,Loan_Data,Loan_amount)
Values(?,?,?)
Inset into Loan (Loan_ID,Loan_Data,Loan_amount,Loan_Describle)
Values(?,?,?,?)
Commit Transaction
　　好了，这看上去好象没有什么不同吧，但需要注意的是我们现在将两个Insert into语句作为了一个的事务来处理，只有两个Insert into语句都完成的话才是一个整体的事务结束，那么它才会去作用这个数据库中的两个表，若在事务中发生了故障的话，则所有的影响将取消（Roll Back）。好了，这样的处理是只有在SQL Server中用StoredProcedure才能完成的。ANSI的SQL当然就不行了。这里讲的大家可能不太明白，你可以参看SQL Server的手册来作更多的了解。
　　下面我们来看最后的一个对象─RecordSet对象，也是属性和方法最多的一个了。我们使用的频率也是最高的一个，在这之后，我还想谈谈ADO与ORACLE的一些问题。
六、RecordSet对象
　　写到这一篇的时候，我不禁想到了先贤的两句话，一句是孟子在曹刿论战中所说的：一鼓作气，再而衰，三而竭。这篇ADO总结报告的前五部分都是一鼓作气之作，不知这后面的再而衰部分是否能保持连续了。另外的一句是王安石在游褒禅山记中所说的：世之奇伟、瑰怪、非常之观，常在于险远，而人之所罕至焉，故非有志者不能至也。我们学习编程又何尝不是这样了，若非有志，能及于险远是不能真正掌握的。
　　好了，讲了这么多的题外话，还是让我们回到正题上来，我想，由于大家对RecordSet都有足够的认识，所以我就不象前面的几章中那样对它的每一个属性和方法都做完整的介绍，我想通过几个有代表性的编程实例来给大家讲一讲。
1、 方法
AddNew, CancelBatch, CancelUpdate, Clone, Close, Delete, GetRows, Move, MoveFirst, MoveLast, MoveNext, MovePrevious, NextRecordset, Open, Requery, Resync, Supports, Update, UpdateBatch
2、 属性
AbsolutePage,AbsolutePosition,ActiveConnection,BOF,Bookmark, CacheSize, CursorLocation, CursorType, EditMode, EOF, Filter, LockType, MarshalOptions, MaxRecords, PageCount, PageSize, RecordCount, Source, State, Status
3、 集合
Fields,Properties
实例一：分页显示及导航：
　　为什么我要再提分页的这个问题呢？因为这是一个最基本的问题，虽然有很多关于分页的文章，但我觉得他们的方法偏于复杂。其实RecordSet的AbsolutePage就可以轻松的实现分页，当你指定了PageSize属性后，对AbsolutePage指定值就可以翻转到指定的页面。但是如果你想使用AbsolutePage的话，你必须在打开RecordSet对象之前将它的CursorLocation值设为adUseClient，这个属性是继承Connection对象的一个相同属性的。你也可以在打开Connection对象之前来设定它。下面是源代码，为了方便，我将导航栏独立成了一个子程序方便大家使用。
$#@60;%
sub navigator(PageNo,Target)
Response.Write "$#@60;table border=0$#@62;"
Response.Write "$#@60;tr$#@62;"
Response.Write "$#@60;td$#@62;"
if PageNo$#@62;1 then
Response.write "$#@60;a href="&chr(34)&Target&"?Page=1"&chr(34)&"$#@62;┃第一页$#@60;/a$#@62;"
else
Response.Write "┃第一页"
end if
Response.Write "$#@60;/td$#@62;"
Response.Write "$#@60;td$#@62;"
if PageNo$#@60;rs.PageCount then
Response.write"$#@60;a href="&chr(34)&Target&"?Page="&PageNo+1&chr(34)&"$#@62;┃下一页$#@60;/a$#@62;"
else
Response.Write "┃下一页"
end if
Response.Write "$#@60;/td$#@62;"
Response.Write "$#@60;td$#@62;"
if PageNo$#@62;1 then
Response.write "$#@60;a href="&chr(34)&Target&"?Page="&PageNo-1&chr(34)&"$#@62;┃前一页$#@60;/a$#@62;"
else
Response.Write "┃前一页"
end if
Response.Write "$#@60;/td$#@62;"
Response.Write "$#@60;td$#@62;"
if PageNo$#@60;rs.PageCount then
Response.write "$#@60;a href="&chr(34)&Target&"?Page="&rs.PageCount&chr(34)&"$#@62;┃最后一页$#@60;/a$#@62;"
else
Response.Write "┃最后一页"
end if
Response.Write "$#@60;/td$#@62;"
Response.Write "$#@60;td$#@62;"
Response.Write "┃页次:"&PageNo&"/"&rs.PageCount&"页┃"&rs.PageSize&"条记录/页┃"
Response.Write "$#@60;/td$#@62;"
Response.Write "$#@60;td valign="middle"$#@62;"
Response.Write "$#@60;form action="&chr(34)&Target&chr(34)&" method="&chr(34)&"POST"&chr(34)&"$#@62;"
Response.Write "$#@60;input type="text"size=3 maxlength=4 name="Page"$#@62;"
Response.Write " $#@60;input type="submit"value="转到"$#@62;"
Response.Write "$#@60;/form$#@62;"
Response.Write "$#@60;/td$#@62;"
Response.Write "$#@60;/tr$#@62;"
Response.Write "$#@60;/table$#@62;"
end sub
%$#@62;
$#@60;%
const adCmdText=&H0001
const adVarChar=200
const adInteger=3
const adParamInput=&H0001
const adCmdTable=&H0002
const adUseClient=3
const adDate=7
const adLongVarChar=201
set conn=Server.CreateObject("ADODB.Connection")
conn.ConnectionString="Driver={Microsoft Access Driver (*.mdb)};DBQ="& _
Server.Mappath("/source_asp")&"/process/process.mdb;"
conn.Open
%$#@62;
$#@60;%
const MaxPageSize=5
%$#@62;
$#@60;html$#@62;
$#@60;head$#@62;
$#@60;title$#@62; See Book $#@60;/title$#@62;
$#@60;/head$#@62;
$#@60;body$#@62;
$#@60;%
dim i,j,PageNo
set rs=Server.CreateObject("ADODB.RecordSet")
rs.ActiveConnection=conn
rs.CursorLocation=adUseClient
rs.Open "Select * From books",,,adCmdText
if rs.BOF then
Response.Write "欢迎使用图书,资料管理程序!"
else
rs.PageSize=MaxPageSize
if isempty(Request.QueryString("Page")) then
PageNo=1
elseif cInt(Request.QueryString("Page"))$#@60;1 then
PageNo=1
elseif cInt(Request.QueryString("Page"))$#@62;rs.PageCount then
PageNo=rs.PageCount
else
PageNo=cInt(Request.QueryString("Page"))
end if
if Request.ServerVariables("Request_Method")="POST" and not Isempty(Request.Form("Page")) then
PageNo=cInt(Request.Form("Page"))
end if
rs.AbsolutePage=PageNo
Response.Write "$#@60;table border="0" width="100%"$#@62;"
Response.Write "$#@60;tr$#@62;$#@60;td colspan="&rs.fields.count&"$#@62;"
Target="books.asp"
call navigator(PageNo,Target) "调用导航栏
Response.Write "$#@60;/td$#@62;$#@60;/tr$#@62;"
Response.Write "$#@60;tr$#@62;"
for i=0 to rs.fields.count-1
Response.Write "$#@60;td$#@62;"&rs.fields.item(i).name&"$#@60;/td$#@62;"
next
Response.Write "$#@60;/tr$#@62;"
j=0
while (not rs.EOF) and j$#@60;rs.PageSize
Response.Write "$#@60;tr$#@62;"
for i=0 to rs.fields.count-1
if i=1 then
Response.Write "$#@60;td$#@62;"&"$#@60;a href="&chr(34)&"status.asp?BookName="& _
rs.fields.item(i).value&chr(34)&"$#@62;"&rs.fields.item(i).value&"$#@60;/a$#@62;$#@60;/td$#@62;"
"这里这样写是为了级联式查询而做的。
else
Response.Write "$#@60;td$#@62;"&rs.fields.item(i).value&"$#@60;/td$#@62;"
end if
next
Response.Write "$#@60;/tr$#@62;"
rs.MoveNext
j=j+1
wend
Response.Write "$#@60;/table$#@62;"
end if
%$#@62;
一．表格控件总览：
　　在VB开发环境中，表格控件在界面开发元素中占有重要的地位。它不仅有外观整洁、表达形式规范的优点，而且更重要的是它较高的信息表现率（就是相对于其他控件来说能够表达更多的信息），随着信息时代的到来，它的应用将更加的广泛。
　　那么在VB平台下，如何操作这一功能强大的控件元素呢？事实上我们知道，VB平台下面的表格控件是相当丰富的，总结下来提供了4种类型：Microsoft Data Bound grid Control、Microsoft Datagrid Control、Microsoft Flexgrid Control、Microsoft Hierarchial Flexgrid Control.
这四种表格各有其特点，下面我们一一讨论。
　　1． Microsoft Data Bound grid Control
　　此控件主要用于数据绑定（可以不绑定，但是因为不提供对单个cell的控制支持，所以实际上这样做是不经济的）。具体说来，就是数据源比较固定的情况下可以使用这种控件。
　　具体使用方法是设定此控件的datasource属性，就可以不用编写任何代码就可以显示该数据源所指向的记录数据。比如可以将datasource设置为一个data控件，而data控件又指向数据库"成绩"的 一个"语文"表，那么当程序运行时，它就自动显示此"语文"表的数据。
　　从上面的分析看得出来，这个控件虽然操作方便，但是它也有局限性，就是不能对显示的数据进行灵活的控制操作，比如有些数据允许用户修改，有些数据却不允许用户修改，而此控件却只能提供全部数据源的原子操作：即要么全部允许修改，要么就全部不允许。还有另外此控件也不提供对单个单元格（cell）进行操作，所以提供不了更为个性化的界面风格。
　　2． Microsoft Datagrid Control
　　此控件跟前面介绍的Data Bound grid Control控件很相似，也是主要进行绑定操作，而缺点和Data Bound grid Control完全一样。但是它跟Data Bound grid Control不一样的是其数据源的驱动引擎只能是OLEDB形式的，不能是DAO，比如就可以使用ADO数据控件，不能使用DATA控件。而Data Bound grid Control却刚好和它相反，这一点在开发中一定要注意。
　　3． Microsoft Flexgrid Control与Microsoft Hierarchial Flexgrid Control.
　　这里重点介绍这两种控件，因为在实际开发中，这两种控件应用的场合更多一些，它不仅能够反映数据，而且也能把数据的修改信息反映到数据库中去，所以弥补了上述两种控件的不足。
　　如果数据不需要修改，那么可以进行绑定操作，其方法跟前面介绍的完全一样，就是通过设置DataSource属性来完成数据的显示工作。但是实际开发中，需要对整个表格控件更为灵活的显示控制。
　　在给出例程之前，有必要对这一控件进行比较详尽的认识：这种控件允许将文本或者图象放置于每个单元格之中，控件的Row与Col属性允许用户在代码中指定当前行和列，当然也可通过操作鼠标和键盘来改变这两个属性，而text属性指明当前单元格的文本。如果单元格的文本太长而不能完全显示出来的话，可以通过将WordWrap属性设置为true来达到显示的目的。下面将比较重要的属性小结如下：
　　DataSource---------用来指定需要绑定的数据源，比如data控件。
　　Cellpicture----------用来设定当前单元格的图象，便于显示该图象。此属性不能在设计时使用。
　　Col，Row---------------设定当前列和当前行，注意它们均是从0开始的，如果同时设定它们，可以指定当前的单元格。设计时也不能使用。
　　Cols，Rows---------------设置表格控件总的列数和行数。
　　Hwnd---------------表格句柄，可以结合Windows API对表格控件进行更高级的控制。
　　Text---------------指定当前的单元格的文本内容。
　　TextMatrix(i,j)-------此属性比较重要，它用来指定第I行和第j列所确定的单元格的文本内容。它等价于下面的代码：
MSHFlexGrid1.Rows =i
MSHFlexGrid1.Cols =j
MSHFlexGrid1.Text =指定的字符串
　　WordWrap-------为ture时可以在当前单元格换行显示，否则如果要显示的字符的长度超过列宽，那么就不能显示完全。二．例程分析：

　　以上只是介绍了表格控件经常使用的属性，还有很多其他重要的属性这里限于篇幅就不一样讲解了，如果读者有兴趣的话可以参考MSDN上相关的内容的介绍，下面我这里提供一个例程来巩固前面的知识内容。
例程是使用Flexgrid 控件（由于Data Bound grid和Datagrid比较简单，所以这里就不再介绍了），如果大家手头上用的是MSHFlexgrid控件的话，只需要把名称换为MSFlexGrid1即可。该例程主要实现后台数据库的显示工作，其界面如下：
 

　　主要代码如下：
Dim lastrow% '最后一次鼠标点击的行
Dim lastcol% '最后一次鼠标点击的列
Private Sub Command1_Click()
MsgBox Data1.Database.Recordsets.Count
End Sub
Private Sub Form_Load()
'初始化数据
click = False
lastrow = 1
lastcol = 1
'初始化data控件，进行绑定显示的初始化
Data1.DatabaseName = App.Path & "/db1.mdb"
Data1.RecordSource = "成绩表"
'进行非绑定显示
Data1.Refresh
Data1.Recordset.MoveFirst
MSFlexGrid2.Rows = Data1.Database.Recordsets.Count + 1 '设置总行数
MSFlexGrid2.Cols = Data1.Recordset.Fields.Count + 1 '设置总列数
MSFlexGrid2.GridColor = vbBlue '网格颜色
MSFlexGrid2.ForeColor = vbRed '字体颜色
MSFlexGrid2.GridLines = 1 '设置网格线的属性
MSFlexGrid2.GridLineWidth = 2 '设置网格线的粗细程序，默认为1
MSFlexGrid2.ToolTipText = "非绑定显示" '设置工具提示文本
MSFlexGrid2.BackColorSel = vbGreen '单元格被选中的颜色
Dim i%
Dim j%
'设置列头文本
For i = 1 To MSFlexGrid2.Cols - 1
MSFlexGrid2.TextMatrix(0, i) = Data1.Recordset.Fields(i - 1).Name
Next i
'设置数据
For i = 1 To MSFlexGrid2.Rows - 1 '控制行
For j = 1 To MSFlexGrid2.Cols - 1 '控制列
MSFlexGrid2.TextMatrix(i, j) = Data1.Recordset.Fields(j - 1).Value
Next j
Data1.Recordset.MoveNext
Next i
'设置当前单元格的图象信息
MSFlexGrid2.Col = 0
MSFlexGrid2.Row = 2
Set MSFlexGrid2.CellPicture = LoadPicture(App.Path & "/cell.bmp")
End Sub
'实现鼠标点击一个单元格的背景颜色的改变功能
Private Sub MSFlexGrid2_Click()
MSFlexGrid2.Row = lastrow
MSFlexGrid2.Col = lastcol
MSFlexGrid2.CellBackColor = vbWhite
MSFlexGrid2.Row = MSFlexGrid2.MouseRow
MSFlexGrid2.Col = MSFlexGrid2.MouseCol
MSFlexGrid2.CellBackColor = vbCyan
lastrow = MSFlexGrid2.Row
lastcol = MSFlexGrid2.Col
End Sub
　　要在不绑定数据的情况下实现编辑修改的功能，如果对控件不进行改进是无法达到目的的。这里实现的思路是首先判断光标（或者说焦点）在哪个单元格上，然后在在单元格的范围内动态创建一个文本框(不过在vb平台下，可以考虑先在设计时放置一个不可见的文本框，然后通过move方法将其放置到当前单元格并且显示它即可达到相同的目的)，其大小正好可以把此单元格给覆盖掉，然后就可以把原来的文本信息附给该文本框，这样就可以直接在文本框内进行编辑修改操作，从而实现了单元格的编辑修改功能，依据这个思想来可以在单元格里面创建下拉列表框，复选框等控件。其实现的核心代码如下：
'实现编辑功能
Private Sub MSFlexGrid3_DblClick()
Text1.Visible = False
'如果初次双击，那么就执行如下代码
If firstclick = True Then
lastclickrow = MSFlexGrid3.Row
lastclickcol = MSFlexGrid3.Col
Text1.Text = MSFlexGrid3.TextMatrix(lastclickrow, lastclickcol)
End If
'将文本框放置到当前单元格处
Dim LeftOfText% '文本框的left属性
Dim TopOfText% '文本框的top属性
Dim selrow% '当前行
Dim selcol% '当前列
selrow = MSFlexGrid3.Row
selcol = MSFlexGrid3.Col
LeftOfText = Frame3.Left + MSFlexGrid3.Left + MSFlexGrid3.ColPos(selcol) + 45
TopOfText = Frame3.Top + MSFlexGrid3.Top + MSFlexGrid3.RowPos(selrow) + 45
Text1.Move LeftOfText, TopOfText, 930, 200
Text1.Visible = True
'如果不是初次双击，那么就执行如下代码
If firstclick = False Then
MSFlexGrid3.TextMatrix(lastclickrow, lastclickcol) = Text1.Text
lastclickrow = MSFlexGrid3.Row
lastclickcol = MSFlexGrid3.Col
End If
Text1.Text = MSFlexGrid3.TextMatrix(selrow, selcol)
'已经不是第一次进行双击操作
firstclick = False
End Sub
三．小结：
　　数据表格控件在实际运用用还有很多技巧，只有不断的在实际编程中积累经验才能达到灵活运用的功效。大家都知道，在VB平台下制作报表大致有两种选择：使用VB自带的Data Report控件和借助第三方软件。其中第三方软件比较著名的就是MS Excel和Seagate公司的CrystalReporter，以下就这三个方案进行详细的讨论。
　　1. Data Report控件
　　1．1 Data Report控件使用方法
　　由于是VB自带的控件，所以使用相对比较方便。使用方法是：首先在"工程"菜单下面选择"添加Data report"选项，这样Data Report控件就选入到了应用程序。
　　使用Data report的情况大多数采用数据绑定的模式，也就是将此控件与数据库的数据表绑定起来以便可以不用编写代码就轻松完成报表的设计。要使用数据绑定就必须要指定数据源，这里的数据源不是数据控件而是数据环境（Data Environment）,选择"工程"菜单下面选择"添加Data Environment"选项就可以将数据环境添加进应用程序中。数据环境有两个重要的属性：Connection 和Command属性，前者是连接指定的数据库，后者连接指定的数据表，一旦这两者都设置成功之后，就可以把数据环境作为数据源了。只需要把Data report的DataSource属性设置为前面的数据环境对象以及把DataMember设置为数据环境对象的Command对象即可。
　　1．2 Data Report控件界面元素
　　完成了Data report控件的数据绑定工作之后就可以直接控制报表的制作与显示了。这里首先熟悉一下Data report控件的显示界面：
　　Data report控件一共有5个区组成，分别是报表头、页面头、细节区、页面注脚和报表注脚。报表头和报表注脚是用分别用于整个报表的最上部和最下部，它们将出现于整个报表的每一页，可以放置一些报表名称，时间之类的固定文本；页面头和页面注脚只能出现在当前页的最上部和最下部，也就是说它只能出现在当前页中，不出现在其他页面中，可以放置随页面变化的一些量比如页码等；而细节区就是用来进行实际显示的区域，它是我们最为关心的区域，通过在此区域内放置显示控件可以控制报表的实际显示输出。这里介绍一下放置文本框控件的使用方法，其实在绑定情况下只需要设置其DataMember和Datafield即可，前者用来指定数据表，可以设置为前面数据环境对象的Command对象，后者是指定数据段，即绑定的数据库的指定字段。这样不需要编写任何代码就可以实现报表的显示工作。
　　1．3 Data Report控件的打印功能
　　对于报表的打印可以直接使用Data report自带的打印功能，即可以实现简易的报表打印。不过为了实现比较复杂的打印功能，也可以通过程序控制的方法来进行。这里只是给出一个实现思路：首先需要制作一个按钮控件来显示"打印设置"的窗口，通过这个窗口用户可以设置打印的相关的参数，然后在实现打印的子模块中使用VB内嵌的printer对象来实现真实的打印，该对象能够对打印的当前位置进行定位，而且对打印的字体等参数进行控制，所以结合"打印设置"窗口可以实现类似于word里面的打印功能。
2．MS Excel
　　说起报表设计应用程序，无意微软的Excel是一支独秀，MS Excel就是用来进行表格和报表设计用的应用程序，它具有优秀的方格控制和宏代码定制功能。所以如果在设计自己的应用程序的时候能够结合到Excel的话，那么你的应用程序就应该是相当的完善了，因为无论是编辑还是打印功能，Excel都提供了很完美的解决方案，所以你的应用程序所要做的事情就是实现程序和Excel通讯即可。
　　事实上，可以使用VBscript可以将VB与Excel两者连接起来。以下就简要介绍在VB下开发基于Excel的编程思路。
　　在VB中处理Excel的对象大致分为五个：Application对象、WorkBook对象、WorkSheet对象、Range对象以及Cell对象。它们的功能分别如下：
　　Application---------用来指代整个应用程序。
　　WorkBook----------表示工作簿对象
　　WorkSheet---------表示工作表对象，注意，一个工作簿可以包含多个工作表，它们就类似于多文档中的框架窗口和里面的单个视图一样。
　　Range-------------表示工作表中的某个区域范围对象，特殊情况下也可以只代表一个Cell。
　　Cell---------------表示特定工作表的一个单元格对象。这个对象的使用频率是最高的。
　　清楚了以上的五个对象的应用范围，那么使用它们就很简单了，不过在使用这些对象之前，首先需要对它们进行声明。方法是在"工程"的"引用"对话框之下选择"Microsoft Excel9.0 Object Library"，这样就将整个Excel对象库就引入到程序中来了。
　　下面举一个示例，其实现的功能是打开一个工作簿。
Function OpenBook(strFilePath As String) As Boolean
' This procedure checks to see if the workbook
' specified in the strFilePath argument is open.
' If it is open, the workbook is activated. If it is
' not open, the procedure opens it.
Dim wkbCurrent As Excel.Workbook
Dim strBookName As String
On Error GoTo OpenBook_Err
' Determine the name portion of the strFilePath argument.
strBookName = NameFromPath(strFilePath)
If Len(strBookName) = 0 Then Exit Function
If Workbooks.Count > 0 Then
For Each wkbCurrent In Workbooks
If UCase$(wkbCurrent.Name) = UCase$(strBookName) Then
wkbCurrent.Activate
Exit Function
End If
Next wkbCurrent
End If
Workbooks.Open strBookName
OpenBook = True
OpenBook_End:
Exit Function
OpenBook_Err:
OpenBook = False
Resume OpenBook_End
End Function
3．Crystal Reporter（水晶报表）
　　做为一个优秀的报表软件，水晶报表是实际应用中最多的方案。在这一节里主要介绍一下水晶报表的定制和显示，打印功能的实现。
　　首先要区分Crystal Reports插件程序和Crystal Reports控件。前者主要用来创建报表模板，后者主要是用来在程序中显示和打印报表，这两者的分工决定了它们程序中的功能的不同。
　　其中Crystal Reports的插件程序可以从Seagate公司的官方网站上下载最新的测试版本。
　　3．1 Crystal Reports插件程序的使用
　　选择"外接程序"菜单的"报表设计器"选项，则VB将执行Crystal Reports Pro插件应用程序。在Crystal Reports Pro里选择"新建报表"图标，可以选择8标准模板和一个自定义的模板来开始报表工程。
　　整个水晶报表的使用跟第一节的Data Report的使用很类似。首先需要给报表选择数据源，（即数据库），然后就可以在报表中添加、删除、修改字段以及为记录分组，可以利用水晶报表创建很多具有自定义风格的报表。由于本身Crystal Reports插件程序就是一个功能强大的报表设计软件，这里就不能一一的讲解了，有兴趣可以参考程序自带的帮助文档。
　　3．2 Crystal Reports控件的背景知识
　　Crystal Reports Pro还提供一个报表生成模块，该模块可以连接到并访问VB应用程序，VB程序员不需花费大量时间写自己的代码就可再应用程序中添加复杂的报表生成及输出功能。
　　Crystal Reports引擎是一个动态链接库，它可以使应用程序访问并具有同Crystal Reports 一样强大的报表输出功能。应用程序是通过Crystal Reports ActiveX控件来访问引擎。再编译时应用程序同报表引擎链接，以给应用程序添加了生成报表的功能。
　　当程序使用Crystal Reports ActiveX控件时，可以通过再设计时设置Crystal对象属性或者再运行时改变对象属性，来建立应用程序和Crystal Reports之间的连接。通过Crystal控件的属性可以指定：
　　 响应应用程序某个事件的输出报表的名字。
　　 报表的目标位置（预览窗口、磁盘文件或者电子邮件等）。
　　 想要打印的份数（如果报表提交给打印机的话）。
　　 输出文件的信息。
　　 预览窗口的大小及位置信息（如果报表在预览窗口中显示时）。
　　 选择公式信息（如果在报表中限制记录的话）。
　　 排序信息。
　　 其他相关的属性。
　　这里要注意一点的是，Crystal控件必须在由Crystal Reports Pro创建的报表中使用，而试图在VB应用程序里引用之前，必须首先创建报表。
　　3．3 Crystal Reports控件的使用
　　了解了Crystal Reports控件的功能，那么就可以使用它了。首先通过"工程"的"部件"选项里面选择"Crystal Reports Control"，那么VB的工具箱里面就添加了Crystal Reports控件了。
　　注意，对于Crystal Reports控件的最重要的属性就是ReportFileName了，把它设置为前面已经在Crystal Reports Pro里定制好的报表模板的文件路径。那么只需要调用控件的PrintReport方法就可以将报表显示出来了。
　　相对于Data Report控件来说，Crystal Reports控件的功能更加的完善，报表预览，打印，编辑修改等功能都很完善，所以在实际的报表应用设计方案中，使用Crystal Reports的相对较多。然而Crystal Reports控件也有它的局限性，即它不能在运行时创建自定义的窗口。可以使用控件的数据绑定属性来创建数据绑定报表，但是报表本身的格式都是由Crystal Reports控件内部进行处理的。一般说来，Crystal Reports控件不提供在程序中对报表字段级的访问。这一缺陷可以通过设计出足够多的报表来弥补。
　　4.其他方法
　　除了通过上述的三种方法来实现报表设计以外，当然也可以直接利用Win32 API来进行直接进行设计，这种方式是最为灵活也是最为繁琐的方式，因为所有的编辑、修改、打印等功能都是由程序控制，所以一般情况下不会使用这样的方式来处理，这里就不介绍了。
　　5．小结
　　报表设计是程序员经常要遇到的问题，本文主要介绍目前主流的报表设计方案，由于所涉及到的知识点比较多，限于篇幅，在这里只是作了简要的介绍，希望可以起到抛砖引玉的作用。