趣说VB连接数据库

通过图文说明VB连接ACCESS数据库，不想记住都难。

1、先展示图片1，说明数据库连接的8个步骤。

导入语：先来听一段关于。从前有个名叫VB的工人，从家里出发前往“学考成绩"仓库的”高二段" 房间取货物程序取回货物。。。。。。

(学生对照图文）。。。。。。

最后离开之前，别忘记关闭房间之门和仓库之门。

2、经过上面的取货物故事，了解了去数据库取货物的原理，对照图1，学生自学图2的原理(类比图1)。

3、展示图3的代码，供学生自学。

4、给出课堂练习。

连接数据库

3.JPG(3.05 MB, 下载次数: 31)

趣说连接数据库3

2.JPG(

3.25 MB, 下载次数: 37)

趣说连接数据库2

1.JPG(3.46 MB, 下载次数: 22)趣说连接数据库1

vb6.0连接sql2000数据库的具体步骤

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

VB如何连接ACCESS数据库详解

首先有一点要注意,数据库的使用与我们以往所使用的文本文件不同.例如我们使用文本文件,来记录各种有用的数据.那么大致有以下几步: 读取文件 -- 格式化数据 -- 关闭文件 -- 使用数据 如果数据量较大,需要进行筛选,且存放数据的源文件可能不定时变更,那么我们可以用一个临时文件来存放有用的数据,这样可大大提高程序的效率.要[格式化数据]时,我们首先要进行筛选,然后还得进行分类,这样文件中的字符串才能被转换成有用的信息来供程序使用.这样一来,不用说,处理速度将大大减慢,而且就算你设计的数据格式比较科学,当数据量非常大时,文件的容量也会变的让普通计算机无法承受. 相对文本文件来说数据库的使用也大致分为以下几步: 打开数据库 -- 查找数据 -- 使用数据 -- 关闭数据库 从中可以看出,里面少了一步格式化数据,因为数据库本身在存储数据时,它就是按照一定的格式来进行存储的. 其次是,数据库与文本文件返回数据的方法不同.如果把文本文件比作一个Textbox 的话,那么数据库更像是一个ListBox.使用文本文件时我们需要从整个Textbox中取出有用的信息,并进行处理,而Listbox则可以根据需要返回特定的某一项. 由于VB本身并不带有可以访问数据库的类,所以我们需要引用一个包含能访问数据库的类来使用数据库.这里我们采用ADODB,相比DAO和能访问数据库的API 来说,它比DAO更灵活,更强大;而比起API,它更简单易用,更适合初学者.而Access数据库比起SQL,也相对简单了很多,且能够满足中小型应用程序的需要,所以我们在使用数据库时,选择了Access. 就像使用文本文件来存储数据一样,我们需要先设计好数据结构,只不过在设计Access数据库的结构时,我们需要用到其它的程序来进行详细的规划.建议采用的程序是office中的Access或VB自带的VISDATA. 当数据库设计好了以后,我们可以开始"数据库编程"了. 首先,我们需要引用ADO.具体的方法是,在"工程" -- "引用" 中,找到"Microsoft ActiveX Data Object *.* Library",这里的"*.*"是指的时ADO的版本号,一般来说,应用程序或ActiveX控件都具有向下兼容性,所以我们尽可能选择比较新的版本.以确保程序在能识别旧版本Access的同时,也能识别较新版本的Access. 然后我们需要在程序中创建一个对象.就好比我们在窗体上添加一个FileBox才能看到文件名一样,只有创建了ADO对象,我们才能够访问数据库.常用的对象有两个,Connection和Recordset.

VB+数据库编程之+ADO+连接数据库实例

VB 数据库编程之 ADO 连接数据库实例 这里先说说ADO的ACCESS数据库连接吧，两种。 1.ADO控件连接 “工程”菜单→“部件...”：Microsoft ADO Data Control 6.0 (SP6) (OLEDB) 并将Adodc数据控件绘入窗体。 右击Adodc数据控件→属性→使用连接字符串→生成→Microsoft Jet 4.0 OLE DB Provider→数据位置→找到要连接的ACCESS数据库文件…… Adodc数据控件的RecordSource属性为“2 - adcmdTable”和你要连接的表名。 控件的引用实例如下： '组合框（Combo）控件列表用某字段数据记录填充范例 '在窗体Load事件或Combo的相关事件中写入 '循环1到记录总数 For i = 1 To Adodc1.Recordset.RecordCount '如果不在记录集结尾则 If Not Adodc1.Recordset.EOF Then '组合框增加一行：“姓名”字段的值 Combo1.AddItem Adodc1.Recordset.Fields("姓名").Value '记录指针向后一个 Adodc1.Recordset.Movenext End If Next i 2.ADO代码连接 通用声明 Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim cmd As New https://www.sodocs.net/doc/004962460.html,mand Private Sub Form_Load() '实例化Connection对象 Set cn = New ADODB.Connection cn.CursorLocation = adUseClient cn.Open "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & App.Path & "\personnel.mdb;" 'Recordset对象 Set rs = New ADODB.Recordset rs.Open "职工信息", cn, adOpenDynamic, adLockOptimistic

(完整版)vb连接access数据库及数据读写操作

ACCESS数据库和VB的连接 Edited by Ryan 2013 1、建立Access数据库 2、启动VB，建立标准EXE 图1 3、添加ActiveX控件 鼠标指向任意VB控件，单击右键，选择“部件（O）”，出现图3所示界面 图2

图3 选择部件“Microsoft ADO Data Control 6.0 (OLEDB)”，出现如图4所示控件 图4

4、添加控件Adodc 图5 4、在控件Adodc上添加数据源 鼠标指向控件Adodc1，单击右键，选择“ADODC 属性”，弹出如图7所示界面 图6

图7 单击“生成(U). . .”，弹出如图8所示界面 图8 选择“Microsoft Jet 4.0 OLE DB Provider”，单击“下一步(N) >>”，弹出如图9所示界面

图9 单击“. . .”，添加数据源（第一步所建Access 数据库），如图10所示 图10 单击“测试连接（T）”，出现提示框，如图11所示 图11 之后点击“确定”，退回到如图12所示界面

图12 单击“记录源”，弹出如图13所示界面 图13 在“命令类型”下，选择“1 - adCmdText”，在“命令文本（SQL）”下，输入“Select * from test1”，最后单击“应用”，“确定”即可 之后，进入程序书写部分 程序部分需要注意接头形式及简单例子如下： Private Sub Command1_Click() ‘VB按钮控件 Dim mydb As New ADODB.Connection ‘定义新的数据库连接 mydb.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\read database\test1\test1.mdb" ‘数据库绝对路径 Dim rs As New ADODB.Recordset ‘定义数据库的一个对象 mydb.Open ‘打开数据库 rs.Open "select * from test1", mydb, 3, 3 ‘打开数据库中的表test1

第七讲 VB访问SQL Server2000数据库的方法

第七讲 VB访问SQL Server2000数据库的方法 一、ODBC数据源设置 1、ODBC简介 ODBC Open DatabaseConnectivity开放式数据库互连）是Mircosoft公司有关数据库的一个组成部分，它建立了一组规范，并提供了一组对数据库访问的标准API Application应用程序编程接口）。这些API利用SQL来完成大部分的任务。ODBC本身提供对SQL语言的支持，用户可以直接将SQL送给ODBC一个基于ODBC的应用程序对数据库操作不依赖于任何DBMS，不直接与DBMS打交道，所有数据库操作由ODBC驱动程序完成。 2、ODBC数据源的创建（建立ODBC数据源） 前台系统Windows 2000 professional系统，后台Windows 2000 Server系统。以Windows 2000 professional为例： （1）单击“开始”/设置/控制面板/管理工具/数据源ODBC,打开“ODBC数据源管理器”，选择“用户DSN or 系统DSN”，单击【添加】按钮，打开“创建用户数据源”对话框，选择“SQL Server”，单击【完成】按钮。

（2）打开“创建新的数据源到SQL Server”窗口： ○1你想用什么名称命名数据源：在名称框中输入xn。 ○2服务器：为网络中数据库服务器（默认是本地服务器Local，可选远程服务器IP）。 ○3登陆ID：xn密码：xn（取决于安装SQL时所指定的密码）。特别注意此处为确保数据库安全起见，数据库管理员可以给用户指定一个用户名及密码。这里为简便起见使用管理员用户名及密码。 ○4更改数据库为：aa（所要使用的数据库）。

VB通过ADO连接SQL数据的两种方法

VB通过ADO连接SQL数据的两种方法 VB使用ADO数据库可以分为有源数据库和无源数据库，即是否使用了DSN数据源，如下例： 1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择microsoft active X Data objects 2.6 library和microsoft activeX Data objects recordset 2.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.Te xt) & ' And 密码=' & Trim(Text1.Text) & ', conn, adOpenStatic, adLockRe adOnly, 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 = 0 To Val(rs.RecordCount) - 1 i = Trim(rs.Fields(用户名).Value) rs.MoveNext Combo1.AddItem i Next t rs.Close 连接数据库的方法很多很多，只要各位去勇敢的偿试一下，就可以感觉数据库的方法并不是很难，本人以前也很想做这方法的工作，只是学识不深，未能完成胸

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的学习编写代码实现更强大的功能。 二、VB与SQL Server连接方法二（使用DSN方法） 我们需要首先做的事就是配置自己的DSN，如何配置，请看我一一到来： 在控制面板里管理工具，选择里面的数据源 (ODBC)，弹出ODBC数据源管理器，选择添加， 选择驱动程序（SQL Server） 点完成，弹出创建到SQL Server的新数据源，

