vb中数据库连接

1. VB如何连接SQL数据库

一个用VB连接SQL数据库连接的模块2007年01月22日 星期一 下午 05:29下面是一个连接数据库的模块，大家可以使用它来连接SQL数据库，使用起来比ADO控件还简单：
代码如下：
Public rsNew As ADODB.Recordset
Public CnNew As ADODB.Connection
Public addFlag As Boolean
'连接数据库
Public Function OpenCn() As Boolean
Dim Mag As String
On Error GoTo strErrMag
Set CnNew = New ADODB.Connection
CnNew.ConnectionTimeout = 25
CnNew.Provider = "sqloledb"
CnNew.Properties("data source").value = "" 'SQL服务器的名
CnNew.Properties("initial catalog").value = "pubs"'库名
CnNew.Properties("integrated security").value = "SSPI"'登陆类型
'con.Properties("user id").value = "sa"
'con.Properties("password").value = "wwww"

CnNew.Open
OpenCn = True
addFlag = True
Exit Function
strErrMag:
Mag = "数据库末连接"
Call MsgBox(Mag, vbOKCancel, "错误:数据库连接")
addFlag = False
End
End Function
Public Sub Clocn()
'闭关数据库
On Error Resume Next
If CnNew.State <> adStateClosed Then CnNew.Close
Set CnNew = Nothing
End Sub
Public Function OpenRs(ByVal strSql As String) As Boolean
'连接数据库记录集
Dim Mag As String
Dim rpy As Boolean
On Error GoTo strErrMag
Set rsNew = New ADODB.Recordset
If addFlag = False Then rpy = OpenCn
With rsNew
.ActiveConnection = CnNew
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open strSql
End With
addFlag = True
OpenRs = True
Exit Function
strErrMag:
Mag = "数据库数据集末连接"
Call MsgBox(Mag, vbOKOnly, "错误:数据库连接")
OpenRs = False
End
End Function
Public Sub cloRs()
'闭关数据集
On Error Resume Next
If rsNew.State <> adStateClosed Then rsNew.Close
Set rsNew = Nothing
End Sub

只要在你的标准模块中加入该代码，你就可以使用其中的函数来连接数据源了。

2. VB如何连接到数据库

VB有多种方法连接数据库,不知道你想要怎么连? 还有要连接到什么样的数据库?
我这里给你提供个连接到Oracle的连接方法(利用oo4o).

Public OraDbSession As Object
Public OraDb As Object
Public myRs As Object
'连接数据库(用户名和密码,数据库名)
Function OraConn(UserID As String, Password As String, SouceName As String) As Boolean
On Error GoTo OraConn_Err
Set OraDbSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDb = OraDbSession.dbopendatabase(SouceName, UserID & "/" & Password, 0)
OraConn = True
Exit Function
OraConn_Err:
OraConn = False
MsgBox Error
End Function

'检索(Select...)
Function BookFound() As Boolean
Dim SQL As String
SQL = "SELECT bookid FROM BOOK"
On Error GoTo BookFound_Err
'这里是调用上面那个函数
If Not OraConn("用户名", "密码", "数据库名") Then
BookFound = False
Exit Function
Else
Set myRs = OraDb.dbcreatedynaset(SQL, 0)
End If
Do While Not myds.EOF
MsgBox myds.fields(0).Value
myds.MoveNext
Loop
myds.Close
Exit Function
BookFound_Err:
MsgBox Error
End Function

'更新/删除/写数据
Public Sub DateUp()
Dim sql As String
sql = "insert..."
'这里是调用上面那个函数
If OraConn("用户名", "密码", "数据库名") Then
OraDb.executesql (sql)
End If
End Sub

3. 在VB中怎样建立数据库 然后再与数据库连接

