vb与sqlserver连接的三种方式

路漫漫其修远兮，吾将上下而求索 - 百度文库

11 VB 与SQL Server 连接的三种方式（教程）

随着大家课程设计的临近，大家都在为课程设计在找资料。网上的、书上的等一些资料很全面都不符合我们的实际，我本人特整理出VB 与SQL Server 连接的几种方法，供大家学习参考，也希望大家能够互相帮助，共同完美地完成这次的课程设计。

一、 一.VB 与SQL Server 连接方法一：使用Adodc 控件

在vb 的工程中选择部件，可添加Adodc 部件如下图所示：

添加Microsoft ADO Data Control 6.0 控件。

设置adodc 控件的属性（在vb 中画一个adodc

控件，并右击，弹出右键菜单，选择adodc 属性）：

路漫漫其修远兮，吾将上下而求索 - 百度文库

22 单击生成按钮，弹出数据链接属性，选择Microsoft OLE DB Provider for SQL Server

下一步，选择本机的服务器（一定要和SQL 服务器的名称一致），根据自己的登陆设置选择输入登录服务器的信息，选择自己需要使用的数据库（在本例中我选择创建的student 数据库），可以测试连接。

在回到

adodc 属性页，更改记录源，在命令类型中选择

2，在表或存储过程名称中选择你需要使用的表或存储过程。

路漫漫其修远兮，吾将上下而求索 - 百度文库

33

在添加一些需要的控件，设置控件的属性，本例中一设置text1属性为例。

单击text1，在vb 的属性框中出现text1属性，设置DataSoure 属性为一配置好的adodc1控件，在DataFileld

属性中选择需要使用的表中的字段

(这里我选择学生基本信息表中的学号字段。)可以运行了，界面如下：

路漫漫其修远兮，吾将上下而求索 - 百度文库

44

大家可以通过上面的方法连接数据库，并可以通过vb 的学习编写代码实现更强大的功能。

二、VB 与SQL Server 连接方法二（使用DSN 方法）

我们需要首先做的事就是配置自己的DSN ，如何配置，请看我一一到来：

在控制面板里管理工具，选择里面的数据源 (ODBC)，弹出ODBC 数据源管理器，选择添加，

选择驱动程序（

SQL Server ）

点完成，弹出创建到SQL Server 的新数据源，

路漫漫其修远兮，吾将上下而求索 - 百度文库

在名称中选择自己喜欢的都可以哦，在服务器中粘贴你服务器的名称（一定要使用粘贴，不可通过下拉框选择，实际上，你通过下拉框也不能选择。）

点下一步

点下一步了（这步就不用我说了吧）

55

路漫漫其修远兮，吾将上下而求索 - 百度文库

更改默认的数据库，选择自己创建的需要的数据库名称（本例中我选择student 数据库）

点下一步

点完成，弹出

可以测试数据源，

66

路漫漫其修远兮，吾将上下而求索 - 百度文库

77

点确定，再三次点确定。DSN 即配置完毕，那就看我们怎么使用了。 打开vb 。像上面介绍的添加adodc 控件，并设置adodc 控件的属性：

选择使用ODBC

数据资源名称。通过下拉框选择刚创建的

DSN

（stu ） 点击应用，然后选择积累源，

路漫漫其修远兮，吾将上下而求索 - 百度文库

确定。后面跟第一种方法都一样了。（不会这写步骤的再和我联系）

二、三.VB与SQL Server连接方法三（使用代码实现）

使用此种方法一定要在工程的引用项中配置一个驱动，（Microsoft ActiveX Data Objects 2.6 Library）确定。

再在一些控件的代码中添加以下代码：

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Private Sub Command1_Click()

cn.ConnectionString = "DRIVER=SQLServer;SERVER=B1B0D3A0BF844A5\MZ;UID=" & "" & ";PWD=" & "" & ";DATABASE=student"

cn.Open

rs.Open "select *from 学生基本信息表", cn, adOpenKeyset, adLockOptimistic

If rs.RecordCount > 0 Then

rs.MoveFirst

End If

For i = 0 To rs.RecordCount - 1

Print rs.Fields(0), rs.Fields(1), rs.Fields(2), rs.Fields(3), rs.Fields(4), rs.Fields(5)

rs.MoveNext

Next

End Sub

88