vb连接access大数据库常用地方法两种示例

vb连接access大数据库常用地方法两种示例

ID:33811554

大小:1.28 MB

页数:11页

时间:2019-02-28

vb连接access大数据库常用地方法两种示例_第1页
vb连接access大数据库常用地方法两种示例_第2页
vb连接access大数据库常用地方法两种示例_第3页
vb连接access大数据库常用地方法两种示例_第4页
vb连接access大数据库常用地方法两种示例_第5页
资源描述:

《vb连接access大数据库常用地方法两种示例》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库

1、实用标准这里以链接access数据库为例。第一部分是通过语句链接,第二部分是通过控件链接一、通过语句链接数据库,然后把相应的数据赋值给某个文本框就行了。1.首先定义几个全局变量DimcnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimconstrAsString2.给这些变量赋值,方便链接数据库constr="Provider=Microsoft.Jet.OLEDB.4.0;"&"DataSource=D:EffectSolution科学效应数据库.mdb"红色部分写你自己的数据库路径。3.打开数据库cn.

2、openconstr打开表rs.open“select*from效应表whereid=5“,cn取字符串并赋值给相应的文本Text1.text=rs.fields(“效应和现象名称”)Text2.text=rs.fields(“文字解说”)关闭表rs.close关闭数据库cn.close注意,最后两步骤一定要有,不然下次打开数据库的时候会提示出错的,这样的话,在窗口上建立两个文本框就够了。但是,在此之前还有一步一定要做,精彩文档实用标准点"工程"-"引用"-找到"MicrosoftActiveXDataObject2.6",如图所示:显示的结果如下图所示:精彩

3、文档实用标准通过与效应表对比发现显示正确。总体代码如下:PrivateSubForm_Load()DimcnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimconstrAsStringconstr="Provider=Microsoft.Jet.OLEDB.4.0;"&_"DataSource=D:EffectSolution科学效应数据库.mdb"'空格加短下划线表示续行cn.openconstrrs.open"select*from效应表whereid=5",cnText1.Text=rs.fields

4、("效应和现象名称")精彩文档实用标准Text2.Text=rs.fields("文字解说")rs.Closecn.CloseEndSub二、通过ado控件链接数据库,然后通过datagrid控件显示数据库中的相关表。过程示例:1.添加部件ado控件和datagrid控件,如图所示:精彩文档实用标准这样工具栏里面会出现这样两个图标(最下面):2.把这两个控件添加到你的form1里面,这个不用演示吧3.右击你添加的adodc1控件,选最后一个精彩文档实用标准然后点General里面的UseConnectionString里面的那个Build,选择microsof

5、tJET4.0OLEDBProvider,选中之后点下一步;精彩文档实用标准4.然后,点击第一个项目右边那个很多点的按钮,找到自己的数据库,选好之后点“打开“精彩文档实用标准旁边的文本框里面就有了数据路径,像这样:5.测试连接,成功了就行了精彩文档实用标准6.点确定,显示这样一个界面:7.点右边第三个RecordSource按钮,设置成如下情况——cmdtext选择1,然后输入SQL语句,Select*from效应表(表名,必填)精彩文档实用标准8.设置好之后点确定就行了,这样就通过adodc1控件连接到了数据库中的这张表接下来是对datagrid控件的设置:

6、9.把datagrid1控件的datasource设置成adodc1,就行了。精彩文档实用标准10.按F5启动,就会显示这样一个结果:这样就成功了。精彩文档

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。