Vb6.0连接sql数据库的模块以及使用实例
打开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
Exit Function
strerrmag:
mag = "data not connect"
Call MsgBox(mag, vbOKOnly, "error:connect")
openRs = False
End
'Exit Function '连接错误消息
End Function
Public Sub cloRs()
On Error Resume Next
If rs.State <> adStateClosed Then rs.Clone
Set rs = Nothing '释放记录集
End Sub
把它放入到模块文件中，以备调用。
三：下面两图是模块的代码图片和窗体的代码图片
Private Sub Command1_Click()
a = Trim(Text1.Text)
b = Trim(Text2.Text)
c = Trim(Text3.Text)
Call OpenCn(a, b, c)
If addFlag = True Then MsgBox ("OK")
Call openRs("select * from jobs")
Set DataGrid1.DataSource = rs
'rs.Close
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
四：运行时的图片（下面两图）到了这一步，一个简单的VB连接SQL的例子就完成了。
https://www.doczj.com/doc/5e15793904.html,数据库编程基础教程 罗珊 众所周知，https://www.doczj.com/doc/5e15793904.html,自身并不具备对数据库进行操作的功能，它对数据库 的处理是通过.NET FrameWork SDK中面向数据库编程的类库和微软的MDAC来实现的。其中，https://www.doczj.com/doc/5e15793904.html,又是.NET FrameWork SDK中重要的 组成部分。要了解https://www.doczj.com/doc/5e15793904.html,的数据库编程，首先要明白https://www.doczj.com/doc/5e15793904.html,的工作原理以及相关的对象、方法、属性。本文将结合具体实例为你简单介绍https://www.doczj.com/doc/5e15793904.html,数据库访问对象以及https://www.doczj.com/doc/5e15793904.html,数据库编程基本方法。 一、https://www.doczj.com/doc/5e15793904.html,数据库访问对象 (一)https://www.doczj.com/doc/5e15793904.html,简介 https://www.doczj.com/doc/5e15793904.html,是由微软Microsoft ActiveX Data Object(ADO)升级发展而来的。是在.NET中创建分布式数据共享程序的开发接口。https://www.doczj.com/doc/5e15793904.html,的数据存取API提供两种数据访问方式，分别用来识别并处理两种类型的数据源，即SQL Server7.0(及更高的版本)和可以通过OLE DB进行访问的其他数据源。为此https://www.doczj.com/doc/5e15793904.html,中包含了两个类库，System.Data.SQL库可以直接连接到SQL Server的数据，System.Data.ADO库可以用于其他通过OLE DB进行访问的数据源。如Access数据。 (二)https://www.doczj.com/doc/5e15793904.html,的名称空间
https://www.doczj.com/doc/5e15793904.html,是围绕System.Data基本名称空间设计，其他名称空间都是从System.Data派生而来。它们使得https://www.doczj.com/doc/5e15793904.html,不仅访问DataBase中的数据，而且可以访问支持OLE DB的数据源。 当我们讨论https://www.doczj.com/doc/5e15793904.html,时，实际讨论的是System.Data和System.Data.OleDb 名称空间。这两个空间的所有类几乎都可以支持所有类型的数据源中的数据。这里我们讨论与后文实例有关的类。即OleDbconnection、OleDbDataAdapter、DataSet和DataView。 上面列举的类中没有OleDb前缀的，派生自System.Data空间，有此前缀的派生自System.Data.OleDb空间。在使用中，如果要引用OleDb前缀的类，必须导入System.Data.OleDb名称空间。语法如下： Imports System.Data.OleDb 使用没有此前缀的类必须导入System.Data名称空间。语法如下：Imports System.Data 1.OleDbConnection类 OleDbConnection类提供了一个数据源连接。这个类的构造函数接受一个可选参数，称为连接字符串。 (1)连接字符串： 连接字符串本身由下表中列出的参数构成。(图) 我们来看一下如何在连接字符串上使用参数来初始化一个连接对象。
vb连接ACCESS数据库实例 下面给你一个用ADO的代码链接的实例：（ACCESS 2003) 首先在工程中点击【工程】-【引用】，在打开的对话框选择Microsoft AxtiveX Data Objects 2.8 Library 勾选，然后定义二个对象： Dim conn As New ADODB.Connection, rs As New ADODB.Recordset 其中conn是数据库链接对象，rs是数据记录集对象 那么，下面就是利用SQL语句链接数据库了： conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\library\1.mdb;Jet OLEDB:Database Password=" strSQL = "SELECT * FROM 数据库中的表" rs.Open strSQL, conn, 3, 3 至此数据库已经链接成功，并且已经加载了记录集，下面你就可以进行数据操作了，注意，在数据库操作完成后，千万别忘记关闭记录集和数据库链接对象： rs.Close conn.Close '首先，工具->引用->选中Microsoft ActiveX Data Objects 2.X Library '必须选中，否则下面代码不会起作用！（以下链接数据库之方式，不需要使用ADODB控件，仅需代码即可） Public Conn As New ADODB.Connection Public Rs As New ADODB.Recordset Public Cnt As Integer '这个Cnt是用来表示数据库数据总量的，对链接过程无关 '连接数据库的代码段 Conn.CursorLocation = adUseClient '以Conn为链接名建立链接，这里是设置数据游标（客户端数据游标），即设定读取数据库数据之方式（一行一行地读） Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\test.mdb" '自己改动一下上面的路径和文件名即可，其他的代码你不理解照粘贴无妨 If Rs.State <> adStateClosed Then Rs.Close Rs.Open "SELECT 铺名, 上月读数, 本月读数, 实用度数, 铺位数, 首层面积, 非经营层 面积, 欠费明细, 欠费金额FROM data WHERE 首层面积is not null and 非经营层面积 is not null;", Conn, adOpenKeyset, adLockPessimistic Cnt = Rs.RecordCount '关闭数据库链接（一般放到子过程结束处，关闭数据库链接） Rs.Close Conn.Close Set Rs = Nothing
VB使用ADODB操作数据库 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=" & FileNa me & ";Jet OLEDB:Database Password=" & DbPw ’2)连接Oracle数据库: ’------------------- CnStr = "PROVIDER=MSDAORA.1;Password=" & DbPw & ";User ID=" & DbUser & ";Data S ource=" & 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 FoxPr
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.doczj.com/doc/5e15793904.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
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数据库的方法 一、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数据库操作实例 工具/原料 VB数据库操作对很多初学者朋友感到比较吃力，目前教材中的实例对数据库操作都比较单一，很多朋友提议我做一个包括浏览、添加、修改、删除功能的数据库操作实例，下面这个实例就是一个这样的数据库操作实例。 步骤/方法 1. 1 《书库管理系统》是一个最简单的数据库操作实例，它包括浏览、添加、修改、删除功能的数据库操作，使用数据链接控件Adodc链接数据库、数据显示控件MSHFlexGrid显示数据库中的记录。 在新建工程时工具箱中是没有Adodc控件和MSHFlexGrid控件的，我们必须点击菜单中的【工程】-【部件】，在对话框中勾选“Microsoft ADO Data Control 6.0 (SP6)”和“Microsoft Hierarchical FlexGrid Control 6.0 (SP4)”，最后点击【确定】，这样Adodc控件和MSHFlexGrid控件就已经放置在工具箱中了。 其中Adodc控件的ConnectionString属性值是："Provider=Microsoft.Jet.OLEDB.4.0;Data Source=家庭书架.mdb;Persist Security Info=False"，它设置链接了“家庭书架.mdb”这个Access数据库，RecordSourc属性值是："select 图书登记表.ID,图书登记表.名称,图书登记表.
书号,图书登记表.作者,图书登记表.出版社,图书登记表.出借状态,出借记录.借书人,出借记录.电话,出借记录.地址,图书登记表.备注,图书登记表.出借记录from 图书登记表,出借记录where 图书登记表.ID=出借记录.zhuID ORDER BY 图书登记表.ID"，因为在“家庭书架.mdb”数据库中包含"图书登记表"和"出借记录"二个数据表，这是多表链接的典型的SQL语句。Adodc 的这二个属性值在VB的属性窗口进行编辑，你可以将上述属性值直接输入到相应的属性中，设置Visible的值为False，目的是在运行中不显示这个控件，其他属性默认值即可。 MSHFlexGrid控件的名称我们修改为MS1，它的属性设置稍稍比较麻烦：首先将它的DataSource属性在属性窗口设置为"Adodc1"； 然后在对象窗口右击控件，在下拉菜单中点击【属性】，在“通用”标签中修改行为3，修改列为11，修改固定行为0，修改固定列为0，如果数据链接没有问题，在属性的“带区”标签中可以看到列标题和列名称已经设置了，其他属性页的属性可以容许默认值，中点击【确定】即可。 另外在属性窗口设置MSHFlexGrid控件的BackColorBkg属性为&H00FFE0E0&，这个属性是控件底色的设置，然后设置BackColorFixed属性为&H00C0FFFF&，这个属性是控件数据显示标题的底色。其他默认值即可。 最后放置三个按钮，一个标签，三个Frame控件，在Frame1、Frame2、Frame3控件中分别放置9个标签（数组），8个文本框，一个下拉选择框，一个按钮，在Frame2、Frame3控件中分别放置一个标签，设置这个标签的Visible值为False，其他设置参考下图：设置和调整控件如上图后，设置数据库，在
使用ADO编程模型需添加ADO对象类库的“引用”----“Microsoft ActiveX Data Objects 2.x Library” ADO之VB数据库操作主要包括读、写、修改及删除等操作，不论是进行什么数据库操作都必须首先连接到数据库。 一、连接到数据库 1、连接到SQL数据库： 通过ADO的Connection对象可实现VB与SQL数据库的连接。一般方法如下： Dim cnn As New ADODB.Connection …创建Connection对象cnn，关键字new用于创建新对象 cnn.ConnectionString = "Provider=SQLOLEDB.1;Password=密码;User ID=用户名;Initial Catalog=SQL数据库文件;Data Source= localhost;" '指定提供者，设置数据源 cnn.Open …打开到数据库的连接 …….. cnn.Close …关闭到数据库的连接 或者： Dim cnn As New ADODB.Connection …创建Connection对象cnn，关键字new用于创建新对象 cnn.Open "Provider=SQLOLEDB.1;Password=密码;User ID=用户名;Initial Catalog=SQL数据库文件;Data Source= localhost;" …打开到数据库的连接 …….. cnn.Close …关闭到数据库的连接 2、连接到ACCESS数据库： 通过ADO的Connection对象可实现VB与ACCESS数据库的连接。一般方法如下： Dim cnn As New ADODB.Connection …创建Connection对象cnn，关键字new用于创建新对象 cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ACCESS数据库文件.MDB" '指定提供者，设置数据源 cnn.Open …打开到数据库的连接 …….. cnn.Close …关闭到数据库的连接 或者： Dim cnn As New ADODB.Connection …创建Connection对象cnn，关键字new用于创建新对象 cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ACCESS数据库文 件.MDB" …打开到数据库的连接
VB使用ADODB操作数据库的常用方法 ADO常用方法 下面是我所掌握的使用ADO对数据库操作的一些常用方法，主要是提供给初学者作为参考，有不对的地方请指正。如有补充不胜荣幸 准备工作 ======== 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 so urce=" & FileName & ";Jet OLEDB:Database Password=" & DbPw '2)连接Oracle数据库:
这里以链接acｃｅss数据库为例。 第一部分就是通过语句链接，第二部分就是通过控件链接一、 通过语句链接数据库,然后把相应得数据赋值给某个文本框就行了。 1、首先定义几个全局变量 Diｍcn As NｅｗADＯDB、Cｏnnｅctioｎ Dim rs Ａs New AＤＯDB、Recｏrdset Dｉm cｏnｓtｒAｓStrｉｎg 2、给这些变量赋值，方便链接数据库 coｎstr = "Provｉｄer=Mｉcｒosｏft、Jet、OＬEDＢ、4、0;＂＆"ＤａtａＳouｒce=Ｄ:\EffeｃtSｏlutｉｏｎ\科学效应数据库、mdb" 红色部分写您自己得数据库路径。 ３、打开数据库 ｃn、opｅｎconstr 打开表 ｒs、oｐeｎ“sｅlect * from 效应表ｗhereｉd=5“,ｃn 取字符串并赋值给相应得文本 Text1、text=rs、ｆields（“效应与现象名称”) Teｘt2、text=rｓ、ｆiｅlｄs(“文字解说”） 关闭表 rｓ、cloｓe 关闭数据库 cn、close 注意,最后两步骤一定要有,不然下次打开数据库得时候会提
示出错得,这样得话，在窗口上建立两个文本框就够了。 但就是，在此之前还有一步一定要做， 点"工程"-"引用"-找到＂Micrｏsoｆt ActiｖeX Dａta Ｏbjｅcｔ2、6 ",如图所 示:
显示得结果如下图所示： 通过与效应表对比发现显示正确。 总体代码如下: Pｒｉｖａte Sｕb Form＿Load() Dｉm cn As Ｎew ＡDODＢ、Cｏｎnｅcｔion Ｄｉm rs As NeｗAＤOＤＢ、Ｒeｃordseｔ Dim cｏnstｒＡｓStｒinｇ coｎｓtｒ＝＂Pｒoｖｉdeｒ＝Ｍｉcrosｏfｔ、Jeｔ、OLＥDB、4、0;" &＿ "Data Sｏuｒce=D:\EffeｃtＳｏｌution\科学效应数据库、mdb" '空格加短下划线表示续行 cｎ、ｏpen cｏｎsｔｒ ｒs、open ＂selｅct*from 效应表ｗhere id ＝５", cｎ Tｅxt1、Tｅxt = rs、fieｌｄs(＂效应与现象名称") Ｔeｘt2、Ｔｅｘt = rs、ｆｉelds("文字解说＂)
https://www.doczj.com/doc/5e15793904.html,mandText = sql command.Execute Else MsgBox "你必须输入一个名字" End If Private Sub Form_Load() Dim str As String str = App.Path If Right(str, 1) <>"\" Then str = str + "\" End If pstr = "Provider=Microsoft.Jet.OLEDB.3.51;" pstr = pstr & "Persist Security Info=False;" pstr = pstr & "Data Source=" & str & "wage.mdb" conn.Open pstr rs.CursorLocation = adUseClient rs.Open "工资表", conn, adOpenKeyset, adLockPessimistic Set DataGrid1.DataSource = rs End Sub 当然，我们还可以把程序设计得更好，比如：让用户先在窗口中任意选择所需的字段和一些条件，然后再组合生成一个新表。但无论如何，这种操作只能在从原表的基础上产生一个新表，不能产生一个数据库文件，并且新表和原表放在同一个数据库中。 4: 建立新的数据库和表 前面讲到的方法有一定的局限性，它不能让用户产生自己所需的数据库文件，即使能产生数据表也只能在原有表的基础上生成。我们现在的目的就是让用户利用ADO对象在程序运行过程中创建数据库和表，就好象他利用Access来建立数据库和表一样。为此，我们应该引用对象库"Microsoft ActiveX Data Objects 2.5 Library"和"Microsoft ADO Ext 2.1. For DDL Security" 我们不妨用一个实例来说明具体的操作过程和方法。我们的实例要达到目的是：在程序运行过程中建立一个数据库，数据库的名称由用户输入。然后在数据库中建立一个名为"MyTable"的数据表，数据表中有三个字段，它们分别是："编号"(整数型)、"姓名"(字符型，宽度为8)、"住址" (字符型，宽度为50)，接着在数据表中添加一条记录，最后在DataGrid控件中把记录的内容显示出来，并且让用户在DataGrid控件中任意修改、添加记录。
VB数据库操作实例 2008年02月22日 05:49 VB数据库操作对很多初学者朋友感到比较吃力，目前教材中的实例对数据库操作都比较单一，很多朋友提议我做一个包括浏览、添加、修改、删除功能的数据库操作实例，下面这个实例就是一个这样的数据库操作实例。 《书库管理系统》是一个最简单的数据库操作实例，它包括浏览、添加、修改、删除功能的数据库操作，使用数据链接控件Adodc链接数据库、数据显示控件MSHFlexGrid显示数据库中的记录。 在新建工程时工具箱中是没有Adodc控件和MSHFlexGrid控件的，我们必须点击菜单中的【工程】-【部件】，在对话框中勾选“Microsoft ADO Data Control 6.0 (SP6)”和“Microsoft Hierarchical FlexGrid Control 6.0 (SP4)”，最后点击【确定】，这样Adodc控件和MSHFlexGrid控件就已经放置在工具箱中了。 其中Adodc控件的ConnectionString属性值是： "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=家庭书架.mdb;Persist Security Info=False"，它设置链接了“家庭书架.mdb”这个Access数据库，RecordSourc属性值是："select 图书登记表.ID,图书登记表.名称,图书登记表.书号,图书登记表.作者,图书登记表.出版社,图书登记表.出借状态,出借记录.借书人,出借记录.电话,出借记录.地址,图书登记表.备注,图书登记表.出借记录 from 图书登记表,出借记录 where 图书登记表.ID=出借记录.zhuID ORDER BY 图书登记表.ID"，因为在“家庭书架.mdb”数据库中包含"图书登记表"和"出借记录"二个数据表，这是多表链接的典型的SQL语句。Adodc的这二个属性值在VB的属性窗口进行编辑，你可以将上述属性值直接输入到相应的属性中，设置Visible的值为False，目的是在运行中不显示这个控件，其他属性默认值即可。 MSHFlexGrid控件的名称我们修改为MS1，它的属性设置稍稍比较麻烦：首先将它的DataSource属性在属性窗口设置为"Adodc1"； 然后在对象窗口右击控件，在下拉菜单中点击【属性】，在“通用”标签中修改行为3，修改列为11，修改固定行为0，修改固定列为0，如果数据链接没有问题，在属性的“带区”标签中可以看到列标题和列名称已经设置了，其他属性页的属性可以容许默认值，中点击【确定】即可。 另外在属性窗口设置MSHFlexGrid控件的BackColorBkg属性为&H00FFE0E0&，这个属性是控件底色的设置，然后设置BackColorFixed属性为&H00C0FFFF&，这个属性是控件数据显示标题的底色。其他默认值即可。 最后放置三个按钮，一个标签，三个Frame控件，在Frame1、Frame2、Frame3控件中分别放置9个标签（数组），8个文本框，一个下拉选择框，一个按钮，在Frame2、Frame3控件中分别放置一个标签，设置这个标签的Visible值为False，其他设置参考下图：
第一部分:vb数据库操作实例 vb神童教程(续)--编写一个小型的信息管理系统 vb神童教程(续)--准备数据库 vb神童教程(续)--设计系统的界面及对象的属性 vb神童教程(续)--为对象添加事件代码 vb神童教程(续)--编写一个小型的信息管理系统 受委托为编程入门网做一个简单的vb操作数据库的实例，来演示一下如何用vb 向数据库中添加、修改、删除记录这些操作。我觉得自己是比较菜的，几年来别人都在进步，只有我还在原地踏步。不过没有办法，我们这一圈人里现在只有我机器上还有vb6，勉为其难，只有尝试一下了。如果我写的这点幼稚的东西能为想要了解vb数据库操作的朋友提供哪怕是一丁点儿的参考和帮助，将是我最为高兴的事情，同时也希望高手不要见笑。 我做的这个实例名为“编程入门网网址管理系统”，算是一个小型的信息管理系统吧。该系统后台使用的是Access数据库，程序中使用ADO代码链接的形式连接Access。该系统具有向数据库中添加、修改、删除记录的功能，进行某项操作后能够实时刷新显示数据。并在程序中加了相应的代码对输入的数据进行合法性校验，以避免输入错误的数据造成程序运行不正常，程序运行时各个操作及退出系统时均有友好的提示框请用户确认。所有代码均在Windows 2003+Vusual Basic 6.0环境下调试通过。 系统运行时如下图：
vb神童教程(续)--准备数据库 我用的是Access 2003，因为需要讲解的仅仅是数据的添加、修改及删除，因此单数据库、单表就够了。如果以后您要编写更复杂一些的信息管理系统而涉及到多表操作，则您还需要补充一些关系数据库方面的知识，比如实体、一对一联系、一对多联系等等；此外，对sql语言也需要有所了解。具体您可以参考：数据库基础知识ABC。 首先，在“我的电脑”的e盘新建一个名为vb文件夹，先打开Access，新建一个名为Access_db的数据库（Access数据库文件的扩展名是.mdb），保存到刚才建立的文件夹中，则以后在程序中调用数据源的位置为 E:\vb\Access_db.mdb。 然后在Access_db.mdb中建立一个名为wzdz的表（wzdz是“网站地址”的首字母缩写）, 然后在wzdz表中添加网站名称、网站地址及网站描述三个字段，三个字段的属性是相同的，如下： ▲数据类型：文本。 ▲字段大小：50 ▲有效性规则：无。 ▲必填字段：否 ▲允许空字符串：否 ▲索引：无 “编号”这个字段使用的是Access的自动编号，并将其作为主键。也就是说，您在表中设置以上三个字段即可，设置完毕保存表时，按Access的提示添加主键，Access会自动为您搞定。具体操作您可以参考：vb神童教程(续)--vb连接Access数据库实例 这样在建立了数据库及表结构之后，即使是调用没有记录的空库，系统也可以无差错运行，可以在运行时通过“添加记录”按钮向数据库中添加记录。不过由于数据库是空的，系统第一次运行时数据显示控件没有数据可显示，显得空荡荡的，不太美观哦。为了方便起见，我们在Access中给wzdz表中预先添加两条初始记录：
Vb6.0连接sql数据库的模块以及使用实例 打开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
Vb对excel操作的实例 最近，由于工作关系，我用vb6.0做了一个计算成绩的软件，由于我不会数据库技术，同行对excel应用又比较普遍，所以就用vb6.0操作excel完成了成绩统计的任务。 先说说窗体，很简单，只运用了菜单，由此来调用程序代码。截图如下： 窗体命名为excel操作，共五个一级菜单。 创建表册用来制作所用表格。 计算成绩用来算成绩。
模拟运算用来测试软件，设置了两个子菜单，一个填随机生成的数据。有了数据就可以计算成绩了，看看效果如何。 测试完了就可以清空数据了，清空成绩册中的基础数据以后再计算一次成绩就基本可以使表册恢复原样了。其实，我这是多此一举，回头一想，只需要重新创建所用表册就行了。 还画蛇添足了俩菜单：计算器和退出。 代码也贴出来共享一下。 创建表册：一年级： Private Sub ynjkb_Click() Call 建空表(10) Call 工作表命名(1) Call 成绩册(1) Unload excel操作 End Sub
创建表册：二年级： Private Sub enjkb_Click() Call 建空表(10) Call 工作表命名(2) Call 成绩册(2) Unload excel操作 End Sub 三至六年级略了吧。 创建表册：学校总评： Private Sub xxzp_Click() nj(1) = "一年级": nj(2) = "二年级": nj(3) = "三年级": nj(4) = "四年级": nj(5) = "五年级": nj(6) = "六年级" Call 建空表(2) '建立积分表 Sheets(1).Name = "学校积分" Sheets(2).Name = "积分" Sheets("学校积分").Select Range("a1:i1").Merge [a1] = "学校积分统计表": [a2] = "学校": [a3] = "南村小学": [a4] = "东风小学": [a5] = "兴中小学": [a6] = "尧场小学" nj(1) = "一年级": nj(2) = "二年级": nj(3) = "三年级": nj(4) = "四年级": nj(5) = "五年级": nj(6) = "六年级"
用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实例。
这里以链接access数据库为例。 欧阳歌谷（2021.02.01） 第一部分是通过语句链接，第二部分是通过控件链接 一、 通过语句链接数据库，然后把相应的数据赋值给某个文本框就行了。 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("文字解说") rs.Close cn.Close End Sub 二、 通过ado控件链接数据库，然后通过datagrid控件显示数据库中的相关表。 过程示例： 1.添加部件ado控件和datagrid控件，如图所示： 这样工具栏里面会出现这样两个图标（最下面）： 2.把这两个控件添加到你的form1里面，这个不用演示吧 3.右击你添加的adodc1控件，选最后一个