vb6.0连接sql2000数据库的具体步骤
VB用ADODC控件连接SQL SERVER 2000数据库的方法 配有插图的详细用法请看JIBEN06
l server 2000数据库的方法：1、打开vb新建“标准EXE”；2、在菜单栏点击“工程”,弹出下拉菜单，鼠标单击“部件”；3、在控件选项卡下面选择&uot;Microsoft ADO Data Control 6.0(SP6)&uot;和&uot;Microsoft DataGrid Control 6.0 (SP6)&uot;,单击“确定”按钮；4、在左侧工具中双击Adodc控件和DataGrid控件；5、挪动Form1上Adodc1和DataGrid1到合适的位置，把DataGrid1调节成合适大小；6、右击Adodc1，在弹出的下拉菜单中选择“ADODC属性”；出现属性页；单击“生成”按钮，弹出“数据链接属性”；选择&uot;Microsoft OLE DB Provider for SL Server&uot;，单击“下一步”，出现&uot;数据库链接属性&uot;；下面以连接&uot;pubs&uot;数据库为例：(1)在“选择或输入服务器名称”下面输入&uot;localhost&uot;；(2)在“输入登录服务器名称”下面，选择“使用Windows NT 集成的安全设置”，当然如果你的服务器指定的用户(3)在“在服务器上选择数据库”下面的下拉菜单中选择&uot;pubs&uot;；单击“测试连接”，弹出连接成功的信息；单击“确定”；7、在Form1空白处双击鼠标左键，弹出代码编辑窗口；在“Private Sub Form_load()”和“End Sub”之间输入下面程序段；
VB6.0连接SQLSERVER2008数据库
VB6.0连接SQLSERVER2008数据库最近在调⼀个考勤机程序，可惜是VB的，基本零基础。记录分享：
ADO控件连接数据库
1、加载ADO部件
“⼯程”->“部件”（或者Ctrl+T），然后选择以下插件，然后“应⽤”+“确定”
添加引⽤
“⼯程”->“引⽤”，选择插件Microsoft ActiveX Data Object 2.5 Library，“应⽤”+“确认”
这两步的⽬的我猜测是添加了连接数据库的插件，有点像java⾥的jar包。
2、⽣成连接串
部件添加成功后，左侧的控件栏就能看到这个图标：
⽤这个控件在界⾯任意⼀处画出⼀个控件实例
右键该实例，选择Adobc属性，点击⽣成按钮，
在下图中选择“Microsoft OLE DB Provider for SQL Server”->“下⼀步”，
1、服务器名称如果是本地，可能刷新或者输⼊127.0.0.1即可，如果是远程服务器，就输⼊那台服务器的IP地址，我是连的远程服务器，输⼊了IP地址。
2、我选的是使⽤指定的⽤户名和密码，输⼊数据库的登录⽤户名和密码，然后选择允许保存密码。
3、如果⽹是通的，在服务器上选择数据库下⾯会⾃动弹出你的⽤户下的数据库，选择需要连接的即可，最后点击测试连接，基本都能通过。
测试链接通过后“确定”，最后把“连接字符串”全部拷贝出来，然后把控件删了。是的，我们仅仅是要那个字符串⽽已。
代码链接部分
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
在VB6.0里如何使用ADO与SQL SERVER进行连接与存取方法
在VB6.0里如何使用ADO与SQL SERVER进行连接与存取
方法
林和平
【期刊名称】《电脑开发与应用》
【年(卷),期】2001(014)010
【摘要】@@ ADO数据访问技术是目前比较先进的和较常使用的技术,在VB6.0里如何使用ADO数据库访问,介绍方法如下:
【总页数】1页(P46)
【作者】林和平
【作者单位】集美大学
【正文语种】中文
【中图分类】TP3
【相关文献】
1.基于ADO的SQL Server图形数据库的存取方法 [J], 周毅仁;王克鸿;韩杰
2.VB6.0的ADO控件与SQL Server2000的数据交换 [J], 郭辉
3.VB6.0与SQL Server 2000的数据库连接方案比较 [J], 姚晓玲;孔德瑾
4.VB6.0下用ADO实现对SQLServer中图像数据的远程存取 [J], 郭伟;张威
5.使用链接服务器连接SQLServer和Oracle使用连接把Oracle数据集成到SQLServer应用程序中 [J], Michael Otey; 徐瑾（译）
因版权原因，仅展示原文概要，查看原文内容请购买
VB连接SQL Server 2000方法及技巧
VB连接SQL Server 2000方法及技巧
1.通知VB ADO存在
方法：VB→工程→引用→选择“可用的引用（A）”中的Microsoft ActiveX Data Objects 2.6 Library→确定。
2.连接数据库需要知道什么？
3.VB连接DB分三步走；（1）定义一个连接线，（2）为连接线配置连接字符串，（3）连接。
Private Sub Form_Load()
Dim name As ADODB.Connection
//定义一个连接数据库的连接线，name为该连接线的名称//
Set name = New ADODB.Connection
//为变量name分配连接线需要多大的空间//（第一部分第一步）
name.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=student_Mis;Data Source=."
//确定连接什么类型的数据库，即确定连接字符串（又下划线部分）//（第一部分第二步）
name.Open
//连接数据库//（第一部分第二步）
MsgBoxname.state（该语句只用于检查数据库是否已连接上，使用后应删除）
第二部分：如何取出数据库中数据
Dim rname As ADODB.Recordset
//定义一个记录集变量，rname为变量名//（第二部分第一步）
Set rname = New ADODB.Recordset
VB与数据库连接的几种方法
VB与数据库连接的几种方法
在VB中，有多种方法可以连接数据库。以下是几种常见的方法：
1. 使用OLE DB连接：OLE DB是Microsoft提供的一种连接数据库的标准接口，可以连接各种类型的数据库。可以通过VB中的
ADO(ActiveX Data Objects)对象来使用OLE DB连接数据库。以下是一个使用OLE DB连接数据库的示例代码：
```
Dim conn As New ADODB.Connection
conn.ConnectionString = "Provider=SQLOLEDB;Data
Source=ServerName;Initial Catalog=DatabaseName;User
ID=Username;Password=Password"
conn.Open
```
上述代码中，通过设置ConnectionString属性来指定数据库连接字符串，其中包含了数据库类型、服务器名称、数据库名称、用户名和密码等信息。然后调用Open方法打开数据库连接。
2. 使用ODBC连接：ODBC(Open Database Connectivity)也是一种标准的数据库连接接口，可以连接多种类型的数据库。可以通过VB中的ODBC对象来使用ODBC连接数据库。以下是一个使用ODBC连接数据库的示例代码：
```
Dim conn As New ADODB.Connection
conn.ConnectionString = "Driver={SQL Server Native Client 11.0};Server=ServerName;Database=DatabaseName;Uid=Username;Pwd=P assword;"
VB与数据库连接的几种方法
VB与数据库连接的几种方法
在VB中，与数据库进行连接的方式有多种，可以根据不同的需求选
择不同的方法。下面将介绍几种常用的连接数据库的方法。
1.使用ADO连接数据库：
ADO（ActiveX Data Objects）是一种用于连接数据库的COM组件，
它提供了一套广泛的API，用于与各种数据库进行交互。使用ADO连接数
据库的基本步骤如下：
（1）引入ADO组件：在VB的项目中，需要通过引入ADO组件来使用ADO的功能。在“项目”菜单中选择“引用”，然后勾选“微软ActiveX
数据对象库”即可。
（2）创建连接对象和命令对象：使用ADO连接到数据库需要创建两
个核心对象，即连接对象和命令对象。连接对象用于建立与数据库的连接，命令对象用于执行SQL语句。
（3）打开数据库连接：使用连接对象的Open方法来打开数据库连接。
（4）执行SQL语句：使用命令对象的Execute方法执行SQL语句，
可以执行查询、插入、更新、删除等操作。
（5）关闭数据库连接：使用连接对象的Close方法关闭数据库连接。
2.使用ODBC连接数据库：
ODBC（Open Database Connectivity）是一种通用的数据库访问接口，可以连接各种类型的数据库，包括Access、SQL Server、MySQL等。VB
提供了对ODBC的支持，可以使用ODBC连接数据库。
（1）设置ODBC数据源：在Windows的“控制面板”中选择“管理工具”->“ODBC数据源”，配置一个ODBC数据源，指定要连接的数据库。
（2）在VB中连接数据库：在VB中使用ODBC连接数据库需要通过ODBC数据源名来建立连接。例如：
如何在VB中连接数据库
如何在VB中连接数据库
一、连接方式
1、ODBC数据库连接
打开新工程，在菜单栏上选择“工具”-“Data Links”，可以看到“数据链接”对话框，点击“新建”按钮，此时可以看到“ODBC
Microsoft登录”对话框，点击“帐户”按钮，此时可以看到“ODBC Microsoft登录”对话框，在“服务器”框中填入数据库服务器的IP地址，在“用户名”和“口令”框中填入账号和密码，点击“测试”按钮，
确认能够通过测试，然后点击“完成”按钮，可以得到正确的数据库连接。
2、ADO连接
在工程中添加引用，选择Microsoft ActiveX Data Object 2.8 Library（或者是更高版本），在程序中添加如下代码：
Private Sub Form_Loa
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
End Sub
其中，Data Source指定数据库的IP地址，Initial Catalog指定数
据库名，User ID指定数据库用户名，Password指定数据库口令。
3、DAO连接
打开新工程，在菜单栏上选择“工具”-“Data Links”，可以看到“数据链接”对话框，点击“新建”按钮，此时可以看到“DAO
Microsoft登录”对话框，在“服务器”框中填入数据库服务器的IP地址，在“用户名”和“口令”框中填入账号和密码，点击“测试”按钮，
确认能够通过测试，然后点击“完成”按钮，可以得到正确的数据库连接。
vb6.0开发实例
vb6.0开发实例
Visual Basic 6.0（VB6.0）是一款经典的集成开发环境（IDE），用于Windows平台的软件开发。本文将通过一个简单的实例来演示如何使用VB6.0创建一个学生成绩管理系统，旨在帮助初学者了解VB6.0的基本开发过程。
一、新建项目：打开VB6.0，选择“标准EXE”模板，创建一个新项目。接下来，设计一个简单的窗体，包括学生姓名、学号、数学成绩和英语成绩等基本信息的输入框。
二、设计数据库：在VB6.0中，我们可以使用Access数据库作为后台数据库。创建一个名为"StudentDB.mdb"的Access数据库，其中包含一个名为"StudentTable"的表，用于存储学生信息（姓名、学号、数学成绩、英语成绩）。
三、连接数据库：在VB6.0的窗体上添加ADO控件，用于与数据库进行交互。通过ADO控件建立与"StudentDB.mdb"数据库的连接，并在代码中编写SQL语句，实现数据的插入、更新、删除和查询等操作。' 连接数据库
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Dat a Source="& App.Path & "\StudentDB.mdb;Persist Security Info=Fal se"
Adodc1.Refresh
End Sub
四、添加按钮和事件处理：在窗体上添加按钮，如“添加记录”、“更新记录”、“删除记录”、“查询记录”等。通过按钮的Click事件处理程序，调用相应的SQL语句实现对数据库的操作。
[doc]基于VB6．0编程实现SQL数据任意条件查询
![[doc]基于VB6．0编程实现SQL数据任意条件查询](https://img.taocdn.com/s3/m/fc33a91d78563c1ec5da50e2524de518964bd3ce.png)
基于VB6．0编程实现SQL数据任意条件
查询
基孑V?O.
摘要本文介绍了用VB6.0中标准控件与SQL语言中的SELECT查询语句实现数据任
意条件查询,数据简单的统计及通过Excel报表输出等内容.
关键词VB6.0,控件,SQL
一
,前言
在Windows操作系统中,VisualBasic是简单,常用的数
据库开发平台,通过它可以在很短的时间内开发出高效,美观
的数据库应用程序,这正是目前许多用户仍然采用Visw,dBa—
sic作为开发大,中型数据库应用系统的原因.
SQL(StructureQueryLanguage)是一个标准的结构化查询
语言.功能强,效率高,简单易学易维护,是数据库和数据库
系统人机交互的接口,SQL现已成为数据库操作语言的通用语
言.
在数据库的实际应用中,SELECT语句足SQL的核心,使
用非常频繁,利用它可以实现不同要求的数据查询,并把查询
结果以表格的形式返回.为了实现不同要求的数据查询,用户
首先必须根据实际要求的动态条件,自动生成SQL查询语句(SELECT语句).一般情况下,系统设计者在定义数据表结
构时,字段名往往使用英文字符名,而用户在组织条件时,如
果根据英文字段名进行组织,叉很不直观,明白,丁是用户希
望在组织条件时,用英文字段名相对应的中文含义名进行条件组织.而系统在执行时自动转化为标准的,系统能够识别的SELECT语句.
二,实例
在开发人力资源管理系统中,用户要求员工基本信息表中
任意一个字段均能任意选择动忿条件输出,也能利用这些字段动态组织多重条件.同时,输出的数据信息能够进行简单的计数,排序,数据导入Excel后,能够打印出符合用户要求的各
VB中使用语句创建SQL数据库等操作
VB中使用语句创建SQL数据库等操作(转载)
发表:xhlbwb阅读: 1257次关键字：不详字体:[大中小]
这个小工具由VB开发，利用ADO 访问数据库，实现更改数据库结构，其他语言也可以此作为参考。启动VB6.0，新建一个工程,在菜单-工程-引用里选"Microsoft ActiveX Data Objects 2.0 Library",代码里需要有
dim conn As New ADODB.Connection
定义ADO数据库对象
conn.ConnectionString = "driver={SQL Server};" & _
"server=" & ServerName & ";uid=" & UserName & ";
pwd=" & Password & ";database=" & DatabaseName & ""
连接数据串
conn.open 连接数据库
注：ServerName为服务器名；UserName为用户名；Password为用户口令； DatabaseName 要登录的数据库名，可以为空。
核心代码如下：
一、建立数据库
原理：建立数据库先要初始化一个数据库设备，然后在此设备上建立数据库。所有的设备名在系统表"sysdevices"里有记录，所有的数据库名在系统表"sysdatabases"里有记录。在建立之前，最好先查询这两个系统表，看名称是否已经存在。在建立设备之前，还需要的一个物理名和空闲的设备标识号。
初始化设备语法：
DISK INIT NAME="device_name",PHYNAME=
VB与SQL数据库连接
一、还有怎样用VB与我建立的SQL数据库连接
---------------------------------------------
1.使用ODBC DSN连接字符串
DSN=mySystemDSN;Uid=myUsername;Pwd=myPassword
----------------------------------------------
2.使用无ODBC DSN的连接字符串
(1)标准安全性
Driver={SQL Server};Server=MyServerName;DataBase=myDatabaseName; _
Uid=myUsername;Pwd=myPassword
------------------------------------------------
(2)信任连接(分两种）
1）连接字符串1
Driver={SQL Server};Server=MyServerName;DataBase=myDatabaseName;Uid=;Pwd=；2）连接字符串2
Driver={SQL
Server};Server=MyServerName;DataBase=myDatabaseName;Trusted_Connection=yes
---------------------------------------------------------------------------
(3)连接本地SQL SERVER
Driver={SQL Server};Server=(local);DataBase=myDatabaseName; _
vb连接sql数据库的模块以与使用实例
使用实例
使用ODBC连接SQL数据库
什么是ODBC？ 如何安装ODBC驱动程序？ 如何配置ODBC数据源？ 如何使用VB连接SQL数据库？ 示例代码和运行结果。
使用ADO连接SQL数据库
导入ADO库：在VB中导入ADO库，以便使用ADO对象 创建连接对象：使用ADODB.Connection对象创建连接 打开连接：使用Open方法打开连接 执行SQL语句：使用Execute方法执行SQL语句 处理结果集：使用Recordset对象处理结果集 关闭连接：使用Close方法关闭连接
模块名称：OLE DB Provider for SQL Server
功能：提供与SQL Server数据库的连接
使用方法：在VB中导入OLE DB Provider for SQL Server模块，然后使用其提供的方法与SQL Server数据 库建立连接
注意事项：在使用OLE DB Provider for SQL Server模块时，需要注意SQL Server数据库的版本和兼容性 问题，以及连接字符串的格式和参数设置。
添加副标题
VB连接SQL数据库的模块和 使用实例
汇报人：
目录
C O N T E N TS
01 添加目录标题 02 VB连接SQL数据库的模块 03 使用实例
添加章节标题
VB连接SQL数据库的模 块
VB与数据库的连接步骤以相关语句
vb6.0连接
sql2000数据库的具体步骤
1．定义连接对象
Global DBconnect As New ADODB.Connection2．执行连
接语句
If DBconnect.State = adStateOpen And Not IsEmpty(adStateOpen) Then DBconnect.Closel连接
ODBC DBconnect.ConnectionString = "dsn
1．定义连接对象
Global DBconnect As New ADODB.Connection
2．执行连接语句
If DBconnect.State = adStateOpen And Not IsEmpty(adStateOpen) Then
DBconnect.Close
l连接
ODBC
DBconnect.ConnectionString=
"dsn=DataAliasName;uid=UserID;pwd=Passwd;"
l直接连接
Access为
Dbconnect.Provider = "Microsoft.jet.OLEDB.4.0" // Access 97为
3.51
DBconnect.ConnectionString = "FilePathFileName.mdb"
l连接
Oracle
DBconnect.Provider = "MSADORA"
DBconnect.ConnectionString = "user/mypass@servicename
l连接
SQL Server
DBconnect.Provider = "SQLOLEDB.1"
VBSQL编程基础教程
VBSQL编程基础教程
VB（Visual Basic）是一种流行的编程语言，常用于开发Windows平
台上的应用程序。在VB中，可以使用SQL（Structured Query Language）来处理和管理数据库。本文将介绍VB的SQL编程基础知识，包括连接数
据库、执行SQL查询、更新数据等常用操作。
首先，连接数据库是进行SQL编程的第一步。VB提供了多种连接数
据库的方式，最常用的是通过ADO（ActiveX Data Objects）对象来连接
数据库。ADO是VB中用于访问数据库的一套组件。通常使用
ADODB.Connection对象来建立数据库连接。以下是连接数据库的基本代码：
```
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
conn.Open
```
连接数据库成功后，就可以执行SQL查询了。可以使用
ADODB.Recordset对象来执行查询，并获取查询结果。以下是执行SQL查
询的基本代码：
```
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "SELECT * FROM Customers", conn
'遍历查询结果
Do Until rs.EOF
'处理查询结果
'...
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
```
以上代码执行了一个简单的SELECT查询，从"Customers"表中获取所有记录。通过遍历Recordset对象的记录集，可以对查询结果进行处理。
教你如何从VB访问SQL Server数据库
如何从VB访问SQL Server数据库
引言
SQL Server是微软推出的中小型网络数据库系统，是目前最常用的数据库系统之一。随着SQL Server网络数据库应用程序日益增多，这种Web数据库应用系统的正常运行一般依赖于已存在的用户数据库。创建维护数据库的工作可用SQL Server提供的SQL Enterprise Manager工具来进行，如能提供一种定制的数据库管理工具，通过管理应用程序来管理数据库及其设备，对用户来说无疑是最理想的。
Visual Basic作为一种面向对象的可视化编程工具，具有简单易学，灵活方便和易于扩充的特点。而且Microsoft为其提供了与SQL Server通信的API函数集及工具集，因此它越来越多地用作大型公司数据和客户机—服务器应用程序的前端，与后端的Microsoft SQL Server相结合，VB能够提供一个高性能的客户机—服务器方案。
VB访问SQL Server数据的常用方法
使用Visual Basic作为前端开发语言，与SQL Server接口有几种常用的方法，即：
①数据访问对象/Jet
②为ODBC API编程
③使用SQL Server的Visual Basic库(VBSQL)为DB库的API编程
④RDO 远程数据对象(RemoteData Objects)
⑤ADO 数据对象(Active Data Objects)
1、数据访问对象/Jet
VB支持Data Access Objects(DAOs)的子集。DAO的方法虽然不是性能最好的管理客户机—服务器之间的对话方式，但它的确有许多优点。DAO/Jet是为了实现从VB访问Access 数据库而开发的程序接口对象。使用DAOs访问SQL Server的过程如下：应用程序准备好语句并送至Jet，Jet引擎(MASJT200.DLL)优化查询，载入驱动程序管理器并与之通讯，驱动程
VB与SQL Server连接的三种方式
VB与SQL Server连接的三种方式（教程）
随着大家课程设计的临近，大家都在为课程设计在找资料。网上的、书上的等一些资料很全面都不符合我们的实际，我本人特整理出VB与SQL Server连接的几种方法，供大家学习参考，也希望大家能够互相帮助，共同完美地完成这次的课程设计。
一、一.VB与SQL Server连接方法一：使用Adodc控件
在vb的工程中选择部件，可添加Adodc部件如下图所示：
添加Microsoft ADO Data Control 6.0 控件。
设置adodc控件的属性（在vb中画一个adodc控件，并右击，弹出右键菜单，选择adodc属性）：
单击生成按钮，弹出数据链接属性，选择Microsoft OLE DB Provider for SQL Server
下一步，选择本机的服务器（一定要和SQL服务器的名称一致），根据自己的登陆设置选择输入登录服务器的信息，选择自己需要使用的数据库（在本例中我选择创建的student数据库），可以测试连接。
在回到adodc属性页，更改记录源，在命令类型中选择2，在表或存储过程名称中选择你需要使用的表或存储过程。
在添加一些需要的控件，设置控件的属性，本例中一设置text1属性为例。
单击text1，在vb的属性框中出现text1属性，设置DataSoure属性为一配置好的adodc1控件，在DataFileld属性中选择需要使用的表中的字段(这里我选择学生基本信息表中的学号字段。)可以运行了，界面如下：
大家可以通过上面的方法连接数据库，并可以通过vb的学习编写代码实现更强大的功能。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
vb6.0连接sql2000数据库的具体步骤
悬赏分：200|解决时间：2010-3-1310:01|提问者：能者天下
初学vb6.0，希望能有具体的步骤，我用sql做的是一个学生成绩管理系统，要做前台界面，用vb做，无从下手，望高手指点了，谢谢！有详细视频教程的网站或现成的视频也可以。
最佳答案
VB6.0使用ADO对象连接数据库：
有偿征集原创文章，为您创收投递文章减小字体增大字体
1．定义连接对象Global DBconnect As New ADODB.Connection2．执行连接语句If DBconnect.State=adStateOpen And Not IsEmpty(adStateOpen) Then DBconnect.Close l连接ODBC DBconnect.ConnectionString="dsn
1．定义连接对象
Global DBconnect As New ADODB.Connection
2．执行连接语句
If DBconnect.State=adStateOpen And Not IsEmpty(adStateOpen)Then DBconnect.Close
λ连接ODBC
DBconnect.ConnectionString=
"dsn=DataAliasName;uid=UserID;pwd=Passwd;"
λ直接连接Access为
Dbconnect.Provider="Microsoft.jet.OLEDB.4.0"//Access97为3.51 DBconnect.ConnectionString="FilePathFileName.mdb"
λ连接Oracle
DBconnect.Provider="MSADORA"
DBconnect.ConnectionString="user/mypass@servicename
λ连接SQL Server
DBconnect.Provider="SQLOLEDB.1"
DBconnect.ConnectionString="DATABASE=;SERVER=;UID=;PWD=;"
或者可以使用DBconnect.Open"SERVER","USERID","PASSWORD" DBConnect.Open
3．取查询结果集
Global RS As New ADODB.Recordset
Global PS As New ADODB.Recordset
If RS.State=adStateOpen And Not IsEmpty(adStateOpen)Then RS.Close RS.Open SQLStr,DBconnect,adOpenKeyset
4．执行SQL语句
DBconn.Execute SQLStr
5．关闭数据库
DBconnect.Close
VB使用ADO数据库可以分为有源数据库和无源数据库，即是否使用了DSN数据源，如下例：
1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择microsoft activeX Data objects2.6library和microsoft activeX Data objects recordset2.6两个组件，这是在连接数据前所必做的工作。
2、接下来定义ADO的连接对象，如下所示：
Set conn=New ADODB.Connection
Set rs=New ADODB.Recordset
第一种方法采用的是无源的数据库连接方法
conn.ConnectionString="Driver={sql
server};server=JSZX3-11;uid=sa;pwd=;database=wzc"
conn.ConnectionTimeout=30
conn.Open
rs.Open"select用户名,密码from login where用户名='"&Trim(Combo1.Text) &"'And密码='"&Trim(Text1.Text)&"'",conn,adOpenStatic, adLockReadOnly,adCmdText
If rs.EOF=True And rs.BOF Then
m=MsgBox("请重新登录",vbExclamation)
Text1.Text=""
Text1.SetFocus
Else
Form1.Hide
End If
rs.Close
这是第二种方法连接数据库的方法，这一种方法是采用有源的方法与数据库连接的方法，代码如下所示：
Set conn=New ADODB.Connection
Set rs=New ADODB.Recordset
conn.ConnectionString="DSN=login;uid=sa;pwd=;"
conn.ConnectionTimeout=30
conn.Open
rs.Open"select用户名from login",conn,adOpenStatic,adLockReadOnly, adCmdText
Dim i As String
For t=0To Val(rs.RecordCount)-1
i=Trim(rs.Fields("用户名").Value)
rs.MoveNext
Combo1.AddItem i
Next t