在连接数据库前，首先要在Visual Basic 6.0菜单中“工程”—>“引用”中选择Microsoft ActiveX Data Objects 2.6 Library 和Microsoft ActiveX Data Objects Recordset 2.6 Library这两个组件。
实例：以建立登陆系统为例，介绍无源数据库连接。在Microsoft SQL Server 2000 中建立一个Student 的数据库，在Student数据库中建立login_user(name,password)的数据表，Microsoft SQL Server服务器的名为data_server。代码如下：
Option Explicit
Public LoginSucceeded As Boolean
'引用Microsoft ActiveX Data Objects 2.6 Library
'定义连接对象和记录集
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
'对取消按钮单击事件的响应
Private Sub cmdCancel_Click()
'设置全局变量为 false
'不提示失败的登录
LoginSucceeded = False
Me.Hide
End Sub
'对登录按钮单击事件的响应
Private Sub cmdOK_Click()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
'建立无源数据库连接
conn.ConnectionString="driver={sql server};server=data_server;uid=sa;pwd=;Database=student"
conn.ConnectionTimeout = 50
放线架
conn.Open
Dim str As String
'连接连接对象
Set rs.ActiveConnection = conn
'设置游标类型
rs.CursorType = adOpenDynamic
If Trim(txtUserName.Text = "") Then
txtUserName.SetFocus
Else
'设置查询字符串
长链二元酸
str = "select * from login_user where name ='" & Trim(txtUserName.Text) & "'"
rs.Open str
If rs.EOF = True Then
MsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "警告"
txtUserName.SetFocus
Else
'登录成功，连接主窗口
If (Trim(txtPassword.Text) = Trim(rs.Fields("password"))) Then
LoginSucceeded = True
Me.Hide
main.Show
Else
MsgBox "密码不正确，请重输入密码!", , "警告"人脸定位
txtPassword.SetFocus
生理海水SendKeys "{Home}+{End}"
End If
End If
End If
End Sub
2.1 ODBC数据源分为以下三类：
（1） 用户DSN：只有创建数据源的用户才可以使用他们自己创建的数据源，而且只能在当前的计算机上使用。
（2） 系统DSN：任何使用你的计算机的用户和程序都可以使用的DSN。
（3） 文件DSN：除了具有系统DSN的功能之外，还能被其它用户在其它计算机上使用。
2.2 创建ODBC数据源的步骤
（1） 启动控制面板。
（2） 双击ODBC图标，启动ODBC数据源。
（3） 换到“用户DSN”标签，单击“添加”。选择SQLServer作为数据源的驱动程序。
（4） 为数据源命名，按提示操作即可创建ODBC数据源。
2.3 创建数据库连接
创建数据源是进行有源数据库连接的第一步，下面同样是运用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
豫公网安备41160202000603
站长QQ:729038198
关于我们
投诉建议