VB如何调用Access数据库？

Question

怎么样将做好的数据库联接到VB中？

Answer 1

首先,我们需要引用ADO.具体的方法是,在"工程" -- "引用" 中,找到"Microsoft ActiveX Data Object *.* Library",这里的"*.*"是指的时ADO的版本号,一般来说,应用程序或ActiveX控件都具有向下兼容性,所以我们尽可能选择比较新的版本.以确保程序在能识别旧版本Access的同时,也能识别较新版本的Access.
然后我们需要在程序中创建一个对象.就好比我们在窗体上添加一个FileBox才能看到文件名一样,只有创建了ADO对象,我们才能够访问数据库.常用的对象有两个,Connection和Recordset.
创建这两个对象的具体方法是:
1.在引用后,使用New关键字,如
Private Conn As New ADODB.Connection
Private Reco As New ADODB.Recordset
2.在没引用时,用CreateObject创建对象:
Dim Conn,Reco
Set Conn = CreateObject("ADODB.Connection")
Set Reco = CreateObject("ADODB.Recordset")
创建了对象之后,下一步我们要做的就是打开数据库了.
先看下面的代码,可以成功的打开数据库.
Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Main.mdb"
这句代码打开了D盘中的Main.mdb这个数据库.
Connection.Open方法的第一个参数是连接代码,它将传递给系统的数据库引擎.前半部分"Provider= Microsoft.Jet.OLEDB.4.0",它表示了数据库的类型.不同的数据库可能会不同.后半句"Source=d:\main.mdb"它表示了数据库所在的绝对路径.
打开数据库之后,还要打开表.假如数据库中有一个表,表名为"Users",字段有两个,一个为用户名,一个为密码.那么看以下代码.
1.想返回"Users"中,[用户名]为"去年烟花"的[密码]
Recordset.open "Select 密码 From Users Where 用户名='去年烟花'",Connection,1,1

之后我们就可以把用户输入的密码进行比较,看是否允许登录.
If Recordset.eof and Recordset.bof then
Msgbox "用户不存在!",16
Else
If PassWord =Recordset("密码").value then
msgbox "登录成功!",64
Else
msgbox "密码错误!",32
End If
End If
Recordset.Close
2.假设Admin已经成功登录系统,我们想把所有的用户名和密码都显示出来
Recordset.open "Select * From Users",Connection,1,1
这时,表已经被打开,我们就用以下代码把它显示出来.
Do whlie Not Recordset.eof
Print "用户名: " & Recordset("用户名").value & "密码: " & Recordset("密码").value
Recordset.MoveNext
Loop
Recordset.Close
由以上代码示例可以看出,打开表时,可以只打开其中的一个字段,也可以打开所有.第一个参数是SQL语句.
Select [字段名] From 表名 [Where 条件]
这里的条件可以省略.且字段名也可以用"*"来代替所有字段.
需要注意的是,如果你用(1)中的方法打开,那么(2)后面显示的代码就不能再用在(1)中.因为(1)里并没有打开[用户名]字段,所以这一句Recordset("密码")就没有值存在,还有可能出错.
后面的条件,可以用"="、">"、"<"等运算符.比如 "Where ID > 32".(这里假设[ID]为数字型.)

这是打开的部分.第二个很重要的部分就是查询记录.
数据库它并不是把所有记录全部放到一个变量中备用的.而是以"当前记录"的形式来返回一个值.所以我们想从中找到有用的信息,就必须要对信息进行定位/筛选.
定位:
移动到下一条 Recordset.MoveNext
移动到上一条 Recordset.MovePrevious
移动到最后一条 Recordset.MoveLast
移动到第一条 Recordset.MoveFrist
移动到某一条 Recordset.Move Number
筛选:
Recordset.Find "条件"
如:[用方法(2)打开表之后]
Private Sub Command1_Click()
Recordset.Find "用户名=" & "text1.text"
If Recordset.Eof <> True Then
Msgbox "该用户的密码是:" & Recordset("密码").value,64
Else
Msgbox "未找到该用户的资料!",16
End If
End Sub
MoveNext 只有当Eof不为True时,才可用,否则发生错误.而MovePrevious刚是Bof不为True时....
而只要Eof 和 Bof中有一个不为真时,也就是说只要有一条记录时,它就可以使用.

