VB与数据库的交互经典例子总结

前端之家收集整理的这篇文章主要介绍了VB与数据库的交互经典例子总结前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

实例1

1.任务

创建基于数据库的“系统登录”界面

2.过程

创建Access数据库设计窗体编写代码

定义一个函数过程(这里仅仅是定义这样一个过程,后面的事件才是真真的调用这个过程并予以实现),在函数过程里面通过connectinstring来建立对数据库的连接,然后利用objrs获取用户登录信息,其中用了if嵌套来是实现登录过程中出现的各种情况的应对。(这里应该就是米老师常说的为人民服务的宗旨,这里我想起来了一句海芳师姐的话,让用户躺在向日葵中。)

3.经典的代码

可能这并不是多么多么经典,只是应用过程中会用到很多次。

Objcn.connetionstring=”provider=Microsoft.jet.oledb.4.0;”& “data source=” & app.path & “\数据库\实例1.mdb”

Objcn.open

或者是这个一个版本

Strcn=”provider=Microsoft.jet.oledb.4.0;”&”data source =”& app.path &”\数据库\实例1.mdb”

Objcn.connectionstring=strcn

Objcn.open

当然在之前还是要定义objcn为连接集的,这段代码说白了就是用来连接数据库用的。是直接可以拿来用的,可能要更改一下路径什么的。

当然建立了数据库的连接,最后还是要释放的。就有下面这段你死了都不会忘了的代码了。

Set objrs=nothing

Objcn.close

Set objcn=nothing 

可能大家有的顺序不一样,到目前为止我见过很多版本。还没有发现顺序对于运行有何影响。

实例2

1. 任务使用ADO实现对ODBC数据源的访问。(卡了?简单来说ODBC提供了对sql语言的支持用户可以直接将sql语句送给ODBC。还能以统一的方式访问数据库。)

2. 过程

Set objcn=new connection

Objcn.open”DSN=实例 2 DSN” Domain name system ‘

这里的DSN,中文域名系统一个DSN中至少应该包含如下一些内容

◆关于数据库驱动程序的信息。

数据库存放位置。文件数据库(如Access)的存放位置为数据库文件的路径;非文件数据库(如sql Server)的存放位置是指服务器的名称

数据库名称。在ODBC数据源管理器中,所有的DSN名称是不能重复的。

实例 3

1. 任务

使用 ADO Data 控件创建数据库连接

2. 过程

第一步:ADO Data控件连接数据库

第二步:文本框显示数据

Adodc1.caption="当前记录:"& Adodc1.RecordSet.AbsolutePosition & "\" & Adodc1.Recordset.Recordcount

实例 4

1.任务

利用DataGrid 控件和记录集分页特性显示数据分页

2.过程

第一步:添加Microsoft DataGrid Control 6.0(OLEDB)部件

第二步:自定义过程用来显示当前记录页数据,并复制到记录集对象中,最后绑定DataGrid控件

第三步:连接数据库和记录集对象

出现的问题:对于实例4来说,其实我在实验过程中出现了很多问题。都是一些很小的细节,什么字母丢了,中英文切换错误。还是太粗心了。

这个例子跟前面几个例子,有很多的相似的地方。不同的是这里用了一个datacrid控件,用来分页显示

实例5

1.任务

使用ADO Command对象实现数据库查询功能

2.过程

第一步;窗体加载时创建数据库连接和Command 对象

下面是建立参数查询代码

Dim parm As New Parameter
set parm  =objcmd.createparameter("用户名",advarchar,adparaminput,10)
objcmd.parameters.append parn
set parm =objcmd.createparameter("身份",advarchar,10)
objcmd.parameters.append parm


第二步:执行查询结果

第三步:关闭数据库连接

实例5和实例4好像都是前面几个例子的综合,外加上几个很好用的控件来显示数据那种效果Msflexgrid控件里面很多参数属性倒是挺新鲜的。(应该VB有接触,但是学的。。。)

原文链接:https://www.f2er.com/vb/259683.html

猜你在找的VB相关文章