vb连接access数据库常用的方法两种示例

创作编号： GB8878185555334563BT9125XW 创作者：凤呜大王* 这里以链接access数据库为例。 第一部分是通过语句链接，第二部分是通过控件链接一、 通过语句链接数据库，然后把相应的数据赋值给某个文本框就行了。 1.首先定义几个全局变量 Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim constr As String 2.给这些变量赋值，方便链接数据库 constr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=D:\EffectSolution\科学效应数据库.mdb" 红色部分写你自己的数据库路径。 3.打开数据库 cn.open constr 打开表 rs.open “select * from 效应表where id=5“，cn 取字符串并赋值给相应的文本 Text1.text=rs.fields(“效应和现象名称”) Text2.text=rs.fields(“文字解说”) 关闭表

rs.close 关闭数据库 cn.close 注意，最后两步骤一定要有，不然下次打开数据库的时候会提示出错的，这样的话，在窗口上建立两个文本框就够了。 但是，在此之前还有一步一定要做， 点"工程"-"引用"-找到"Microsoft ActiveX Data Object 2.6 "，如图所示：

显示的结果如下图所示：

通过与效应表对比发现显示正确。 总体代码如下： Private Sub Form_Load() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim constr As String constr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=D:\EffectSolution\科学效应数据库.mdb" '空格加短下划线表示续行 cn.open constr rs.open "select * from 效应表where id =5", cn Text1.Text = rs.fields("效应和现象名称") Text2.Text = rs.fields("文字解说")

