<img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" />

我自己顶!!

看看哦!!

在这个程序中，你还可以加上姓名查询、籍贯查询等，其设计过程都是通过构造SQL语句来实现的。另外，还需要注意的一点是既然是查询窗口，当然允许修改，将DBGrid控件的AllowUpdate属性值设为False。OK！运行程序吧，啊！万事大吉。看一看应用程序，再看一看你编写的代码，不可思议，这么短的代码居然完成了这么强大的功能。事实就是这样，数据库编程中最重要的是对概念的清楚，与之相比，技巧好象摆在了次要位置。让我们闭上眼睛，想一想我们需要了解那些东西吧：DATA控件，RECORDSET对象、控件的捆绑、简单的SQL查询语句。熟悉了这些东西，你就可以进行数据库编程了，如果你对开发数据库系统比较感兴趣，可以再加强一下在数据库设计和SQL语句方面的知识。但数据库编程真的总是这样简单吗？如果已经熟悉了上面的内容，建议你看一下下面这一节。

　　六、拨云见雾

　　还记得我们在前面说过Visual Basic提供了两种与 Jet数据库引擎接口的方法吗？Data控件和数据访问对象。我们已经见识了DATA控件，确实给人意想不到的方便，但Data控件只给出有限的访问现存数据库的功能。而 DAO模型则可以全面控制数据库的完整编程接口。这两种方法事实上并不是互斥的，实际上，它们常同时使用。

　　DAO模型是设计关系数据库系统结构的对象类集合。它们提供了完成管理这样一个系统所需的全部操作属性和方法，包括创建数据库，定义表、字段和索引，建立表间的关系，定位和查询数据库等工具。

　　Visual Basic中的数据库编程就是创建DAO（数据访问对象）。这些对象对应于被访问物理数据库的不同部分，如 Database、TableDef、Field和 Index对象，用这些对象的属性和方法来实现对数据库的操作，能够在 Visual Basic窗体中使用绑定和非绑定控件来显示操作结果并接收用户输入。这样就简化了代码，它赋予程序员很大的灵活性。因为可以使用同样的对象、属性和方法来处理各种不同的数据库格式。同时，如果从一种数据库格式变到另一种格式（例如，将本地的 Microsoft Access数据库转换为网络上的 SQL Server数据库），只需变动少量的代码就可以适应这种改变。甚至可以创建这样的应用程序，在单一的查询或报表中连接来自多个不同数据库的表。

　　我们先介绍DAO对象，从上图中我们可以看到，DAO对象中最关键的是DBEngine对象，所有的数据库操作都要通过它来完成。

