第七讲 VB访问SQL Server2000数据库的方法
vb连接sqlserver

利用adodc通过vb连接sqlserver1、首先在添加控件:点击工具栏里面的“工程”---“部件”---在控件选项卡下面选择“microsoft ado data control6.0(sp6)”和“microsoft datagrid control 6.0(sp6)”。
2、在左侧工具中双击adodc控件和datagrid控件3、右击Adodc1,在弹出的下拉菜单中选择“Adodcproperties”。
4、在属性页里面选择“use connection string”,然后点击“build”,在出现的窗口中选择“microsoft OLE DB provider for SQL Server”,然后点击“下一步”。
5、在出现的对话框中选择或输入服务器名称的下面输入“yang-pc\SQLExpress”,在输入登录服务器的信息下面选择“使用windows NT 集成安全设置”,在在服务器上选择数据库下面选择想要连接的数据库。
6、Recordsource 下的command type 选择1-adcmd text7、点击“测试连接”。
Private Sub 读取_Click()Adodc1.RecordSource = "select * from 员工信息表order by 员工编号desc"Set DataGrid1.DataSource = Adodc1End SubPrivate Sub 修改_Click()Adodc1.RecordSource = "select * from 员工信息表where 员工姓名='徐工'"Set DataGrid1.DataSource = Adodc1With Adodc1.Recordset.Fields(1) = "高德".UpdateBatchEnd WithEnd SubPrivate Sub 增加_Click()DataGrid1.AllowAddNew = TrueWith Adodc1.Recordset.AddNew.Fields(0) = 1003.Fields(1) = "徐汇".Fields(2) = 1001.Fields(3) = "员工".Fields(4) = "男".Fields(5) = 1.Fields(6) = 4.Fields(7) = 2.Fields(8) = 1800.UpdateEnd WithWith Adodc1.Recordset.AddNew.Fields(0) = 1009.Fields(1) = "徐福".Fields(2) = 1001.Fields(3) = "员工".Fields(4) = "男".Fields(5) = 1.Fields(6) = 4.Fields(7) = 2.Fields(8) = 1800.UpdateEnd WithEnd SubPrivate Sub 查询_Click()Adodc1.RecordSource = "select * from 员工信息表where 所在职位='员工'"Set DataGrid1.DataSource = Adodc1End SubPrivate Sub 删除_Click() DataGrid1.AllowDelete = True With Adodc1.Recordset.Delete.Update.MoveNextEnd WithEnd Sub。
VB访问SQL SERVER数据库的方法

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数据源)前台系统Windows2000professional系统,后台Windows2000Server系统。
以Windows2000professional为例:(1)单击“开始”/设置/控制面板/管理工具/数据源ODBC,打开“ODBC数据源管理器”,选择“用户DSN or系统DSN”,单击【添加】按钮,打开“创建用户数据源”对话框,选择“SQL Server”,单击【完成】按钮。
(2)打开“创建新的数据源到SQL Server”窗口:1你想用什么名称命名数据源:在名称框中输入xn。
2服务器:为网络中数据库服务器(默认是本地服务器Local,可选远程服务器IP)。
3登陆ID:xn密码:xn(取决于安装SQL时所指定的密码)。
特别注意此处为确保数据库安全起见,数据库管理员可以给用户指定一个用户名及密码。
这里为简便起见使用管理员用户名及密码。
4更改数据库为:aa(所要使用的数据库)。
二、VB访问SQL数据库数据库数据库数据库VB与SQL的连接方式有多种,限与篇幅本文仅介绍以下三种:1.通过VB的数据库管理器(1)启动VB窗口,选择菜单“外接程序(Add-in)/可视化数据管理器(Visual Data Manager)/文件(File)/打开数据库(Open Database)/ODBC”。
VBA访问SQL Server数据库