(完整版)vb连接access数据库及数据读写操作

ACCESS^据库和VB的连接 Edited by Ryan 2013 1、建立Access数据库 2、启动VB,建立标准EXE r?l? 图1 3、添加ActiveX控件 鼠标指向任意VB控件，单击右键，选择"部件( O)”，出现图3所示界面片-llfil Ai￡；xo

1.0 启侵蓝 Sicr-iEoft hc?is BtrCile Cntrol 9.0 fillers so ft Will D^T 4 Cootrcil 冬0 IDLJIE J L Chut C4LtF91 E.O (CLED3) IU GTO初It Cunir> CtnlroL &. 0 Nicrgisoft ConRidn Di&l'js Ccurikrtl 3 0 Hicroioft Dtlt Bm-d List Canirols 6.C Nicroidft QtlfiiGri i Control 6 0 UU1B) 匚0■ 肛辽CQ^trdE 6. 0 COLE DE 匚lliarjs^ft C OT.^FP16- D 口 IlicrQsgft 7阳60 < > Micro soft 110 D A I Q Cineol 6.0 (OLEDEt) 定fir. C. 'iTIBKrtS \ i js t EffcK'illSiK? C. C CX 图3 选择部件“ Microsoft ADO Data Control 6.0 (OLEDB) ” ,出现如图4 所示控件2J & 二 r- B“* -si- i；?同同