　　DBEngine对象
　　DBEngine对象相当于jet数据库引擎，不需要创建该对象。
　　CreateWorkspace方法:创建一个工作区对象例如：
　　Dim ws As Workspace
　　Set ws = DbEngine.CreateWorkspace (SpName,UserID,password",SpType)其中
　　SpName工作区名称String
　　UserID用户名 String
　　Password口令String
　　SpType工作区类型 = dbUsejet jet工作区
　　= dbUseODBCODBC工作区
　　Workspace对象

　　Workspace对象为用户定义一个会话，通过与之关联的用户名和口令建立一个安全级别。当不需要安全级别时可使用缺省的工作区DBEngine.Workspace。方法：

　　OpenDatebase打开一个数据库
　　Close关闭当前工作区
　　BeginTrans启动一个事务
　　CommitTrans提交当前事务

　　RollBack回滚当前事务例如我们需要打开一个数据库。我们调用Workspace的OpenDatabase方法打开一个数据库。例如：

　　Dim db As DataBase
　　Set db=OpenDatabase(dbname,exc,readonly,source)其中：
　　dbname数据库文件名（对于单表数据库为路径）
　　exc = TRUE表示打开数据库后，该数据库不能被其它应用程序访问。
　　FALSE表示共享地打开数据库
　　Readonly=TRUE表示打开数据库后，只能对数据库进行读操作
　　=FALSE表示打开数据库后，可对数据库进行读写操作
　　source数据源名，用于指定打开地数据库类型。创建记录集

　　我们使用DataBase对象的OpenRecordSet方法打开一个记录集。例如：

　　Dim rs As RecordSet
　　Set rs=db.OpenRecordSet(source，type)其中：
　　source指定记录集的内容，它可以是一个表名，查询名或SQL语句
　　type创建记录集的类型
　　=dbOpenTable表型记录集
　　=dbOpenDynaset动态型记录集
　　=dbOpenSnapshot快照型记录集访问ODBC数据库

　　Visual Basic通过 DAO和 Jet引擎可以识别三类数据库：Visual Basic数据库，外部数据库，ODBC数据库。在开发大中型数据库系统中一般都采用ODBC数据库，如 Microsoft SQL Server等。DAO（数据访问对象）的 ODBCDirect模式允许直接访问 ODBC数据。另外，远程数据对象 (RDO)库和远程数据控件 (RDC)也允许直接访问 ODBC数据。要访问ODBC数据库需要两步，首先需要在WINDOWS 95或WINDOWS NT的控制面板中设置ODBC数据源名（DSN）。然后在OpenDatabase方法的Source参数中使用该数据源名。例如：访问Microsoft 　　　SQL Server
　　Source="ODBC;DSN=MyDSN;UID=sa;PWD=xx;DataBase=pubs"在程序中使用DAO

　　DAO的强大功能确实让人兴奋，只是较之DATA控件要复杂得多。在复杂的数据库处理中，这两种方法常常同时使用。要使用DAO，必须选中VB的“工程”菜单下的“部件……”项，在控件标签中选中"Microsoft DAO 3.5 Object Library"之后就可以在程序中定义DAO变量了。在这篇文章中我们所举的数据库例子比较简单，有兴趣的朋友不妨采用数据访问对象（DAO）来实现这个程序。

　　七、高屋建瓴

　　到了这里，似乎VB数据库编程的内容也差不多完整了，但是你完全可以再往前走一步。在目前的数据库开发过程中，客户/服务器体系结构占这个领域的主体地位，利用VB进行客户/服务器应用程序的开发是完全可行的。同时,在程序开发过程中，还可以利用面向对象技术，提高你的程序的可重用性和可维护性。总之，数据库应用程序的开发始终是技术上和理论上的热点。使用最高级的方法,最先进的技术,你会变得越来越COOL！

select name as姓名,sex as性别,hometown as籍贯,age as年龄,birthday as生日,company as单位,address as地址,zip as邮编,telephone as电话,fax as传真 from Register。别着急，尽管这条语句有点长，实际上却比较简单。这条语句的语法是：

　　SELECT字段名，字段名，……FROM表名 WHERE条件；

　　对照语法，我们可以看出输入的SQL语句的含义：从表Register中查询姓名，性别，籍费，……字段的值。只要在字段列表中不选中登记号字段，在查询结果中，就不会显示登记号的值了。如果你够细心的话就会注意到我们所写的SQL语句中在字段列表中并不仅仅输入字段名，在其后面还增加了as……项，如“name as姓名”，这是为name字段取一个别名“姓名”，以便在DBGrid控件中显示字段名时，就会显示“姓名”而不是“name”。

　　完成了DATA控件属性的设置就可以将DBGrid控件捆绑到DATA控件上，其方法同输入窗口。对了，将“DataSource”属性设置为“DATA1”即可。现在不妨运行一下程序，真令人兴奋，DBGrid显示出表中所有的信息。可是怎样显示符合条件的数据呢？再看一看上面的SQL语法，WHERE段后可以输入查询条件，比如：需要年龄在20到30岁之间的人员信息，其语句为：Select name,... From register where age$#@62;20 and age$#@60;30;

　　我们只要根据用户输入的条件构成新的SQL语句，并利用DATA控件的Refrensh方法刷新数据库，就可以完成条件查询了。

　　整个程序十分简单，当用户在文本框中输入年龄段后，点按“查询”命令，就会显示符合条件的查询结果。程序代码如下：

Option Explicit

　　Const allinfo = "select name as姓名,sex as性别,hometown as籍贯,age as年龄,birthday as生日,company as单位,address as地址,zip as邮编,telephone as电话,fax as传真 from登记"’定义不带条件的SQL查询语句



Private Sub Command1_Click()

Dim t1, m, n As String’构造SQL语句的WHERE条件段

If IsNumeric(Text1.Text) Then
　m = " age $#@62;" + Text1.Text
End If
If IsNumeric(Text2.Text) Then
　n = " age $#@60; " + Text2.Text
End If
If m = "" And n = "" Then
　t1 = ""
　Else
　If m = "" Then
　　t1 = n
　　Else
　　If n = "" Then
　　　t1 = m
　　Else
　　　t1 = m + " and " + n
　　End If
　End If
End If
If t1 $#@60;$#@62; "" Then
　t1 = " where " + t1
End If
Data1.RecordSource = allinfo + t1’将RecordSource属性的值设置为新的SQL语句
Data1.Refresh‘刷新数据库，获得符合当前条件的查询结果
End Sub

输入完了数据，我们打算退出程序，很自然的我们执行关闭窗口操作，就顺利地结束了输入工作。真的很顺利吗？打开数据库，看看数据库中的数据，我们发现刚才输入的最后一条记录没有存入数据库中。这个很好解释，每当我们调用AddNew方法时，它就将输入的记录存入数据库中，而当我们关闭窗口时，刚输入的记录并没有保存到数据库中，那么在关闭窗口之前对DATA控件进行一次刷新就可以将数据存入数据库中了。



Private Sub Form_QueryUnload(Cancel As Inte ger, UnloadMode As Integer)
　Data1.Refresh
End Sub

　　到了这里，我们似乎可以稍稍轻松了一点，这个窗口的功能差不多完成了。但是我不得不给你提出一个忠告：在数据库系统中，应尽量将错误在应用级上处理。这句话看起来似乎有点抽象，实际上用在这个程序中就简单多了。在表Register中，我们将出生日期定义为Date/Time类型，如果在程序运行时，在该字段对应的文本框中输入的不是Date/Time格式，在向数据库提交数据时会出现什么情况呢？数据库会向用户报告错误信息。然而这样对应用程序并不好，这样的错误应该由用户程序处理，而不是交给数据库去处理，所以在数据提交之前就应该检查该字段的输入是否合法。



Private Sub Text3_LostFocus()
　If IsDate(Text3.Text) Or Text3.Text = "" Then’检查是否输入合法数据
Exit Sub
End If

　　MsgBox ("输入错误，请输入你出生的年月日！"),将选取不合法的数据，以便重新输入，并使控制焦点不动


Text3.SetFocus
Text3.SelStart = 0
Text3.SelLength = Len(Text3.Text)
End Sub

　　上面虽是应用程序处理错误的一个小例子，可是这种在应用级处理错误的思想是十分重要的。

　　五、寻寻觅觅在数据库管理系统中，输入和查询就象两个孪生姐妹不可或缺，下面将介绍如何创建查询窗口。查询窗口的设计分为两部分：查询结果和查询条件。查询结果是指用户所需要的数据，它包括根据查询条件查询出来的记录，但并非表中每个字段里的数据都需要提供给用户。比如在我们这个例子中，登记表中的登记号的值是用户不感兴趣的，所以在查询结果中，我们不希望显示RegID字段的值。查询条件是用户提出的查询要求。比如在我们这个系统中，可以有姓名条件，当用户想知道某个人的具体情况，他可以输入此人的姓名，就查询出此人各方面的情况;也可以有年龄条件，当用户输入某个年龄段，就会查询出处于这个年龄段的所有人的信息。到底采用哪些查询条件，这需要开发者根据用户和系统的要求进行设计，其具体实现过程大都大同小异。为了节省篇幅，我们就仅以年龄为条件进行查询。查询窗口运行情况如图9。在这个程序中我们使用了一个控件DBGrid，这个控件用来显示查询结果，选中VB的“工程”菜单下的“部件……”项，在控件标签中，选中“Microsoft Data Bound Grid Control 5.0”即可，在工具箱中就会出现DBGrid控件的小图标。其使用和其它控件一样。

　　为了和数据库连接，DATA控件是不可少的，回忆一下，该怎样设置它的属性，OK！同输入窗口一样，在CONNECT属性中，选中“ACCESS”项。在DatabaseName属性中，输入“C:\TEMP\登记.mdb”。在RecordSource属性中，选中......嘿，嘿，这里稍微有点不同，如果按输入窗口那样的设置，查询结果中就会包含登记号字段了。在此属性中我们应该输入SQL语句:

一般来说，尽可能地使用表类型的 Recordset对象，它的性能通常总是最好的。

　　为选择特定的 Recordset类型，把 Data控件的RecordsetType属性设成:

　　RecordSet记录集属性
　　BOF属性当记录集记录指针指向第一条记录时返回True
　　EOF属性当记录集记录指针指向最后一条记录时返回True
　　AbsloutePosition属性返回当前记录集记录指针，第一条记录为0，是只读属性
　　Bookmark属性 String类型，返回或设置当前记录集记录指针的书签，是可读写属性。每一条记录都有自己唯一的书签，它与记录在记录集中的顺序无关。将Bookmark属性存放到变量中，后面可以通过将该变量赋值给Bookmark属性，并返回到这个记录。注意：程序中使用BookMark属性重定位记录指针，而不能使用Abslouteposition
　　NoMatch属性当我们使用Find方法查询时如果未找到则返回True。常与BookMark属性同时使用。例如：查找[NAME]字段中第一个姓李的人


Dim S As String
With XXXX.RecordSet
　S = .BookMark
　　　.FindFirst "[NAME] Like’李*’"
　if .NoMatch then
　　MsgBox "数据未找到“
　　.BookMark = S

　End if


　　End With记录集方法
　　AddNew方法向记录集增加一条新记录
　　Delete方法从记录集中将当前记录删除。在删除后常使用MoveNext方法移动指针。例如：



With XXXX.RecordSet
　　　　　.Delete
　　　　　.MoveNext
　if .EOF then .MoveLast
End With

　　MoveXXXX方法
　　MoveFirst将记录集指针移动到第一条记录上
　　MoveLast将记录集指针移动到最后一条记录上
　　MovePrevious将记录集指针移动到前一条记录上
　　MoveNext将记录集指针移动到下一条记录上
　　FindXXXX方法
　　FindFirst在记录集中查询符合条件的第一条记录
　　FindLast在记录集中查询符合条件的最后一条记录
　　FindPrevious在记录集中查询符合条件的前一条记录
　　FindNext在记录集中查询符合条件的下一条记录

　　好了，有了这么充分的知识了，编写两个按钮命令简直是小菜一碟，先来试一下，添一个“增加”命令按钮吧。



Private Sub Command1_Click()
　Data1.Recordset.AddNew
End Sub

　　哇！怎么这么简单，再看一下“删除”命令按钮



Private Sub Command2_Click()
　Data1.Recordset.Delete
　Data1.Recordset.AddNew
End Sub

　　就这样行了吗？运行程序吧，OK！一切正常，迫不及待地输入一条记录，点击“增加”按钮，怎么？出问题了！因为你只有在进行了AddNew方法后才可以输入数据，好吧，在窗口的初始化时就增加一条新记录吧。



Private Sub Form_Initialize()
Data1.Recordset.AddNew
End Sub

了解了DATA控件之后我们就可以连接数据库了。现在我们可以编写一个应用程序。因为虽然我们建立了Register数据库，但是数据库中却没有数据，我们程序的目的就是向数据库中输入数据。它的运行情况如图8。

　　各个文本框正好对应着表Register的各个字段，在文本框中输入数据，点击“增加”按钮，就完成了一条记录的输入。我们看一下，DATA控件是怎样和数据库连接起来的，各个文本框又是怎样和DATA控件捆绑起来的。

　　在DATA控件的CONNECT属性中，选中“ACCESS”项，在DatabaseName属性中，输入“C:\TEMP\登记.mdb”，在RecordSource属性中，选中“Register”，这样就完成了数据库与DATA控件的连接，也就是完成了与应用程序的连接。

　　数据库中各个字段又是怎样和文本框连接起来的呢？在VB中，我们可以将普通控件绑定在数据控件上，来完成自动地显示、更新记录集的数据。常用的可绑定的控件有：Label,Text,checkBox,Image等。通过设置这些控件的DataSource和DataField属性来完成绑定。

　　DataSource属性表示绑定到哪一个数据控件上，程序中我们可能使用多个数据控件。

　　DataField属性表示绑定到记录集的哪一个记录上。

　　现在我们需要把Text1与表“登记”中的姓名字段连接起来。完成DATA控件的连接之后，在Text1控件的DataSource属性中，选中“Data1”，在DataField属性中，选中“姓名”值。用同样的方法，将各个文本框分别绑定到对应的字段上，就完成了文本框的捆绑。

　　下面我们编写两个按钮命令，完成其相应的操作了。喂！别着急，还有一个重要的对象没讲呢！

　　当应用程序启动时，Data控件被自动地初始化。如果 Connect、DatabaseName、Options、RecordSource、Exclusive、ReadOnly和 RecordsetType属性是合法的， Microsoft Jet数据库引擎就会试图创建一个新的基于这些属性的 Recordset记录集对象。Recordset对象可以表示表中的记录或者作为查询结果的记录，使用 Recordset对象可以在记录一级上对数据库中的数据进行处理。这在数据库编程中是一个十分重要的，也是比较复杂的对象。

　　Recordset对象有三种类型：表、动态集、快照，它们之间存在明显的区别。

　　表类型的 Recordset对象是指当前数据库中的表在创建表类型的记录集时，数据库引擎打开的表。后续的数据操作都是直接对表进行的。只能对单个的表打开表类型的记录集，而不能对联接或者联合查询打开表类型的记录集。与其它类型的 Recordset对象相比，表类型的搜索与排序速度最快。

　　动态集类型的 Recordset对象可以是本地的表，也可以是返回的行查询结果。它实际上是对一个或者几个表中的记录的一系列引用。可用动态集从多个表中提取和更新数据，其中包括链接的其它数据库中的表。动态集类型具有一种与众不同的特点：不同数据库的可更新联接。利用这种特性，可以对不同类型的数据库中的表进行可更新的联接查询。动态集和它的基本表可以互相更新。如果动态集中的记录发生改变，同样的变化也将在基本表中反映出来。在打开动态集的时候，如果其他的用户修改了基本表，那么动态集中也将反映出被修改过的记录。动态集类型是最灵活的Recordset类型，也是功能最强的。不过，它的搜索速度与其它操作的速度不及表类型的 Recordset。


　　快照类型的 Recordset对象包含的数据是固定的，它反映了在产生快照的一瞬间数据库的状态。从 Microsoft Jet数据源得到的快照是不可更新的，从开放数据库互连 (ODBC)数据源得到的某些快照是可以更新的，这取决于数据库系统本身的能力。与动态集类型和表类型的 Recordset对象相比，快照的处理开销较少。因此，它执行查询和返回数据的速度更快，特别是在使用 ODBC数据源时。快照类型保存了表中所有记录的完整复本，因此，如果记录的个数很多，快照的性能将比动态集慢得多。为了确定快照与动态集哪一个更快，可以先以动态集方式打开记录集，然后再以快照方式打开它。

　　具体使用什么记录集，取决于需要完成的任务:是要更改数据呢，还是简单地查看数据。例如，如果必须对数据进行排序或者使用索引，可以使用表。因为表类型的 Recordset对象是做了索引的，它定位数据的速度是最快的。如果希望能够对查询选定的一系列记录进行更新，可以使用动态集。如果在特殊的情况下不能使用表类型的记录集，或者只须对记录进行扫描，那么使用快照类型可能会快一些。

四、千里相会

　　Visual Basic数据库应用程序有三个部分。

　　用户程序是程序员开发的，也是我们即将用VB来编写的部分。数据库引擎是数据库驱动程序，使用它程序员可以用统一的格式访问各种数据库，不管这个数据库是本地的 Visual Basic数据库，还是所支持的其它任何格式的数据库格式，所使用的数据访问对象和编程技术都是相同的。数据库则是我们上面完成的部分。从这个结构可以看出用户与正在访问的特定数据库无关。那我们在用VB编写数据库程序时，就需要使程序能够访问指定的数据库。

　　如果是简单的数据库应用，可以使用 Data控件来执行大部分数据访问操作，而根本不用编写代码。与 Data控件相捆绑的控件自动显示来自当前记录的一个或多个字段的数据。
　　DATA数据控件属性
　　CONNECT属性指定打开的数据库类型，并且包括参数，如用户和口令等。例如：打开Access数据库（缺省）
　　CONNECT=“ACCESS”打开ODBC数据库
　　CONNECT=“ODBC；DATABASE=？？；UID=？？；PWD=？？；DSN=？？”
　　DATABASENAME属性确定数据控件访问哪一个数据库。对于多表数据库它为具体的数据库文件名，例如：　　ACCESS数据库
　　DATABASENAME=“D：\...\DEMO.MDB"

　　对于单表数据库它为具体的数据库文件所在的目录，而具体文件名放在RECORDSOURCE属性中，例如:访问

　　FOXPRO数据库文件D：\FOX\DEMO.DBF
　　DATABASENAME=“D:\FOX”
　　RECORDSOURCE=“DEMO”不带文件扩展名
　　RECORDSOURCE属性

　　确定数据控件的记录集,即:所要访问的数据内容。它可以是一个表名、存储查询名或SQL语句。例如：访问Register表所有数据：

　　RECORDSOURCE=“Register”访问RC表中1973年以前出生的数据：
　　RECORDSOURCE=“SELECT *FROM Register WHERE [BIRTHDAY]$#@60;#1/1/1973#"注意：当我们在运行时修改了该属性后，需要调用REFRESH方法刷新记录集。方法
　　REFRESH方法当我们在运行时修改了Record-
　　Source属性后，需要调用该方法刷新记录集。

　　UPDATERECORD方法将绑定在数据控件上的控件的数据写入数据库中。即:当我们修改了数据后调用该方法确定修改。

　　CANCELUPDATE方法将数据库中的数据重新读到绑定在数据控件上的控件中。即:当我们修改了数据后调用该方法放弃修改。事件VALIDATE事件当我们移动记录集记录指针时发生。例如：我们将记录集记录指针从A移动到记录B时当产生VALIDATE事件时，记录指针仍在记录A上。

　　Sub XXXX_Validate（Action As integer，Save As integer）其中：

　　Action指出如何产生了该事件，如：移动，增加，查询等。

　　Save表示是否保存已修改的数据。当我们修改了绑定在数据控件的数据，又没有UPDATERECORD，则移动指针时，Save=True。如果在事件中令Save=False，则放弃修改。例如：



Sub XXXX_Validate(Action As integer,Save As integer)
If Save then
I= MsgBox("Dada changed,Save?",vbYesNo)
If I = vbNo then
Save = False
End if
End　if
End Sub

　　Reposition事件当我们移动记录集指针时发生。例如：我们将记录集记录指针从A移动到记录B时，当产生Reposition事件时，记录指针已移动到B上。通常我们在该事件中显示当前的指针位置。例如：



Sub XXXX_Reposition()
XXXX.Caption=??
XXXX.RecordSet.AbsolutePosition + 1
End Sub

如果有选学了十二门课程的 1000个学生，每门课程的说明和教师将显示100多次─对选了那门课程的每个学生都要重复一次。要避免这种低效率，应当把表分成两个独立的表来规范化，一个用来表示学生，另一个用来表示课程。学生课程



1 4
2 3
3 1
4 4  


课程描述教授



1 Physics for Short-定货 cooks Adms
2 Counterculture Sociology Beckely
3 Applied Basketweaing Carruth
4 Introduction to Physiology Dawsons  

　　现在表被规范化了，所以，要改变特定课程的课程描述或“数据”，只要改变一个记录就可以了。以上是关于数据库的基本知识，这是学习数据库编程所必须的。虽然数据库技术作为一门学科，其深度和广度不是这点篇幅能描述的，但作为入门和简单数据库编程应该是足够了。

　　好了，下面我们就可以开始练练了。我们经常遇到数据库系统是登记系统，不管你是在单位，或是参加什么组织，登记是免不了的，而且它的结构比较简单，我们就以一个登记系统为例吧。分析一下该系统所涉及到的数据。

二、磨刀不误砍柴功

　　对于登记，要跟踪的信息包括：
　●姓名　　●性别
　●籍贯　　●年龄
　●出生年月●单位
　●地址　　●邮政编码
　●电话　　●传真
　　当然，可以简单地创建一个表，使得上述的每个数据项对应一个字段。

　　现在需要给表指派主键,用以唯一标识每一条记录,在登记表中分别添加登记号作为唯一键,这样就保证数据库中的任两条记录都不同了。

　　对数据库作出以上分析后，我们就可以开始建立数据库了。

　　三、建营扎寨

　　在这里我们学习怎样建立数据库，首先需要确定要建立数据库的类型。在Visual Basic中通过数据访问控件或数据访问对象（DAO）可以访问下列数据库：

　　1． JET数据库，即Microsoft Access
　　2． ISAM数据库，如：dBase，FoxPro等


　　3． ODBC数据库，凡是遵循ODBC标准的客户/服务器数据库。如：Microsoft SQL Server、Oracle
　　一般来说，如果要开发个人的小型数据库系统，用Access数据库比较合适，要开发大、中型的数据库系统用ODBC数据库更为适宜。而dBase和FoxPro数据库由于已经过时，除非特别的情况，否则不要使用。在我们的例子中，当然选用Access数据库了。建立Access数据库有两种方法：一是在Microsoft Access中建立数据库。点击“新建”按钮就可以建立新的表了。这里我们主要介绍第二种方法：使用可视化数据管理器，不需要编程就可创建数据库。可视化数据管理器是一个非常有用的应用程序，它是VB企业版和专业版附带的，在目录\..\DevStudio\vb\samples\Visdata下。

　　点击菜单“文件”项下“新建”子项“Microsoft ACCESS”子项的“版本7.0 MDB”项。在弹出窗口中输入新建数据库的名称“登记”:

　　要生成新的表，右键单击数据库窗口弹出菜单，然后选择“新表”命令，在随后出现的“表结构”对话框中建立所要的字段。每次向表中加入新的字段，单击“增加字段”按钮，会出现图4的“增加字段”对话框。
　　“增加字段”对话框中的选项，根据字段的类型，有些选项是无效的，无法读取。在我们建立的登记数据库中。

　　要注意的是，由于字段登记号用来唯一标志记录的，因此，它不能由用户输入。所以在定义该字段时需要定义为Long数据类型，“自动生成字段”项有效，并选中这一项。这样当用户每输入一条新记录时，系统就会在该字段上自动输入一个与其它记录不同的值。在ACCESS数据库中，关键字是用索引实现的，作为编程人员在对表类型的记录集编程时，只需调用索引名。在查询时，Rushmore技术自动用索引信息优化查询。完成表定义后，点击“增加索引”按钮。
　　在窗口中右边有三个选项。

　　添加索引对话框选项

　　当然，学会数据库的建立也并非一朝一夕的事，读者不妨多练习一下。下面你就可以运行VB开始我们的编程了。