注册 登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

谷海涛 廊坊师范学院信息技术提高班十四期

当你的才华还撑不起你的野心时,就应该静下心来学习!

 
 
 

日志

 
 

红皮书前5例子总结  

2016-12-13 21:32:13|  分类: 数据库 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
        本书主要介绍了如何使用visual basic6.0进行数据库管理系统开发,viaual basic6.0基础篇介绍了viaual basic6.0程序设计和数据库访问的基础知识,简单应用包括5个小例子,即“系统登录”对话框、使用ADO访问数据源。使用数据绑定数据、分页显示记录和数据查询。
        在第0章中系统而全面地介绍了visual basic程序设计和数据库访问的基础知识,再通过后面实例部分的学习,让我们能更好的掌握数据库的知识。

实例1 系统登录

1.       ADO Connection 连接数据源

ConnectionString对象:指定连接数据源的基本信息。

Open方法:打开数据源连接

Close方法:关闭数据源连接

2.       ADO RecordSet对象:用于保存从数据源获得得记录集。

ActiveConnection属性:代表数据源得活动连接。

Eof属性:测试当前记录位置是否位于记录集得最后有个记录之后是为True,否为False

Fields集合:包含Record Set对象得所有得Field对象,使用Fields来获得当前记录各个字段得值。

Open方法:打开记录集。其参数为执行查询得SQL命令字符串

ovjRs,Open(“SELECT 口令 FROM 系统用户 WHERE 用户名’admin’”)

3.       ADO对象访问Access 数据库,首先用Connection对象建立数据库连接,然后用RecordSet 从数据库获得用户名和口令,从而验证用户信息是否正确。若用Access2000或更高版本的数据库,必须选驱动程序(Provider)应用MicrosoftJet.OLEDB.4.0 。否则无法识别数据库格式。

4.       本代码使用了ON Error来捕捉错误,避免出现错误是意外终止。

5.       自定义函数过程:使用Function。。。End Function来定义函数过程。

Function 函数名(参数1  As 数据类型,参数2  As数据类型。。。。。。)As  数据类型

    …………

函数名= 返回值

   …………

End Function

如果没有对函数指定返回值,则过程将返回一个默认值:数值函数返回0.字符串函数返回一个零长度字符串(””)Variant函数返回Empty.

6.       Accesss数据库为文件型数据库,文件名即为数据库名。

7.       On Error GoTo gpError   '语句如果有错误,那么程序就会自动跳到gperror:所在的那行继续运行。gperror: '如果有错误,就会跳到这行!注意后面要有那个冒号!

8.       adodbActive Data Objects Data Base(活动数据对象数据基础)动态数据链接对象的简称。一种IIS内置的存取数据库的组件。是一种标准化的应用程序接口APIApplication Programming Interface),数据库的存取接口。(以前PHP 存取数据库的功能,一直未能标准化,因此才有了adodb组件,它支持的数据库种类非常多,)

常见变量命名意义:dbp=dbpath=data base path   dbq=data base  qualifier(限定物,描述,合格者)常与drive配对使用

provider常于datasource配对使用

 

实例2:使用ADO访问数据源

特点:1.通过ODBC数据源访问数据库,代表了如何建立关系数据库的Odbc数据源

2.使用adoRecordSet对象保存数据,执行Update方法实时更新

通过文本框和按钮事件完成数据显示和修改

二、ADO更新数据源

方法一:将数据源保存到RecordSet对象中,用UPDAte方法进行更新。

方法二;用Command对象执行SQL数据更新命令。这时不使用RecordSet对象或其他方法将数据检索到本地计算机。

RecordSet5个方法定位当前记录:

1.       MoveFirst:使记录指针指向第一个记录

2.       MoveNext:使记录指针指向下一个记录

3.       MovePrevious:使记录指针指向前一个记录

4.       Movelast: 使记录指针指向最后一个记录

5.       Move n: 使记录指针指向从当前记录算起的第n个记录

 

RecordSet的当前记录可用Field对象访问其各个数据列。Field对象的Name属性记录列名(字段名),Value属性报讯该字段的值。

等价语句:Debug.Print objRS.Fields(“口令”).Value

                     Debug.Print objRS.Fields(“口令”)

Debug.Print objRS(“口令”)

ODBC数据源3种:1.用户DSN 计算机本地数据源,只能被当前用户使用

 2.系统DSN  计算机本地数据源,可被任何具有权限的用户使用。

 3.文件DSN  可以不是计算机本地数据源,可被安装了相同驱动程序的用户使用