Find 方法中的条件和Open时的第一个参数中的条件表述方法是完全一致的.当在已打开的记录集中,找不到该记录时,Eof为True.找到则当前的值就是符合条件的记录.

第三个部分就是添加/修改记录.
修改记录很简单,先按以上的方法找到相关记录之后,给记录赋值就可以了.
比如:[(修改密码)按方法(1)打开表之后]
Recordset("密码").value = "123456"
Recordset.Updata
需要注意的就是,在修改完成后,要调用Updata方法,这样修改才能生效.
而添加记录则可以用以下代码来实现:
Recordset.addnew
Recordset("用户名").value = "Admin"
Recordset("密码").value = "Admin"
Recordset.Updata
这里,先要调用Addnew方法,增加一条新记录,然后对这个新记录中的各字段赋值,最后再调用Updata方法.
到这里就差不多了,最后说一下上面提到的几个方法.
Recordset.Open SQL语句,数据源,游标类型,打开方法
SQL语句不用说了,就是Select那啥的,目的就是按要求从表中返回数据
数据源就是一个打开之后的Connection对象.
去他妈的游标类型,填1就可以了 [偷笑ing]
打开方法对应了几个常数,具体哪几个可以从对象浏览器里看.
对应数值的意义:
1 只读 2 独占 3 可写 4 自已可写,别人可读
Connection.open 连接代码,服务器用户名,密码
这里的连接代码就不在多说了,服务器用户名,密码只有在连接远程数据库时才用到.

Answer 2

ADO 一旦打开了数据库连接，您就可以对其运行一个查询。下面的事件过程和先前的 RDO 代码是非常相似的。不过，在这种情况下，您用进行 SQL 查询的新 ADO Open 方法和 ADO Connection 对象作为参数，而不是使用 rdoConnection 对象的 OpenResultset 方法。您也可以选择使用 ADO Connection 对象的 Execute 方法，就象您可以在 RDO 中所做的那样（只要它不返回一个行集合）。ADO2 和 RDO2 相比，一个主要的不同之处在于 ADO2 允许您创建一个记录集，并在打开该记录集之前对其属性进行设置。Private Sub RunButton_Click() Dim rs As New ADODB.Recordset rs.Open "select * from titles where title like '%h'", cn ADOGrid1.ShowData rs rs.Close End Sub 您可以运行该查询，并在 ADO 中异步地处理其结果集。也就是说，you specify the adFetchAsynch option on rs.Open，ADO 导致游标驱动程序自动充填背景中的结果集。ADO 2.0 对象模型 ADO 2.0 对象模型是由八个对象组成的，它们中的大多数在功能上和 RDO 对象相似，只不过具有更强的功能性而已。需要花一些时间在 Object Browser (F2) 中浏览对象模型，以便于熟悉各种不同属性、方法、事件、集合等等所在的位置。注意</b> 所有后面带有星号 (*) 的对象都是同时应用于 ADO Recordset 类型库 (ADOR) 的对象。 Command 对象 包含关于某个命令，例如查询字符串、参数定义等的信息。Command 对象在功能上和 RDO 的 rdoQuery 对象是相似的。

Connection 对象 包含关于某个数据提供程序的信息。Connection 对象在功能上和 RDO 的 rdoConnection 对象是相似的，并且包含了关于结构描述的信息。它还包含某些 RDOEnvironment 对象的功能，例如 transaction 控件。

Error 对象 包含数据提供程序出错时的扩展信息。Error 对象在功能上和 RDO 的 rdoError 对象是相似的。

