控件vb连接access数据库常用的方法两种示例

vb连接access数据库  时间:2021-02-26  阅读:()

这里以链接access数据库为例。

第一部分是通过语句链接第二部分是通过控件链接

一、

通过语句链接数据库然后把相应的数据赋值给某个文本框就行了。

1.首先定义几个全局变量

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim constr As String

2.给这些变量赋值方便链接数据库constr = "Provi der=Mi cro so ft.Jet.O LE DB.4.0;" & "D ataSource=D:\EffectSolution\科学效应数据库.mdb"

红色部分写你自己的数据库路径。

3.打开数据库cn.open constr

打开表rs.open “select * from效应表where id=5“ cn取字符串并赋值给相应的文本

Text1.text=rs.fields(“效应和现象名称”)

Text2.text=rs.fields(“文字解说”)

关闭表rs.close

关闭数据库cn.close

注意最后两步骤一定要有不然下次打开数据库的时候会提示出错的这样的话在窗口上建立两个文本框就够了。但是在此之前还有一步一定要做

点"工程"-"引用"-找到"Microsoft ActiveX Data Object

2.6 "如图所示

显示的结果如下图所示

通过与效应表对比发现显示正确。

总体代码如下

Private Sub Form_Load()

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim constr As Stringc o ns tr="P ro vid er=Mic ro so ft.Jet.O LEDB.4.0;"&_"Data Source=D:\EffectSolution\科学效应数据库.mdb"'空格加短下划线表示续行cn.open constrrs.op en

Text 1.Text=rs.fields("效应和现象名称")

Text2.Text=rs.fie lds("文字解说")

rs.Closecn.Close

End Sub

二、

通过ado控件链接数据库然后通过data gri d控件显示数据库中的相关表。

过程示例

1.添加部件ado控件和dat agri d控件如图所示

这样工具栏里面会出现这样两个图标最下面

2.把这两个控件添加到你的form1里面这个不用演示吧

3.右击你添加的 adodc1 控件 选最后一个

然后点General里面的Use Connection String里面的那个Build选择microsoft JET 4.0 OLE DB Provider选中之后点下一步

4.然后 点击第一个项目右边那个很多点的按钮找到自己的数据库选好之后点“打开“

旁边的文本框里面就有了数据路径像这样

5.测试连接成功了就行了

6.点确定显示这样一个界面

7.点右边第三个RecordSource按钮设置成如下情况——cmdtext选择1 然后输入SQL语句

Select * from 效应表表名必填

8.设置好之后点确定就行了这样就通过ado dc 1控件连接到了数据库中的这张表接下来是对dat agri d控件的设置

9.把datagrid1控件的datasource设置成adodc 1 就行了。

imidc:$88/月,e3-1230/16G内存/512gSSD/30M直连带宽/13个IPv4日本多IP

imidc对日本独立服务器在搞特别促销,原价159美元的机器现在只需要88美元,而且给13个独立IPv4,30Mbps直连带宽,不限制流量。注意,本次促销只有一个链接,有2个不同的优惠码,你用不同的优惠码就对应着不同的配置,价格也不一样。88美元的机器,下单后默认不管就给512G SSD,要指定用HDD那就发工单,如果需要多加一个/28(13个)IPv4,每个月32美元...官方网站:https:...

HostKvm($4.25/月),俄罗斯CN2带宽大升级,俄罗斯/香港高防限量5折优惠进行中

HostKvm是一家成立于2013年的国外VPS服务商,产品基于KVM架构,数据中心包括日本、新加坡、韩国、美国、俄罗斯、中国香港等多个地区机房,均为国内直连或优化线路,延迟较低,适合建站或者远程办公等。本月,商家旗下俄罗斯、新加坡、美国、香港等节点带宽进行了大幅度升级,俄罗斯机房国内电信/联通直连,CN2线路,150Mbps(原来30Mbps)带宽起,目前俄罗斯和香港高防节点5折骨折码继续优惠中...

火数云-618限时活动,国内云服务器大连3折,限量50台,九江7折 限量30台!

官方网站:点击访问火数云活动官网活动方案:CPU内存硬盘带宽流量架构IP机房价格购买地址4核4G50G 高效云盘20Mbps独享不限openstack1个九江287元/月立即抢购4核8G50G 高效云盘20Mbps独享不限openstack1个九江329元/月立即抢购2核2G50G 高效云盘5Mbps独享不限openstack1个大连15.9元/月立即抢购2核4G50G 高效云盘5Mbps独享不限...

vb连接access数据库为你推荐
weipin唯品宝是什么?和唯品金融有什么关系?网站运营一般网站如何运营安卓应用平台安卓系统支持的软件并不是那么多,为什么这么多人推崇?开机滚动条如何关闭开机滚动条?mate8价格华为mate8 128g售价多少钱2012年正月十五农历2012年正月15早上9点多生的!命里缺什么!是什么命相gbk编码表GBK码表怎么查网站推广外链我是新手SEO,请问网站怎样做外链推广cisco防火墙思科路由器上自带防火墙功能吗?价格在线qq号码价值在线评估
武汉域名注册 广东服务器租用 河北服务器租用 韩国vps 万网域名证书查询 justhost wdcp 服务器怎么绑定域名 我爱水煮鱼 国外免费全能空间 工信部icp备案号 100m独享 太原网通测速平台 带宽租赁 iki 服务器论坛 国外免费云空间 apnic 开心online 免费的加速器 更多