这里以链接access数据库为例。
第一部分是通过语句链接第二部分是通过控件链接
一、
通过语句链接数据库然后把相应的数据赋值给某个文本框就行了。
1 .首先定义几个全局变量
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dimconstr As String
2.给这些变量赋值方便链接数据库constr = "Provider=Microsoft .Jet .OLEDB.4.0; " &"Data Source=D:\EffectSolution\科学效应数据库.mdb"红色部分写你自己的数据库路径。
3.打开数据库cn.open constr
打开表rs .open “select * from效应表where id=5“ cn取字符串并赋值给相应的文本
Text1 . text=rs.f ields(“效应和现象名称”)
Text2. tex t=rs.f ie lds(“文字解说”)
关闭表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 Stringconstr = "Provider=Microsoft .Jet .OLEDB.4.0;" &_"Data Source=D:\EffectSolution\科学效应数据库.mdb"'空格加短下划线表示续行cn.open constrrs .open "select * from效应表where id =5" , cnText 1 .Tex t =r s .f i e ld s("效应和现象名称")
Text2.Text =r s .f ie lds("文字解说")rs .Close
cn.Close
End Sub
二、
通过ado控件链接数据库然后通过datagrid控件显示数据库中的相关表。
过程示例
1 .添加部件ado控件和datagrid控件如图所示
这样工具栏里面会出现这样两个图标最下面
2.把这两个控件添加到你的form1里面这个不用演示吧
3.右击你添加的 adodc1控件 选最后一个
然后点General里面的Use Connection String里面的那个Build 选择microsoft JET 4.0 OLE DBProvider 选中之后点下一步
4.然后点击第一个项目右边那个很多点的按钮找到自己的数据库选好之后点“打开“
旁边的文本框里面就有了数据路径像这样
5.测试连接成功了就行了
ZJI是成立于2011年原Wordpress圈知名主机商—维翔主机,2018年9月更名为ZJI,主要提供香港、日本、美国独立服务器(自营/数据中心直营)租用及VDS、虚拟主机空间、域名注册业务。本月商家针对香港阿里云线路独立服务器提供月付立减270-400元优惠码,优惠后香港独立服务器(阿里云专线)E3或者E5 CPU,SSD硬盘,最低每月仅480元起。阿里一型CPU:Intel E5-2630L...
俄罗斯vps云服务器商家推荐!俄罗斯VPS,也叫毛子主机(毛子vps),因为俄罗斯离中国大陆比较近,所以俄罗斯VPS的延迟会比较低,国内用户也不少,例如新西伯利亚机房和莫斯科机房都是比较热门的俄罗斯机房。这里为大家整理推荐一些好用的俄罗斯VPS云服务器,这里主要推荐这三家:justhost、ruvds、justg等俄罗斯vps主机,方便大家对比购买适合自己的俄罗斯VPS。一、俄罗斯VPS介绍俄罗斯...
LightNode是一家位于香港的VPS服务商.提供基于KVM虚拟化技术的VPS.在提供全球常见节点的同时,还具备东南亚地区、中国香港等边缘节点.满足开发者建站,游戏应用,外贸电商等应用场景的需求。新用户注册充值就送,最高可获得20美元的奖励金!成为LightNode的注册用户后,还可以获得属于自己的邀请链接。通过你的邀请链接带来的注册用户,你将直接获得该用户的消费的10%返佣,永久有效!平台目前...