Field 对象* 包含记录集中数据的某单个列的信息。Field 对象在功能上和 RDO 的 rdoColumn 对象是相似的。

Parameter 对象 包含参数化的 Command 对象的某单个参数的信息。该 Command 对象有一个包含其所有 Parameter 对象的 Parameters 集合。Parameter 对象在功能上和 RDO 的 rdoParameter 对象是相似的。

Property 对象* 包含某个 ADO 对象的提供程序定义的特征。没有任何等同于该对象的 RDO，但 DAO 有一个相似的对象。ADO 对象可以具有两种属性： Built-In 属性：ADO 的“本地”属性。也就是说，任何使用熟悉的 MyObject.Property 语法的新对象都可以立即使用的 ADO 中的属性。Built-in 属性并不在某个对象的 Properties 集合中以 Property 对象的形式出现，因此尽管您可以修改它们的值，您却不能修改它们的特性或将它们删除。

Dynamic 属性：ADO 的非本地属性，它们是由下一级数据提供程序定义的。它们出现在合适的 ADO 对象的 Properties 集合中。 例如，一个数据提供程序特有的属性可能指明某个 Recordset 对象是支持事务还是支持更新。这些附加的属性在 Recordset 的 Properties 集合中以 Property 对象的形式出现。Dynamic 属性只能用 MyObject.Properties(0) 或 MyObject.Properties("Name") 语法通过集合来引用。不同的数据提供程序可能提供一个或多个特殊的属性，来处理提供程序特有的操作。Recordset 对象* Recordset 对象包含某个查询返回的记录，以及那些记录中的游标。Recordset 对象在功能上和 RDO 的 rdoResultset 对象相似。您可以在不用显式地打开 Connection 对象的情况下，打开一个 Recordset（例如，执行一个查询）。不过，如果您选择创建一个 Connection 对象，您就可以在同一个连接上打开多个 Recordset 对象 ADO 要在 ADO 中建立一个数据库连接，首先创建一组可被 ADODB 对象引用的 ADO 对象。这些对象将在以后用于设置打开连接和generate结果集的特定属性：Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim cnB As New ADODB.Connection Dim Qy As New ADODB.Command 下一行创建了一个连接字符串，正如您在前一个 RDO 示例中所创建的那样。在两种情况下，您都使用 ODBC 的 “非-DSN” 连接策略以节省时间，并提高性能：Const ConnectionString = "uid=myname;pwd=mypw;driver={SQL Server}; _ server=myserver;database=pubs;dsn=",,connection=adConnectAsync" 下面的声明对本示例中用到的变量进行初始化。（注意一个保存结果集的变量数组的创建）： Dim sql As String Dim rc As Integer Dim i As Integer Dim Changes As Integer Dim bms() As Variant 下一步，打开一个到 Form_Load 事件中某个数据库的 ADO 连接。注意该代码和 RDO 代码是很相似的，只不过常数是以 "ad" 开始的，而不是 "rd"。如果要看到所有可以使用的常数，请查看 ADODB 类型库。注意</b> 不需要指定提示行为，因为 ADO 的缺省设置为“无提示”。不过，如果您选择对之进行更改，则可以使用 ADO Properties 集合来处理希望的提示行为。在 RDO 中，您可以用 OpenConnection 参数来设置行为。在 ADO 中，您必须设置 Properties ("Prompt") 属性。同时，如果您不想使用游标驱动程序，则不必对其进行指定（象在 RDO 中的CursorDriver = rdUseNone），因为 ADO 的缺省规定是无游标驱动程序。Private Sub Form_Load() With cn ' 建立非 DSN 连接 .ConnectionString = ConnectString .ConnectionTimeout = 10 '.Properties("Prompt") = adPromptNever ' This is the default prompting mode in ADO. .Open End With With cnB .ConnectionString = ConnectString .CursorLocation = adUseClient .Open End With End Sub