VBA访问SQL Server数据库从事数据管理的人,在工作当中经常会遇到从SQL数据库中将数据引出到EXCEL电子表格来。
有没有一个较简便而又相对简单的方法呢?答案是肯定的。
下面举一个实例来说明使用方法。
一、需求将实例数据库NorthWind中Customers表中的记录引出到EXCEL表中。
二、实现步骤1)打开电子表Excel并录好表头。
2)显示Visual Basic工具条,并启动VB编辑器。
3)点击插入菜单并插入用户窗体。
此时将出现一个控件窗口,如下4)单击工具菜单中的引用命令,将出现引用窗口,如下在这里勾选Microsoft ActiveX Data Object 2.0对象引用5)在刚插入的窗体中放入一个按钮控件并可修改标签,如下6)双击此按钮加入如下代码:Private Sub CommandButton1_Click()Dim cn As ConnectionDim rs As RecordsetSet cn = New Connectioncn.Open "Provider=SQLOLEDB.1;Password=F1EscF12;Persist Security Info=True;User ID=sa;Initial Catalog=Northwind;Data Source=DM4-1022TX"Set rs = New Recordsetrs.Open "Customers", cn, adOpenStatic, adLockBatchOptimistic '用adOpenStatic + adLockBatchOptimistic打开较快,且占用资源小Workbooks.Application.Visible = Falser = 2 'Excel表的行序号Do Until rs.EOFSheet1.Cells(r, 1).Value = rs("CustomerID")Sheet1.Cells(r, 2).Value = rs("CompanyName")Sheet1.Cells(r, 3).Value = rs("ContactName")Sheet1.Cells(r, 4).Value = rs("ContactTitle")Sheet1.Cells(r, 5).Value = rs("Address")r = r + 1rs.MoveNext '将数据库的数据返回到EXCEL表中LoopMsgBox ("读取完毕")rs.Close '完成后要关闭cn.Close '完成后要关闭Unload MeWorkbooks.Application.Visible = TrueWorksheets("sheet1").ActivateEnd Sub至此可运行这段代码将出现一个窗口,单击“开始”按钮即将数据库中的记录写到EXCEL表中。
VB与SQL_Server_2000连接(ADO)

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//连接数据库//(第一部分第三步)MsgBox name.state(该语句只用于检查数据库是否已连接上,使用后应删除)第二部分:如何取出数据库中数据Dim rname As ADODB.Recordset//定义一个记录集变量,rname为变量名//(第二部分第一步)Set rname = New ADODB.Recordset//为变量rname分配记录集需要的空间//(第二部分第一步)Set rname.ActiveConnection = name//激活记录集变量,确定一个明确的指向//(第二部分第一步)第二步:配置(是在客户端取数据吗?在客户端的指针类型是什么?在客户端的锁定类型是什么?)rname.CursorLocation = adUseClientrname.CursorType =adOpenStaticrname.LockType = adLockOptimistic//以上三个语句为固定语句//第三步:读取数据rname.Source = "select * from 表名"rname.OpenMsgBox rname.RecordCount (该语句只用于检查表中有多少条记录,使用后应该删除)Set MSHFlexGrid1.DataSource = rnameEnd Sub连接字符串获取方法:方法1:通过ADODC属性页实现连接在VB界面最左端工具箱空白处→右键单击→部件→选择Microsoft ADO Data Control6.0(SP6) →确定(此时在工具箱里面增加了一个名为Adodc的图标)→在窗体中插入一个Adodc→右键Adodc→ADODC属性→直接点击页面的生成,然后在弹出的页面提供程序中选择Microsoft OLE DB Provider for SQL Server→点击下一步→在数据连接属性框中的选择或输入服务器名称中输入“.”→输入登录服务器的信息中选择使用Windows NT 集成安全设置→在服务器上选择数据库(D)的下拉菜单中选择自己相应的数据库即可→然后点击测试连接→确定→确定→此时已返回到ADODC的属性界面,复制使用连接字符串中的字符串即可→删除窗体中的ADODC。
VB用Adodc控件连接sql server 2000数据库的方法

