|
2.4 创建有源数据库连接
创建数据源是进行有源数据库连接的第一步，下面同样是运用ADO对象模型的主要元素Connection（连接）进行源数据库连接。
ConnectionString是Connection对象的属性名称，提供数据提供者或服务提供者打开到数据源的连接所需要的特定信息，包括Database、DSN、UID等。
（1） Database：字符串表达式，指定服务器上的数据库名称。
（2） UID：字符串表达式，为ODBC数据源指定用户标识（用户账号名）。
（3） PWD：字符串表达式，为ODBC数据源指定用户口令。
（4） DSN：字符串表达式，指定连接的ODBC 数据源名称。
利用已配置好的ODBC数据源进行连接。
实例：以建立查询系统为例，介绍有源数据库连接。创建ODBC数据源名称为stud，通过ADO与数据库student进行连接，代码如下：
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
|
|
|