VB6.0怎么连接Access2003数据

VB6.0怎么连接Access2003数据 如果非要转为97格式那给个最常用的数据库操作方式吧，如怎么连接和查询，谢谢 问题补充： 我想在数据库中保存ICON 图标文件，供软件使用，在建表时用来保存图标的字段格式是不是OLE对象啊？怎么用程序保存和读取呢？ 最佳答案 不一定非要转换为97格式，这要看你选择什么样的控件了。 如果你选择data等控件，则必须转换为97格式，如果选择ADO控件，直接操作就可以了，不需要转换。 以下资料供参考： VB中用ADO操作数据库 点击数：985 发布日期：2007-5-11 21:47:00 【收藏】【评论】【打印】【编程爱好者论坛】【关闭】 <昨在网上发现一文章,正是我需要的,现将其转发,与大家共享>随着信息技术的发展，特别是网络信息交流的需要，要求有快捷的信息查询技术。借助于VB可以轻松地开发出功能强、速度快、应用广并占用资源少的数据库应用程序。VB 提供了多种多样的数据库访问技术来满足各种信息查询的要求，如ADO，RDO，Data控件，DAO等。这些技术各有特点，它们提供了简单、灵活、访问速度快、可扩展性好的开发技术。 2 常用的数据库访问技术 2.1Data控件 数据控件Data是VB中一个常用的控件对象，它具有快捷、方便和功能强大的特点，主要用于打开、访问并操作已有的数据库。由于Data控件使用Microsoft 的Jet数据库引擎来实现数据访问，使用户可以无缝地访问许多标准的数据库格式，而且用户只要设置控件中的几个关键属性，并用一些文本控件把数据显示出来就可以创建数据应用程序，因此这种内部的Data控件最适合较小的（桌面）数据库，诸如Access和ISAM数据库等。不足之处是在编辑处理数据方面受到限制，无法进行增删记录等操作，。 2.2 DAO DAO(Data Access Object)即数据访问对象，是VB最早引入的数据访问技术。与上述建立在数据控件上的数据访问不同，DAO可以完全不用数据控件而只用

VB访问数据库的方法及接口分析

摘要：本文介绍了几种Visual Basic访问数据库的方法，对这些数据接口的性能进行了比较，并提出相互的转化关系。 1VB访问数据库的方法 VB访问数据库的方法很多，一般情况下分成两大类，而每一类又有很多方法。下面以列表的方式列出每一类，及每一类包含的方法。 1.1接口对象法(API) VBSQL：通过DB-Library访问微软的SQL Server。 ODBC API：任何一种ODBC数据源16位和32位。 DAO/Jet：本地的Jet/Access.MDB、顺序索引数据库（ISAM）和任何ODBC数据源。 DAO/ODBC Direct：任何一种ODBC数据源（经过RDO）。 RDO2.0：任何一种ODBC数据源（LevelⅠ或Ⅱ）。 ADO：任何一种ODBC数据源和任何经过OLE DB界面接口的数据源。 1.2数据控件法 Data Control：DAO/Jet数据界面接口。 Data Control/ODBC Direct：DAO/ODBC Direct数据界面接口。 RemoteData Control/RDC：RDO数据界面接口。 Advanced Data Connector/ADC：ADO数据界面接口。 2几种接口的比较 ADC（Advanced Data Connector）：高级数据连接器。提供绑定ADO数据源到窗体的数据绑定控件上。ADC主要是一种直接访问或者通过ADO访问远程OLE DB对象的一种技术，它也支持主要应用在微软IE浏览器上的数据绑定控件。它是特地为Web上的浏览器为基础的应用程序而设计的。 ADO（Active Data Objects）：Active数据对象。是DAO/RDO的后继产物，ADO“扩展”了DAO和RDO所使用的对象模型，这意味着它包含较少的对象、更多的属性、方法（和参数），以及事件。ADO实际是一种提供访问各种数据类型的连接机制。ADO设计为一种极简单的格式，通过ODBC的方法同数据库接口。可以使用任何一种ODBC数据源，即不止适合于SQL Server、Oracle、Access等数据库应用程序，也适合于Excel表格、文本文件、图形文件