Visual Basic作为应用程序的开发“利器”也表现在数据库应用程序的开发上，它良好的界面和强大的控件功能使数据库编程变得简单多了。但即便如此，数据库应用程序的开发仍然算得上是VB编程中的难点，这是因为你不仅要熟悉VB中关于数据库编程方面的知识（当然这是十分简单的）还要了解数据库的知识。所以我们先介绍一下数据库的基本知识，算是学习数据库编程前的热身运动吧！

一、热身运动
首先需要声明是，我们这里介绍的数据库知识都是指的关系数据库。所谓关系数据库就是将数据表示为表的集合，通过建立简单表之间的关系来定义结构的一种数据库。
不管表在数据库文件中的物理存储方式如何，它都可以看作一组行和列，与电子表格的行和列类似。在关系数据库中，行被称为记录，而列则被称为字段。下面是一个客户表的例子。
表1 客户表

客户号 姓名 地址 城市 街道 邮编
1723 Doe John 1234 Ffth Avenue New York NY 1004
3391 Smith Mary 9876 Myrtle Lavee Bosten MA 6078
3765 Blasel Mortimer 2296j River Road peoria IL 7011

此表中每一行是一个记录，它包含了特定客户的所有信息，而每个记录则包含了相同类型和数量的字段：客户号、姓名等等。
表 是一种按行与列排列的相关信息的逻辑组，类似于工作单表。
字段 数据库表中的每一列称作一个字段。表是由其包含的各种字段定义的，每个字段描述了它所含有的数据。创建一个数据库时，须为每个字段分配一个数据类型、最大长度和其它属性。字段可包含各种字符、数字甚至图形。
记录 各个客户有关的信息存放在表的行，被称为记录。一般来说，数据库表创建时任意两个记录都不能相同。
键键就是表中的某个字段（或多个字段），它（们）为快速检索而被索引。键可以是唯一的，也可以是非唯一的，取决于它（们）是否允许重复。唯一键可以指定为主键，用来唯一标识表的每行。例如，在前面的例子中，客户标识号 (客户号) 是表的主键，因为客户号唯一地标识了一个客户。
关系 数据库可以由多个表组成，表与表之间可以以不同的方式相互关联。例如，客户数据库还可以有一个包含某个客户的所有定单的表。它只用“客户号”字段来引用该定单的客户，而不在定单表中的每项重复所有客户信息，如下表所示:
表2 定货表

定货 客户号 日期 内容 数量
14764 3391 2/23/94 27 $22.95
14932 3391 3/17/94 46 $9.57
15108 8765 2/15/96 27 $22.95

在这个表中，客户号字段引用了客户表中的 客户号字段，从而把定单和客户联系起来了。可以看到，客户 3391 (Mary Smith) 在 94 年 2 月 23 日订购了 27 项，在 94 年 3 月 17 日订购了 46 项。用来建立关系的键叫做外部键，因为它与“外部”表（客户表）的主键关联。
一对多和多对多关系 上表中的关系类型叫做一对多关系，因为一个客户可以发出多个定单，而某个特定的定单只能是一个客户所发。也可以建立多对多的关系。例如，列出所有可以销售的项（存货）的盘存表:
表3 盘存表

内容 描述 供应商 费用 盘存
27 Straw Hat Garden Supply Co. $14.00 50
46 Garden gloves Garden Supply Co. $4.50 75
102 hanging floral instries $6.00 137

从盘存表中，可以看到在客户和存货项之间存在多对多的关系。也就是说，一个客户可以订购多个存货项，而一个存货项又能够被多个客户订购。多对多关系是通过两个独立的一对多关系来定义的，公共的“多”表包含了两个其它表的外部键。在该例中，定货s 表与 盘存 表（通过 “内容”）与 Customer 表（通过 客户号）都相关联。通过这三个表，我们可以看到，Mary Smith (客户号 3391) 订购了 Straw Hat (“内容” 27) 和Garden Gloves (“内容” 46)，而 Mary Smith (客户号 3391) 和 Mortimer Blaselflatz (客户号 8765) 都订购了Straw Hat (“内容” 27)。如果把客户表和盘存表的相关字段与定货表的“定货”字段联结起来，建立一个“关联”表，那么这个关系就更清楚了。
表4 关联表:按客户号和内容排序

