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

张慧颖 廊坊师范学院信息技术提高班十四

 
 
 

日志

 
 
关于我

今生,我愿做一剪轻逸的梅花,在风雪中傲然的绽放,带着今生的夙愿,带着隔世的梅香,静守住心灵的宁静........

网易考拉推荐

红皮书实例一  

2017-05-14 20:32:20|  分类: 计算机 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
 

一、实例一

1、默认按钮和取消按钮

 将命令按钮的default属性设置为true,按钮成为窗口的默认按钮,按enter键即可选择该按钮

将命令按钮的cancel属性设置为true,按钮成为窗口的取消按钮,可通过单击它,按esc键,或在该按钮获得焦点时按enter键来选择它。

2、ADO Connection 对象

在访问数据之前,必须先建立链接

ConnectionString属性:指定链接数据源的基本信息

3、ADO Recordset对象

保存容纳数据源中获得的记录

4、自定义函数过程:Function…End function  形式如下:

[static][Public][Private]  Function 过程名 [(参数列表)] [As 类型]

 

例子

1、创建数据库——设计窗体——建立ADO引用——编写代码

2、option  explicit  强制声明

 

Dim intresult As Integer   声明一个名为result的整形函数,int为integer的缩写。 

红皮书实例一 - 14期   张慧颖 - 张慧颖  廊坊师范学院信息技术提高班十四
 
  VbCrlf:即Chr(13)&(10),回车符与换行符连在一起,是换行的意思
3、编写用户名口令验证:工具——添加过程——建立一个自定义函数     用到上面讲解的function
Private Function Check_PassWord(ByVal username As String, ByVal password As String) As Byte
注意红字部分需要自己输入

Private 表明是私有函数

Function 表明此函数有返回值

Check_PassWord   为过程名(这个是有用户自己随便定义的)

ByVal    表明参数是按值传递(VB里默认是按址传递)

Byte      表明该函数返回值是字节类型的

红皮书实例一 - 14期   张慧颖 - 张慧颖  廊坊师范学院信息技术提高班十四
 
 

上面用到了 on Error GoTo gpreeor 的一个应以程序,这段On Error语句的主要意思就是:启动一个错误处理程序并指定该子程序在一个过程中的位置;也可用来禁止一个错误处理程序。通俗点就是如果下面的代码有错误的话,直接跳到gperror定义的位置中执行下面的代码。

注意 一个错误处理程序不是 Sub 过程或 Function 过程。它是一段用行标签或行号标记的代码。

关于 on Error语句的具体使用方法在网上查了一下,发现了一位师姐的博客,感兴趣的可以参考一下。写的很全面http://m18330691161.blog.163.com/blog/static/211348130201314111928501/  

 

想必大家在provider=Microsoft.jet.OLEDB.4.0 这里也发生了错误吧,那么Microsoft.jet.OLEDB.4.0 到底是什么呢?其实Microsoft.Jet.OLEDB.4.0是一种ACCESS数据库的搜索引擎,用于VB的ADO数据控件与ACCESS数据库代码连接.而

Provider=Microsoft.Jet.OLEDB.3.51是ACCESS 97版本的驱动,如果ACCESS 2000的话就是Provider=Microsoft.Jet.OLEDB.4.0    所以咱们的版本高不能用3.51的

 

代码中 strname = Trim(txtUserName.Text)       '获得输入的用户名中trim()的功能:删除字符串中多余的空格,但会在英文字符串中保留一个词作为词与词之间分隔的空格

 

 

  评论这张
 
阅读(29)| 评论(17)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

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

页脚

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