vb连接access数据库常用的方法两种示例

这里以链接access数据库为例。 第一部分是通过语句链接，第二部分是通过控件链接 一、 通过语句链接数据库，然后把相应的数据赋值给某个文本框就行了。 1.首先定义几个全局变量 Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim constr As String 2.给这些变量赋值，方便链接数据库 constr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=D:\EffectSolution\科学效应数据库.mdb" 红色部分写你自己的数据库路径。 3.打开数据库 cn.open constr 打开表 rs.open “select * from 效应表where id=5“，cn 取字符串并赋值给相应的文本 Text1.text=rs.fields(“效应和现象名称”) Text2.text=rs.fields(“文字解说”) 关闭表 rs.close 关闭数据库 cn.close 注意，最后两步骤一定要有，不然下次打开数据库的时候会提示出错的，这样的话，在窗口上建立两个文本框就够了。但是，在此之前还有一步一定要做，

点"工程"-"引用"-找到"Microsoft ActiveX Data Object 2.6 "，如图所示： 显示的结果如下图所示：

通过与效应表对比发现显示正确。 总体代码如下： Private Sub Form_Load() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim constr As String constr = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=D:\EffectSolution\科学效应数据库.mdb" '空格加短下划线表示续行 cn.open constr rs.open "select * from 效应表where id =5", cn Text1.Text = rs.fields("效应和现象名称") Text2.Text = rs.fields("文字解说")

VB6连接ACCESS数据库

1:首先肯定是建立数据库(设置数据库名和密码,要将数据库文件和VB中创建的工程文件放在同一目录下。) 2:呵呵~~你要知道的关键的问题:如何连接Access数据库(方法有:数据控件、数据对象、数据环境设计器等)我都不想写得详细拉.(楼主你想知道多一点加我Q:413237613) 你可以参考一下我在网站查找到相关的资料啊.看看对你有没帮助啊:再不明白加我Q拉. 1、使用控件 ①Data控件 Data控件是Visual Basic6.0中的一个内置数据控件，可以通过设置Data控件的connect、DatabaseName、RecordSource属性实现对数据库的连接和访问。通过Data控件连接加密的数据库的方法有两种： 一种方法是在设计状态时，在“属性窗口”中将Data控件的connect属性的缺省值”Access”改为”;pwd=1234”即可，其它属性的设置方法与没有加密的Access数据库的连接相同。 另一种方法是在运行时，通过代码对connect属性赋值来实现。如： Data1.connect=”;pwd=1234” Data1.DatabaseName=APP.path+“\ssgl.mdb” 其中，”1234”为Access数据库文件ssgl.mdb的密码，下同。 ②Adodc控件 Adodc控件是一个ActiveX控件，它使用Microsoft ActiveX Data Objects(ADO)创建到数据库的连接。使用Adodc控件之前，要先将Adodc控件添加到控件工具箱中。方法如下：在VB 6.0种选择“工程”菜单，再点击“部件”菜单项，在弹出的“部件”对话框中选中“Microsoft ADO Data Control6.0(OLEDB)”选项即可。 通过Adodc控件连接加密的数据库的方法也有两种： 一种方法是在设计状态时，在“属性窗口”中，对Adodc控件的ConnectionString属性设置一个有效的连接字符串，并在连接字符串后增加上”;Jet OLEDB:DataBase password=1234”，再设置Adodc控件的CommandType、RecordSource的属性就可以创建到加密的数据库的连接了。 另一种方法是在运行时，通过代码动态地设置ConnectionString、CommandType和RecordSource属性来创建连接。只要在ConnectionString属性的有效连接字符串后增加上”; Jet OLEDB:DataBase password=1234”即可。 2、使用数据对象

