前言：VB库连接方式

一、 无源数据库连接

其实，“无源数据库”连接也并不是说不需要数据源，如果没有数据源则连接是纸上谈兵，只是不需要配置ODBC数据源，利用ADO就可通过代码进行连接。

1. ADO(ActiveX Data Object)

在VisualBasic6.0中，数据访问接口有三种：ActiveX数据对象（ADO）、远程数据对象（RDO）和数据访问对象（DAO）。这三种接口的每一种都分别代表该技术的不同发展阶段，最新的是ADO，它比RDO和DAO更加简单，更加灵活。对于新工程，应使用ADO作为数据访问接口。

ADO 是Microsoft 数据库应用程序开发的接口，是建立在OLEDB之上的高层数据库访问技术。它封装了OLE DB所提供的接口，比起OLE DB提供者，ADO的接口可以使程序员在更高级别上进行数据交互。ADO技术不仅可以应用于关系数据库，也可以应用于非关系数据库。可以用统一的方法对不同的文件系统进行访问，大大简化了程序编制，增加了程序的可移植性。

2. 建立无源数据库连接

在连接数据库前，首先要在Visual Basic 6.0菜单中“工程”—“引用”中选择Microsoft ActiveX Data Objects 2.6 Library 和MicrosoftActiveX Data Objects Recordset 2.6 Library这两个组件。

运用ADO对象模型的主要元素：Connection（连接）中的ConnectionString属性进行连接,ConnectionString为可读写string类型，指定一个连接字符串，告诉ADO 如何连接数据库。

conn.ConnectionString="driver={sql server};server=data_server;UID=zhanghu;pwd=youpassword;Database=student"
'sql server指明要连接的数据库类型为ms sql server 
str = "select * from login_user where name ='" & Trim(txtUserName.Text) & "'"
rs.Open str

@H_403_64@二、有源链接

@H_403_64@2 通过配置ODBC环境，进行数据源的注册，对数据库进行连接、访问和操作。

@H_403_64@2.1 ODBC数据源分为以下三类：

（1）用户DSN：只有创建数据源的用户才可以使用他们自己创建的数据源，而且只能在当前的计算机上使用。

（2）系统DSN：任何使用你的计算机的用户和程序都可以使用的DSN。

（3）文件DSN：除了具有系统DSN的功能之外，还能被其它用户在其它计算机上使用。

@H_403_64@2.2 创建ODBC数据源的步骤

（1）启动控制面板。

（2）双击ODBC图标，启动ODBC数据源。

（3）换到“用户DSN”标签，单击“添加”。选择sqlServer作为数据源的驱动程序。

（4）为数据源命名，按提示操作即可创建ODBC数据源。

@H_403_64@2.3 创建数据库连接

创建数据源是进行有源数据库连接的第一步，下面同样是运用ADO对象模型的主要元素Connection（连接）进行源数据库连接。

@H_403_64@ConnectionString是Connection对象的属性名称，提供数据提供者或服务提供者打开到数据源的连接所需要的特定信息，包括Database、DSN、UID等。

（1） Database：字符串表达式，指定服务器上的数据库名称。

（2） UID：字符串表达式，为ODBC数据源指定用户标识（用户账号名）。

（3） PWD：字符串表达式，为ODBC数据源指定用户口令。

（4） DSN：字符串表达式，指定连接的ODBC 数据源名称。

利用已配置好的ODBC数据源进行连接。

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "dsn=stud;uid=sa;pwd=;database=student"
conn.Open
Dim str As String
Set rs.ActiveConnection = conn
rs.CursorType = adOpenDynamic
str = "select * from login_user"
   rs.Open str
   txtUserName.Text = rs.Fields("name")
   txtPassword.Text = rs.Fields("password")
End Sub