VB用Adodc控件连接sqlserver2000数据库的方法配有插图的详细用法请看邮箱里的邮箱。
下面是文字介绍VB用Adodc控件连接sqlserver2000数据库的方法:1、打开vb新建“标准EXE”;2、在菜单栏点击“工程”,弹出下拉菜单,鼠标单击“部件”;3、在控件选项卡下面选择"MicrosoftADODataControl6.0(SP6)"和"MicrosoftDataGridControl6.0(SP6)",单击“确定”按钮;4、在左侧工具中双击Adodc控件和DataGrid控件;5、挪动Form1上Adodc1和6、右击Adodc1,在弹出的下拉菜单中选择“ADODC属性”;出现属性页;单击“生成”按钮,弹出“数据链接属性”;选择"MicrosoftOLEDBProviderforSQLServer",单击“下一步”,出现"数据库链接属性";下面以连接"pubs"数据库为例:(1)在“选择或输入服务器名称”下面输入"localhost";(2)在“输入登录服务器名称”下面,选择“使用WindowsNT集成的安全设置”,当然如果你的服务器指定的用户名和密码,你可以选择第二项,并输入用户名和密码;(3)在“在服务器上选择数据库”下面的下拉菜单中选择"pubs";单击“测试连接”,弹出连接成功的信息;单击“确定”;7、在Form1空白处双击鼠标左键,弹出代码编辑窗口;在“PrivateSubForm_load()”和“EndSub”之间输入下面程序段;Adodc1.Visible=FalseAdodc1.RecordSource="select*fromsales"Adodc1.RefreshDataGrid1.Refresh8、单击“启动”按钮;。
VB用Adodc控件连接sqlserver数据库方法

VB 用Adodc 控件连接sql server 2000 数据库的方法提供提序理抿’高圾I 斯有, 选择您希望堆接的數据Micro soft QLE DB der for SQL Stirrer Ml crrosof t 0L£ DB Simpl e Pr GVI der OLE D£ Fr QV I ier fsr MSirectory ServiG^sS^L Server Repli c aiion 00 DB Provi der f QT UTS下一歩題)»配有插图的详细用法请看jiben06@ 邮箱里的邮箱。
下面是文字介绍VB 用Adodc 控件连接sql server 2000 数据库的方法:1、打开vb 新建“标准EXE ;Mi crosoftHi crosoft Microsoft Microsoft Microsoft Microsoft Micrssoft Microsoft NicroEoftDB Pravi «ier for IB Fr Qvi -ler far DB Pr ovi «ler £oir DB Fr ovi der for DB Frovi «ier for DB Pr ovi Jer DB F T ovi derBata. fflLRing Serific 皀兀 STS F^ck^jges Indexing Service Internet Fublishing ODBC Drivers for OLAP S er TO ce E 8. 0 for Oracle确定HO.h帮助 I4. 0 OIJ BB Pxo^i der& iz >ActiveX EXE ActiveX PELAvti veK 控件Ac 丈 档 Eit«DHTML 应用程尊IIS 应用程取消 帮审⑩厂不再显恭这牛对话框迪〕2、在菜单栏点击“工程”,弹出下拉菜单,鼠标单击“部件”;■工程疋〕榕式咸调试⑪运行曲 且粛刖面体(£)亀诉加iflDI © 您竊加模块is 质加类複块X ) '賀添抑用尸控件迪) 衙 醸加雇性更広);:寸“勺彳」h-- L I. I 乔方n w "匚1裁3r质力D Citi Report,|廉力|] DHINL Fa 事乔加 Lfct« ErLvirom.erit 更雪ActiveX 设计器⑥…► 南加文件电)… CtrHD | 移除 Form I ® I___ : __ : ________ : _________________ J l◎引用®…\部件位),…Ctrl+r工程1雇性电)一3、在控件选项卡下面选择"Microsoft ADO Data Control 6.0(SP6)" 和新建闻再丨董新.ActiveX S 档Dll"Microsoft DataGrid Control 6.0 (SP6)", 单击“确定”按钮;部件LEUlAt tr Icti ¥«)[ Control nodul* Ma croifrftikccos B&rC^dr Control 9 0 Microsoft ActiveMovieControl血crogoft ADO B臥备CeiLtr^l 6 0 侶PE)Agrht C 畫・0Mi crssoft Chwt Cwitr^l 5- 0 WLSMi croxeft C OM Central & 0Microsoft CoMonMi cros^ft* Ml 1TFQS <>£tMi eras fittMierasfrft DiiJL>o理CorLtrel E. 0 (£D&t* Boimd Usd CflMr^ls 6, CDftttCri A匚砸ti"。
使用VB访问另外一台电脑上SQL数据库的方法