用VB访问SQL SERVER数据库技术详解

用VB访问SQL Server数据库技术详解 文讨论了Visual Basic应用程序访问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)优化查询，载入驱动程序管理器并与之通讯，驱动程序管理器(ODBC.DLL)通过调用驱动器(SQLSRVR.DLL)的函数，实现连接到数据源，翻译并向SQL Server提交SQL 语句且返回结果。下面是一个用DAOs访问SQL Server的VB实例。

vb连接sql数据库的模块以及使用实例(详细)

vb连接sql数据库的模块以及使用实例（详细） 2009-01-13 15:48 2007年01月22日星期一下午 05:29 打开VB6.0,新建工程SQL_data,新建一个EXE，并添加一个模块。如图 一：添加引用和部件（如下两图）蓝色的两个，是要选中打勾的。 注意，一个是“引用”，一个是“部件”。 二：添加一个模块 Data_Sql，并把图下面的复制粘贴到模块中。 '连接SQL的模块 Public conn As ADODB.Connection Public rs As ADODB.Recordset Public addFlag As Boolean '声明部分 Public Function OpenCn(ByVal Cip As String, ByVal users As String, ByVal pw As String) As Boolean '连接模块填写数据库等信息 Dim mag As String On Error GoTo strerrmag Set conn = New ADODB.Connection conn.ConnectionTimeout = 25 conn.Provider = "sqloledb"

conn.Properties("data source").Value = Cip '服务器的名字 conn.Properties("initial catalog").Value = "pubs" '库名 'conn.Properties("integrated security").Value = "SSPI" '登陆类型conn.Properties("user id").Value = users 'SQL库名 conn.Properties("password").Value = pw '密码 'sql = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=;Initial Catalog=pubs;Data Source=127.0.0.1" '如果不用这个模块也行可以，这一句便是常用的引擎。 'conn.ConnectionString = sql conn.Open OpenCn = True If conn.State = 1 Then addFlag = True Exit Function strerrmag: mag = "Data can't connect" Call MsgBox(mag, vbOKOnly, "Error:Data connect") addFlag = False Exit Function '连接错误消息 End Function '关闭数据库，释放连接 Public Sub cloCn() On Error Resume Next If conn.State <> adStateClosed Then conn.Close Set conn = Nothing End Sub Public Function openRs(ByVal strsql As String) As Boolean '连接数据库记录集 Dim mag As String Dim rpy As Boolean On Error GoTo strerrmag Set rs = New ADODB.Recordset If addFlag = False Then rpy = True With rs .ActiveConnection = conn .CursorLocation = adUseClient .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open strsql End With addFlag = True openRs = True 'End '将记录集给rs

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的学习编写代码实现更强大的功能。 二、VB与SQL Server连接方法二（使用DSN方法） 我们需要首先做的事就是配置自己的DSN，如何配置，请看我一一到来： 在控制面板里管理工具，选择里面的数据源(ODBC)，弹出ODBC数据源管理器，选择添加， 选择驱动程序（SQL Server） 点完成，弹出创建到SQL Server的新数据源，

在VB中连接ACCESS数据库的方法