Connection对象在建立数据源连接时,默认使用MSDASQL驱动程序,所以在连接字符串中只需指定数据源名称即可。例如: objCn.Open”DSN=myaccess”    建立数据库连接

Win 10 创建ODBC 数据源在开始搜索“管理工具”,打开ODBC 数据源(32位)的。

 

实例3 使用数据绑定访问数据

数据绑定指将控件与数据源(通常为记录集)的特定字段关联,在程序运行时使控件能自动显示数据源数据,用户对数据的修改也可以自动保存。在本例中,使用ADO Data控件连接数据库获得数据源,然后将该数据源绑定到文本框来显示数据。

3种方法访问数据库:

1.使用ADO对象,通过代码访问数据库。

2.使用ADO Data控件快速创建连接。

3.使用数据环境设计器创建数据库连接,不用代码。

ADO Data 控件“通用”选项:

Data Link 文件是包含连接字符串的文本文件,扩展名 .udl选中“使用Data Link文件” 按钮,然后再下面输入文件名。

ODBC数据源连接数据库,选中它,然后在下方输入ODBC数据源名称或新建。

使用连接字符串连接数据库,选中它,然后在下方输入连接字符串,或单击属性生成连接字符串。

 

实例4 分页显示记录

分页显示记录在浏览大量数据时非常有用,使用记录分页显示功能可提高效率。

显示当前记录页数据有2种方法:

1.       使用Data Grid 控件。2.使用MSFlexGridMicrosoft  DataGrid  Control6.0)控件。

记录集的分页属性分别如下:

Page Size属性:设置或返回一个记录页中包含的记录个数,默认值10

Page Count:返回一个记录集的记录页总数

AbsolutePage:设置或返回当前记录页编号

 

MSFlexGrid控件属性:Cols:设置和返回控件的行数

Rows:设置和返回控件列数

TextMatrix:设置和返回控件单元格的文本内容。例如:MSHFlexGrid1.TextMatrix(2 ,2)=admin设置第二行第二列的单元格内容为admin.

实例5 数据查询

用于从数据库检索符合条件的数据

设计思路:

1.       使用ADOCommand对象创建参数查询数据库

2.       使用MSFlexGrid控件以表格的形式显示查询结果

查询数据库的基本方法:

1.       使用查询参数构造SQL Select语句,然后使用ADO Command 对象或RecordSet对象执行查询语句。

2.       使用ADO Command对象创建参数查询。

3.       先执行Select 语句获取数据库数据,将其放到Record set对象中,让背后执行Record Set对象的Find方法查找符合条件的数据,或者设置Record Set对象的Filter属性筛选符合条件的记录。

4.       采用Command对象执行普通查询或参数查询时,查询返回的是行集非记录集。行集不支持标签,因此不能将其作为数据绑定的数据源。显示结果通常使用MSFlex Grid控件,通过代码将数据填充到控件中显示。

5.       使用RecordSet对象执行查询获得的是记录集,可以将其作为数据绑定的数据源,如绑定到Data Grid控件,这样控件可自动查询结果中的数据。

MSFlex Grid控件的Add Item方法用于向控件添加一行数据,

语法:object.AddItem(string,index)

MSFlex Grid控件数据清除用Clear方法。

例如:MSFlex Grid.Clear 或者MSFlex Grid.Remove Item

使用Command对象创建参数查询

1.       创建Command对象,使用?作为Select语句中的查询参数,

例如objCmdCommandText = “Select*From 系统用户 WHERE 用户名 LIKE

2.       使用Command 对象CreateParameter 方法创建参数对象,然后将其添加到Command对象的Parameter集合中。

例如:创建一个“用户名”的参数对象,将其放到Command对象objCmd Parameter集合中。

 

Dim Parm As New Parameter

Set Parm = objCmd.CreateParameter(“用户名adVarChar,adParamInput, 10)

objCmd.Parameters.Append Parm

3.       设置查询参数值:objCmd(“用户名”) = admin

4.       执行Command对象的Execute 方法完成查询。(注意:如果参数在创建时没有指定默认值,则在执行Execute方法前必须试着查询参数的值,否则出错。)

心得体会:

1.再次看到代码不那么陌生,许多都是见过和认识的,也算“旧时相识”吧,嘿嘿。。。

2.自主学习能力不断提高。遇到困难没有逃避,用各种办法去解决,感觉自己正在进步。

3.虽然还有许多东西不是很明白,不过也不必太担心,迟早会懂得!

4.及时当勉励,岁月不待人!


  评论这张
 
阅读(66)| 评论(34)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018