这里以链接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 就行了。
华纳云(HNCloud Limited)是一家专业的全球数据中心基础服务提供商,总部在香港,隶属于香港联合通讯国际有限公司,拥有香港政府颁发的商业登记证明,保证用户的安全性和合规性。 华纳云是APNIC 和 ARIN 会员单位。主要提供香港和美国机房的VPS云服务器和独立服务器。商家支持支付宝、网银、Paypal付款。华纳云主要面向国内用户群,所以线路质量还是不错的,客户使用体验总体反响还是比较好...
昨天我们很多小伙伴们应该都有看到,包括有隔壁的一些博主们都有发布Vultr商家新的新用户注册福利活动。以前是有赠送100美元有效期30天的,这次改成有效期14天。早年才开始的时候有效期是60天的,这个是商家行为,主要还是吸引到我们后续的充值使用,毕竟他们的体验金赠送,在同类商家中算是比较大方的。昨天活动内容:重新调整Vultr新注册用户赠送100美元奖励金有效期14天今天早上群里的朋友告诉我,两年...
Central美国独立日活动正在进行中,旗下美国达拉斯机房VPS 65折优惠,季付赠送双倍内存(需要发工单),Central租用的Hivelocity的机房,只支持信用卡和加密货币付款,不支持paypal,需要美国独服的可以谨慎入手试试。Central怎么样?Central便宜服务器,Central自称成立于2019年,主营美国达拉斯机房Linux vps、Windows vps、专用服务器和托管...