在VB中，连接ACCESS数据库的方法主要有下面三种 ?使用ADO对象，通过编写代码访问数据库 C onnection 对象 ODBC数据源 ?使用ADO Data 控件快速创建数据库连接 有三种连接方法 Data Link文件 使用ODBC数据源名称 使用连接字符串 ?使用数据环境设计器创建数据库连接 首先添加环境引用。 然后找到数据源进行连接 无论是哪一种连接，都是先有一个路径，通向要连接的数据源，和数据源建立关系，在连接。 就好比从北京到上海，可以做汽车，可以做火车，还可以做飞机，汽车走高速，火车走铁路，飞机走航线，过程不一样，但结果是一样的，都是到达上海目的地。 在操作这三种连接方式的时候，会发现有重复的操作。 Data 控件连接中，ODBC数据源的连接和使用字符串的连接与直接使用ODBC数据源连接中，不同是，直接使用ODBC数据源设置好路径后，再用connection对象连接即可；Data控件则不用Connection 对象，有控件，设置好路径了，就直接连到啦。 数据环境设计器和ADO 对象，都用到了connection连接。不同的是，数据环境设计器中，connection连接途径是和data控件中字符串的连接步骤一致。

总结不同：ADO对象连接需要编写代码，其他的不用编写代码。 下面详细介绍每一种连接方法的详细步骤： 1，使用ADO connection对象 首先，要建立ADO引用，定义connection这个类，然后实例化对象。 代码完成如下： [vb]view plaincopyprin t? 2，使用ODBC数据源 首先，打开电脑上的ODBC数据源，建立关系。 步骤如下： 1），打开电脑上的ODBC数据源 如下图所示：

VB与SQL数据库连接

VB连接SQL数据库的方法 VB使用ADO数据库可以分为有源数据库和无源数据库，即是否使用了DSN数据源，如下例： 1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择microsoft activeX Data objects 2.6 library和microsoft activeX Data objects recordset 2.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 这是第二种方法连接数据库的方法，这一种方法是采用有源的方法与数据库连接的方法，代码如下所示：

VB常用数据库连接方法

Dim conn As New ADODB.Connection ’创建一个 Connection 实例，在这里使用New等于将Dim和Set合并为一段代码执行 Dim rs As ADODB.Recordset ’创建一个 Recordset 实例，不使用New 是因为，经常需要重复使用Set，因此没必要在这里使用 Dim CnStr As String, Sql As String ’创建两个字符串变量分别存放两个集合的SQL语句代码段 1、装载数据库(不属于Recordset集合) ============= Dim FileNamw$, DbIp$, DbName$, DbUser$, DbPw$ ’以上5个字符串变量分别表示文件路径和文件名、数据库地址、数据库名、数据操作员用户名、操作员密码 FileName = App.Path & "\’数据库名’" DbIp = "数据库地址" DbName = "数据库名" DbUser = "数据操作员用户名" DbPw = "操作员密码" ’以上变量根据数据库类型的不同而不同，有可能只需要1至两个变量 ’1)连接Access数据库: ’------------------- CnStr = "PROVIDER=microsoft.jet.oledb.3.51;persist security info =false;data source=" & FileName & ";Jet OLEDB:Database Password=" & DbPw ’2)连接Oracle数据库: ’------------------- CnStr = "PROVIDER=MSDAORA.1;Password=" & DbPw & ";User ID=" & DbUser & ";Data Source=" & FileName & ";Persist Security Info=True" ’其中: ’PASSWORD: 密码 ’User ID: 用户号 ’Data Source: 数据库名 ’Persist Security Info: ’Provider: ’3)连接VF的DBF库: ’---------------- CnStr = "PROVIDER=MSDASQL.1;Persist Security Info=False;Driver={Microsoft Visual FoxPro Driver};UID=" & DbUser & ";SourceDB=" & FileName & ";SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;" ’4)连接SQL的数据库 ’------------------ CnStr = "PROVIDER=MSDataShape;Data PROVIDER=MSDASQL;uid=" & DbUser & ";pwd=" & DbPw & ";DRIVER=SQL Server;DATABASE=" & DbName & ";WSID=GQSOFT;SERVER=" & DbIP