使⽤VB访问另外⼀台电脑上SQL数据库的⽅法本⼈纠结了⼀整天,终于弄好了,先分享以下。
⾸先,数据库配置步骤1,如果安装的时候已经选择“混合模式(SQL Server ⾝份验证和Windows ⾝份验证)(M)”,并且已经为SQL Server 系统管理员分配了账户和密码则不⽤重新配置。
配置⽅法如下:⽤Windows 验证⽅法登录数据库选择实例->右键->属性->安全性-> 选择“SQL Server和 Windows ⾝份验证模式” -> 确定⽤Windows 验证⽅法登录数据库选择实例->右键->属性-> 安全性->登录名->双击⽤户名(⼀般为sa)->设置密码2,开始菜单->所有程序->Microsoft SQL Server 2008 ->配置⼯具->SQL Server 配置管理器->⽹络配置->MSSQLSERVER2008->双击“TCP/IP” ->协议->已启⽤-> 选“是”SQL Server 配置管理器->⽹络配置->MSSQLSERVER2008->双击“TCP/IP” ->IP地址->IPAll->TCP端⼝->输⼊"1433" 点击确定3,开始菜单->所有程序->Microsoft SQL Server 2008 ->配置⼯具->SQL Server 配置管理器->SQL Server服务-> SQL Server (MSSQLSERVER2008)->右键重新启动4,在命令⾏下输⼊netstat –an,如果找到有“0.0.0.0:1433”,就说明SqlServer在监听了。
5,操作系统->安全中⼼->Windows 防⽕墙-> 例外->添加程序C:\Program Files\Microsoft SQLServer\90\Shared\sqlbrowser.exeC:\Program Files\Microsoft SQLServer\MSSQL10.MSSQLSERVER\MSSQL\Binn\sqlservr.exe6,操作系统->安全中⼼->Windows 防⽕墙-> 例外->添加端⼝ 1433对于win7或者WIN8 在防⽕墙-⾼级设置-右键点击规则-新建规则-端⼝-输⼊1433- ⼀直点下⼀步到完⼀般在局域⽹⾥访问的话做到这⾥就应该没问题了(对于XP系统,若是公⽹访问,设置到这⾥还是访问不了郁闷的查了半天资料还是没有头绪,最后得到已⾼⼈指点解决问题~ )注意:若是WIN7 或者WIN8 就不⽤这么做了,因为找不到TCP/IP筛选7,如果你做公⽹访问那么还有⼀个⾮常重要的步骤要做,如下:在"⽹络联接"找到⾃⼰⽤的"本地连接"->右键->属性-> 双击"Internet协议(TCP/IP)"->⾼级->选中"TCP/IP筛选"->点击右下⽅"属性"->在"TCP端⼝"中将1433添加进去,然后⼀路确定。
vb用adodc控件连接sql server 2数据库的方法

