VB6.0与SQL2000建立ADO无数据源连接.docVIP

VB6.0与SQL2000建立ADO无数据源连接 VB通过ADO连接SQL Server数据库可以分为有源数据库连接和无源数据库连接，区别它们看是否使用了DSN（数据源名称）来决定。 其实，“无源数据库”连接也并不是说不需要数据源，如果没有数据源则连接是纸上谈兵，只是不需要配置ODBC数据源，利用ADO就可通过代码进行连接。 1 ADO(ActiveX Data Object) 在Visual Basic6.0中，数据访问接口有三种：ActiveX数据对象（ADO）、远程数据对象（RDO）和数据访问对象（DAO）。这三种接口的每一种都分别代表该技术的不同发展阶段，最新的是ADO，它比RDO和DAO更加简单，更加灵活。对于新工程，应使用ADO作为数据访问接口。 ADO 是Microsoft 数据库应用程序开发的接口，是建立在OLE DB之上的高层数据库访问技术。它封装了OLE DB所提供的接口，比起OLE DB提供者，ADO的接口可以使程序员在更高级别上进行数据交互。ADO技术不仅可以应用于关系数据库，也可以应用于非关系数据库。可以用统一的方法对不同的文件系统进行访问，大大简化了程序编制，增加了程序的可移植性。 2 建立无源数据库连接 在连接数据库前，首先要在Visual Basic 6.0菜单中“工程”—“引用”中选择Microsoft ActiveX Data Objects 2.6 Library 和Microsoft ActiveX Data Objects Recordset 2.6 Library这两个组件。 运用ADO对象模型的主要元素：Connection（连接）中的ConnectionString属性进行连接, ConnectionString为可读写string类型，指定一个连接字符串，告诉ADO 如何连接数据库。 实例：以建立登陆系统为例，介绍无源数据库连接。在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 MsgBox 用户名不能为空，请重新输入用户名！, vbOKOnly + vbExclamation, 警告 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.SetFo