Vb6.0连接数据库方式.docVIP

Vb6.0连数据库 1.1 ADO(ActiveX Data Object)连接方式 在连接数据库前，首先要在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 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.SetFocus SendKeys {Home}+{End} End If End If End If End Sub 2 通过配置ODBC环境，进行数据源的注册，对数据库进行连接、访问和操作。 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对象的属性名称，提供数据提供者或服务提供者打开到数据源的连接所需要的特定信息，包括