定货号 客户号 姓名 内容 描述
14764 33391 Smith Mary 27 Straw Hat
14932 33391 Smith Mary 46 Garden Gloves
15168 8765 Blaselfatz Mortimer 27 Straw Hat

规范化 数据库设计者的任务就是组织数据，而组织数据的方法，应能消除不必要的重复，并为所有必要信息提供快速查找路径。为了达到这种目标而把信息分离到各种独立的表中去的过程，叫作规范化。
规范化是用许多指定的规则和不同级别的范式来进行规范的复杂过程。该过程的研讨已超出了本文的范围。但是，大多数简单数据库的规范化可以用下面简单的经验规则来完成:包含重复信息的表必须分成独立的几个表来消除重复。
例如，使学生和课程对应的学生数据库，包含了下表所示的信息。
表5

学生 课程 描述 教授
1 4 Introction to Physiology Dawson
2 3 Applied Basketweaing Carruth
3 1 Physics for Short-定货 cooks Adms
4 2 Introction to Physiology Dawsons

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

学生 课程
1 4
2 3
3 1
4 4
课程 描述 教授
1 Physics for Short-定货 cooks Adms
2 Counterculture Sociology Beckely
3 Applied Basketweaing Carruth
4 Introction to Physiology Dawsons

表6
表7

现在表被规范化了，所以，要改变特定课程的课程描述或“数据”，只要改变一个记录就可以了。
以上是关于数据库的基本知识，这是学习数据库编程所必须的。虽然数据库技术作为一门学科，其深度和广度不是这点篇幅能描述的，但作为入门和简单数据库编程应该是足够了。
好了，下面我们就可以开始练练了。我们经常遇到数据库系统是登记系统，不管你是在单位，或是参加什么组织，登记是免不了的，而且它的结构比较简单，我们就以一个登记系统为例吧。分析一下该系统所涉及到的数据。

二、磨刀不误砍柴功
对于登记，要跟踪的信息包括：
● 姓名 ● 性别
● 籍贯 ● 年龄
● 出生年月 ● 单位
● 地址 ● 邮政编码
● 电话 ● 传真
当然，可以简单地创建一个表，使得上述的每个数据项对应一个字段。
现在需要给表指派主键,用以唯一标识每一条记录,在登记表中分别添加登记号作为唯一键,这样就保证数据库中的任两条记录都不同了。
对数据库作出以上分析后，我们就可以开始建立数据库了。

三、建营扎寨
在这里我们学习怎样建立数据库，首先需要确定要建立数据库的类型。在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中建立数据库。点击“新建”按钮就可以建立新的表了（如图1）。这里我们主要介绍第二种方法：使用可视化数据管理器，不需要编程就可创建数据库。可视化数据管理器是一个非常有用的应用程序，它是VB企业版和专业版附带的，在目录..DevStudiovbsamplesVisdata下，其界面如下图。
点击菜单“文件”项下“新建”子项“Microsoft ACCESS”子项的“版本7.0 MDB”项。在弹出窗口中输入新建数据库的名称“登记”，出现下面图3所示窗口:
要生成新的表，右键单击数据库窗口弹出菜单，然后选择“新表”命令，在随后出现的“表结构”对话框中建立所要的字段。每次向表中加入新的字段，单击“增加字段”按钮，会出现图4 的“增加字段”对话框。
“增加字段”对话框中的选项如表10所示，根据字段的类型，有些选项是无效的，无法读取。
在我们建立的登记数据库中，各个字段的类型如表11。