VB用Adodc控件连接sql server 2000数据库的方法配有插图的详细用法请看jiben06@邮箱里的邮箱。
下面是文字介绍VB用Adodc控件连接sql server 2000数据库的方法:1、打开vb新建“标准EXE”;2、在菜单栏点击“工程”,弹出下拉菜单,鼠标单击“部件”;3、在控件选项卡下面选择"Microsoft ADO Data Control 6.0(SP6)"和"Microsoft DataGrid Control 6.0 (SP6)",单击“确定”按钮;4、在左侧工具中双击Adodc控件和DataGrid控件;5、挪动Form1上Adodc1和DataGrid1到合适的位置,把DataGrid1调节成合适大小;6、右击Adodc1,在弹出的下拉菜单中选择“ADODC属性”;出现属性页;单击“生成”按钮,弹出“数据链接属性”;选择"Microsoft OLE DB Provider for SQL Server",单击“下一步”,出现"数据库链接属性";下面以连接"pubs"数据库为例:(1)在“选择或输入服务器名称”下面输入"localhost";(2)在“输入登录服务器名称”下面,选择“使用Windows NT 集成的安全设置”,当然如果你的服务器指定的用户名和密码,你可以选择第二项,并输入用户名和密码;(3)在“在服务器上选择数据库”下面的下拉菜单中选择"pubs";单击“测试连接”,弹出连接成功的信息;单击“确定”;7、在Form1空白处双击鼠标左键,弹出代码编辑窗口;在“Private Sub Form_load()”和“End Sub”之间输入下面程序段;Adodc1.Visible = FalseAdodc1.RecordSource = "select * from sales"Adodc1.RefreshSet DataGrid1.DataSource = Adodc1.RecordsetDataGrid1.Refresh8、单击“启动”按钮;运行成功。
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。
第七讲 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访问SQL数据库VB与SQL的连接方式有多种,限与篇幅本文仅介绍以下两种:1.通过VB的数据库管理器(1)启动VB窗口,选择菜单“外接程序(Add-in)/可视化数据管理器(Visual Data Manager)/文件(File)/打开数据库(Open Database)/ODBC”。
(2)输入以下信息:DSN:pubs;UID:sa;Password:******;数据库:pubs。
单击【确定】按钮,可观察到所连接的pubs数据库中有关的表。
发送一条SQL语句,即可验证VB与SQL Server数据库pubs已连通。
2.使用ADO Data控件访问数据库。
这是使用ADO快速创建数据绑定控件和数据提供者之间的连接。
其中数据绑定控件可以是任何具有DataSource属性的控件;数据提供者可以是任何符合OLE DB规范的数据源。
ADO Data控件是ActiveX控件,在使用前必须先将其添加到工具箱中。
方法是:(1)单击“工程”—“部件”菜单选项,选中“Microsoft ADO Data Control 6.0(OLE DB)”后,按“确定”,此时ADO数据控件便出现在工具箱中。
(2)将ADO Data控件添加到窗体上,其默认的名称属性为“Adodc1”。
(3)右击ADO Data控件,选“ADODC属性”,弹出“属性页”对话框。
(4)选中“使用连接字符串”(也可以选择“ODBC数据源名称”),再单击“生成”按钮,弹出“数据链接属性”对话框。
(5)选择“提供程序”选项卡,在列表中选择“Microsoft OLE DB Provider For SQL SERVER”选项,单击“下一步”按钮。
(6)指定服务器的名称和登录信息并选择本连接要使用的数据库文件。
(7)单击“测试连接”按钮以确定连接是否正常。
若得到测试成功的消息,单击“确定”按钮以继续。
(8)在“属性页”对话框中选择“记录源”选项卡,在命令类型下拉列表中选择“2-adCmdTable”选项,在表或存储过程名称下拉列表中选择数据表“authors”。
(若选择的命令类型为“1-adCmdText”,则可在命令文本框中输入SQL查询语句select * from authors),然后单击“确定”按钮。
(9)在窗体上再添加一个数据绑定控件DataGridl,设定其DataSource为Adodc1。
运行结果:通过上述操作便实现了SQL Server数据库aa中authors表的浏览功能,得到预期的运行结果。
远程连接格式:ConnectionString="driver={SQL Server};server=211.85.184.107 ; uid=sa;pwd=; ConnectionTimeout=0;database=aa"在VB中用ADO实现数据库访问Visual Basic作为一种面向对象的可视化编程工具,具有简单易学、灵活方便和易于扩充的特点,并且支持一套出色的数据库访问技术。
Microsoft为其提供了与SQL Server通信的API函数集及工具集,因此它越来越多地用作前台应用程序的开发,与后台的Microsoft SQL Server相结合,从而提供一个高性能的客户机-服务器方案。
一、VB数据库访问技术的发展早期的Visual Basic数据访问工具是简单的ASCII文件访问工具,极少数SQL Server 的前端应用程序是数据接口VBSQL编写的。
在Visual Basic 3.0时代,许多用户强调转移包含远程数据源的ISAM(Indexed Sequential Access Method,索引顺序存取法)数据,为此Microsoft设计了Microsoft Jet Database Engine(或简称为Jet)和DAO(Data Access Object),使得Visual Basic Access开发人员很容易地同Jet接口,其操作针对记录和字段,主要用于开发单一的数据库应用程序。
随着使用者需求的不断改变,Visual Basic又包含了更快的访问远程数据和对ODBC数据源访问的优化,出现了新的数据库接口RDO(Remote Data Object),它是访问关系型ODBC数据源的最佳界面接口,其操作针对行和列。
ADO(ActiveX Data Objects)作为另一种可供选择的技术出现,正在逐渐代替其他数据访问接口。
ADO比DAO和RDO具有更好的灵活性,更易使用,实现的功能也更全面。
二、ActiveX数据对象ADOADO是一种用于开发访问OLE DB数据源应用程序的API,是Visual Basic中新的数据访问标准。
ADO 提供了更为高级的易于理解的访问机制,具有更加简单、更加灵活的操作性能。
ADO访问数据是通过OLE DB来实现的,OLE DB不仅能够以SQL Server、Oracle、Access等数据库文件为访问对象,还可对Excel 表格、文本文件、图形文件、电子邮件等各种各样的数据通过统一的接口进行存取。
ADO集中了DAO和RDO的优点,是DAO、RDO的后继产物而且不像DAO和RDO那样依赖于对象层次。
ADO对象模型定义了一个可编程的分层对象集合,主要由七个对象成员Connection、Command、Recordset、Error、Parameter、Field和Property以及四个集合对象Errors、Parameters、Fields、Properties所组成。
每个Connection、Command、Recordset和Field对象都有Properties集合。
三、ADO数据库访问技术的应用在VB中,使用ADO访问数据库主要有两种方式,一种是使用ADO Data控件,通过对控件的绑定来访问数据库中的数据,即非编程访问方式;另一种是使用ADO对象模型,通过定义对象和编写代码来实现对数据的访问,即编程访问方式。
下面以SQL Server数据库为例,说明这两种方式的使用。
首先在SQL Server 2000中建立一个aa的数据库,在aa数据库中建立xsh数据表,然后将此数据表的信息通过数据绑定控件DataGrid显示出来。
(一)使用ADO Data控件访问数据库。
这是使用ADO快速创建数据绑定控件和数据提供者之间的连接。
其中数据绑定控件可以是任何具有DataSource属性的控件;数据提供者可以是任何符合OLE DB规范的数据源。
ADO Data控件是ActiveX控件,在使用前必须先将其添加到工具箱中。
方法是:(1)单击“工程”—“部件”菜单选项,选中“Microsoft ADO Data Control 6.0(OLE DB)”后,按“确定”,此时ADO数据控件便出现在工具箱中。
(2)将ADO Data控件添加到窗体上,其默认的名称属性为“Adodc1”。
(3)右击ADO Data控件,选“ADODC属性”,弹出“属性页”对话框。
(4)选中“使用连接字符串”(也可以选择“ODBC数据源名称”),再单击“生成”按钮,弹出“数据链接属性”对话框。
(5)选择“提供程序”选项卡,在列表中选择“Microsoft OLE DB Provider For SQL SERVER”选项,单击“下一步”按钮。
(6)指定服务器的名称和登录信息并选择本连接要使用的数据库文件。
(7)单击“测试连接”按钮以确定连接是否正常。
若得到测试成功的消息,单击“确定”按钮以继续。
(8)在“属性页”对话框中选择“记录源”选项卡,在命令类型下拉列表中选择“2-adCmdTable”选项,在表或存储过程名称下拉列表中选择数据表“xsh”。
(若选择的命令类型为“1-adCmdText”,则可在命令文本框中输入SQL查询语句select * from authors),然后单击“确定”按钮。
(9)在窗体上再添加一个数据绑定控件DataGridl,设定其DataSource为Adodc1。
运行结果:通过上述操作便实现了SQL Server数据库aa中authors表的浏览功能,得到预期的运行结果。
(二)使用ADO 对象模型访问数据库。
为了能够在程序中使用ADO对象编程,在连接数据库前,需要在Visual Basic 6.0菜单“工程”—“引用”中选择Microsoft ActiveX Data Objects 2.8 Library组件。
运用ADO 对象模型的主要元素:Connection(连接)中的ConnectionString属性进行连接,ConnectionString为可读写string类型,指定一个连接字符串,告诉ADO如何连接数据库。
(1)首先创建一组ADO对象用于设置打开连接和产生结果集。
声明语句如下:Dim cn As New ADODB.ConnectionDim rs As New ADODB.Recordset(2)创建ADO对象实例,声明了对象以后,还需要创建对象实例,否则不能使用。