Vb0连接数据库方式

1、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,pass

2、word) 的数据表， Microsoft SQL Server 服务器的名为 data_server 。代码如下：Option ExplicitPublic LoginSucceeded As Boolean'引用 Microsoft ActiveX Data Objects 2.6 Library'定义连接对象和记录集Dim conn As ADODB.ConnectionDim rs As ADODB.Recordset'对取消按钮单击事件的响应Private Sub cmdCancel_Click()'设置全局变量为 false '不提示失败的登

3、录LoginSucceeded = FalseMe.HideEnd Sub'对登录按钮单击事件的响应Private Sub cmdOK_Click()Set conn = New ADODB.ConnectionSet rs = New ADODB.Recordset'建立无源数据库连接conn.ConnectionString="driver=sql server;server=data_server;uid=sa;pwd=;Database=student" conn.ConnectionTimeout = 50conn.OpenDim str As S

4、tring'连接连接对象Set rs.ActiveConnection = conn'设置游标类型rs.CursorType = adOpenDynamicIf Trim(txtUserName.Text = "") ThenMsgBox " 用户名不能为空，请重新输入用户名！ ", vbOKOnly + vbExclamation,Ab. ii"警告" txtUserName.SetFocusElse'设置查询字符串str = "select * from login_user where name

5、 ='" & Trim(txtUserName.Text) & "'" rs.Open strIf rs.EOF = True ThenMsgBox " 没有这个用户，请重新输入用户名 !", vbOKOnly + vbExclamation, " 警 告"txtUserName.SetFocusElse'登录成功，连接主窗口If (Trim(txtPassword.Text) = Trim(rs.Fields("password") Then LoginSucce

6、eded = TrueMe.Hide main.ShowElseMsgBox "密码不正确，请重输入密码 !", , "警告" txtPassword.SetFocusSendKeys "Home+End"End IfEnd IfEnd IfEnd Sub 2 通过配置 ODBC 环境， 进行数据源的注册， 对数据库进行连接、 访问和操作。2.1 ODBC 数据源分为以下三类：（1）用户 DSN ：只有创建数据源的用户才可以使用他们自己创建的数据源，而且只能在当前的计算机上使用。（2）系统 DSN ：任何使用你的计算机的用户和程序都可

7、以使用的 DSN 。（3）文件 DSN ：除了具有系统 DSN 的功能之外，还能被其它用户在其它计算机上使用。2.2 创建 ODBC 数据源的步骤（ 1）启动控制面板。（ 2）双击 ODBC 图标，启动 ODBC 数据源。（3）换到用户DSN标签，单击添加”选择SQLServer作为数据源的驱动程序。（ 4）为数据源命名，按提示操作即可创建 ODBC 数据源。2.3 创建数据库连接 创建数据源是进行有源数据库连接的第一步，下面同样是运用 ADO 对象模型的 主要元素 Connection （连接）进行源数据库连接。ConnectionString 是 Connection 对象的属性名称，提供

8、数据提供者或服务提供 者打开到数据源的连接所需要的特定信息，包括Database 、DSN 、UID 等。( 1)Database ：字符串表达式，指定服务器上的数据库名称。(2) UID:字符串表达式，为ODBC数据源指定用户标识(用户账 号名)。(3) PWD :字符串表达式，为 ODBC 数据源指定用户口令。(4) DSN :字符串表达式，指定连接的 ODBC数据源名称。 利用已配置好的 ODBC 数据源进行连接。 实例:以建立查询系统为例，介绍有源数据库连接。创建 ODBC 数据源名称为 stud，通过ADO与数据库student进行连接，代码如下：Dim conn As ADODB.ConnectionDim rs As ADODB.RecordsetPrivate Sub Form_Load()Set conn = New ADODB.ConnectionSet rs = New ADODB.Recordsetconn.ConnectionString = "dsn=stud;uid=sa;pwd=;database=student" conn.OpenDim str As StringSet rs.ActiveConnection = connrs.CursorType = adOpenDynamicstr = "sel