要注意的是，由于字段登记号用来唯一标志记录的，因此，它不能由用户输入。所以在定义该字段时需要定义为Long数据类型，“自动生成字段”项有效，并选中这一项。这样当用户每输入一条新记录时，系统就会在该字段上自动输入一个与其它记录不同的值。
在ACCESS数据库中，关键字是用索引实现的，作为编程人员在对表类型的记录集编程时，只需调用索引名。在查询时，Rushmore技术自动用索引信息优化查询。完成表定义后，点击“增加索引”按钮，弹出如图5所示窗口。
在窗口中右边有三个选项，其意义如表 12。
添加索引对话框选项
完成之后如图6。
当然，学会数据库的建立也并非一朝一夕的事，读者不妨多练习一下。下面你就可以运行VB开始我们的编程了。

四、千里相会
Visual Basic 数据库应用程序有三个部分，如图7所示。
用户程序是程序员开发的，也是我们即将用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：FOXDEMO.DBF
DATABASENAME=“D:FOX”
RECORDSOURCE=“DEMO”不带文件扩展名
RECORDSOURCE属性
确定数据控件的记录集,即:所要访问的数据内容。它可以是一个表名、存储查询名或SQL语句。例如：访问Register表所有数据 ：
RECORDSOURCE=“Register”访问RC表中1973年以前出生的数据：
RECORDSOURCE=“SELECT *FROM Register WHERE [BIRTHDAY]<#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

了解了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 对象是做了索引的，它定位数据的速度是最快的。如果希望能够对查询选定的一系列记录进行更新，可以使用动态集。如果在特殊的情况下不能使用表类型的记录集，或者只须对记录进行扫描，那么使用快照类型可能会快一些。
一般来说，尽可能地使用表类型的 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
输入完了数据，我们打算退出程序，很自然的我们执行关闭窗口操作，就顺利地结束了输入工作。真的很顺利吗？打开数据库，看看数据库中的数据，我们发现刚才输入的最后一条记录没有存入数据库中。这个很好解释，每当我们调用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语句:
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>20 and age<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 >" + Text1.Text
End If
If IsNumeric(Text2.Text) Then
n = " age < " + Text2.Text
End If
If m = "" And n = "" Then
t

4. VB如何连接网络数据库

在工程里找到Microsoft ADO Data Control控件,拖到窗体上,事件中这么写:
Private Sub Coammand1_Click()
Adodc1.connectionstring="Driver={SQL Server};Server=服务器IP;Uid=用户名;Pwd=密码;DataBse=数据库名"
Adodc1.RecordSource="SELECT * FROM 表名 WHERE 条件专"
Adodc1.Refrsh
End Sub
要进行数据操属作就这样引用:
Adodc1.RecordSet.Fields("字段名")这就是操作数据字段
把Adodc1绑定到数据控件那就是绑定数据源

5. vb中怎样连接数据库

可以用ODBC数据源，添加一个SQL的。然后用VB里面的ADO部件和datagrid部件连接。先在拖出的adodc部件右键设置属性，连接数据库。再将datagrid连接到adodc就可以看到数据了。

6. vb怎么连接数据库写入数据

'在使用前需要先安装MySql的驱动，进行正确配置
'注意：必须给出正确的服务器名、数据库名、表名、数据库连接的用户名、密码
Option Explicit
Dim Cnn As ADODB.Connection '定义ADO连接对象
Dim Records As ADODB.Recordset '定义ADO记录集对象
'连接到数据库
Function CnnOpen(ByVal ServerName As String, ByVal DBName As String, ByVal TblName As String, ByVal User As String, ByVal PWD As String) '服务器名或IP、数据库名、登录用户、密码
Dim CnnStr As String '定义连接字符串
Set Cnn = CreateObject("ADODB.Connection") '创建ADO连接对象
Cnn.CommandTimeout = 15 '设置超时时间
CnnStr = "DRIVER={MySql ODBC 5.1 Driver};SERVER=" & ServerName & ";Database=" & DBName & ";Uid=" & User & ";Pwd=" & PWD & ";Stmt=set names GBK" '
Cnn.ConnectionString = CnnStr
Cnn.Open
End Function
'关闭连接
Function CnnClose()
If Cnn.State = 1 Then
Cnn.Close
End If
End Function
'把Excel写入MySql中的数据库
Function InsertToMySql(ByVal SheetName As String, ByVal TblName As String)
Dim SqlStr As String
Dim i, j As Integer
Dim Columns, Rows As Integer
Columns = VBAProject.func_public.GetTotalColumns(SheetName)
Rows = VBAProject.func_public.GetTotalRows(SheetName)
Set Records = CreateObject("ADODB.recordset")
'取得结果集并插入数据到数据库
Set Records = CreateObject("ADODB.Recordset")
'以下语句提供了插入思路，我只是把单条记录的插入方式改为循环，以把所有的记录添加到表中
'rs.Open "insert into newtable values('" & ActiveSheet.Cells(i, 1).Value & "'," & "'" & ActiveSheet.Cells(i, 2).Value & "')", cnn, 0
For i = 2 To Rows
SqlStr = "INSERT INTO " & TblName & " values('" & Sheets(SheetName).Cells(i, 1).Value & "'" '注意：" values('"，字母“v”之前是有空格的！！！
For j = 2 To Columns
SqlStr = SqlStr & ",'" & Sheets(SheetName).Cells(i, j).Value & "'"
Next
SqlStr = SqlStr & ")"
Set Records = Cnn.Execute(SqlStr) 'rs.Open SqlStr, cnn, 0 不能用这条语句实现！！！
Next
MsgBox "Insert!", vbOKOnly, "Excel To MySql"
End Function
'清除对象
Function ClearObj()
Set Cnn = Nothing
Set Records = Nothing
End Function

7. vb中数据库连接的问题

Dim conn As New ADODB.Connection '连接对象
Dim rs As New ADODB.Recordset '记录集对象

Private Sub Command1_Click()
'插入数据：
If rs.State <> adStateClosed Then '检查记录集状态
rs.Close
End If
rs.Open "insert into T_user(name,age) values('" & txtname.Text & "'," & txtage & ")", conn, adOpenDynamic, adLockBatchOptimistic
If rs.State <> adStateClosed Then
rs.Close
End If
'更新DataGrid1数据
rs.Open "select * from T_user", conn, adOpenDynamic, adLockBatchOptimistic
Set DataGrid1.DataSource = rs
End Sub

Private Sub Form_Load()
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\hb\桌面\db1.mdb;Persist Security Info=False"
conn.CursorLocation = adUseClient '游标放在客户端
rs.CursorLocation = adUseClient
rs.Open "select * from T_user", conn, adOpenDynamic, adLockBatchOptimistic
Set DataGrid1.DataSource = rs
End Sub

Private Sub Form_Unload(Cancel As Integer)
rs.Close '释放
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub

8. vb中的数据库连接

Public conn As New ADODB.Connection
Public ConnString As String
Public Sub CON()
ConnString = "provider=microsoft.jet.oledb.4.0;" & _
"data source=" & App.Path & "\数据库名.mdb;Jet OLEDB:Database Password=123456"
If conn.state <> 1 Then
conn.Open (ConnString)
End If
End Sub
以上一般放在模块里,用的时候调CON()就可以了
以下是你要在使用这个库中某个表时写的
Dim rs As New ADODB.Recordset
dim sql as string
sql="select * from 表" ;这个只要是SQL语句就可以
rs.Open sql, conn, adOpenKeyset, adLockPessimistic
执行上面写的SQL语句
rs.fields(0);括号里是字段在表里的位置,从0开始
或者rs.field("字段名")也可以
最后别忘了关闭数据集
rs.close

9. vb中怎样连接数据库

什么数据库？？？
'** ----- 数据库连接字符串模板 ---------------------------------------
'** ACCESS数据库
'** iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _
'** "Password=""密码"";Data Source=数据库名"
'**
'** SQL数据库
'** iConcStr = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _
'** "User ID=用户名;Password=密码;Initial Catalog=数据库名;Data Source=SQL服务器名"

10. 在VB中怎样连接sql数据库的具体操作

设置好数据源后就可以连接了。