这里以链接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 就行了。
Hostodo商家算是一个比较小众且运营比较久的服务商,而且还是率先硬盘更换成NVMe阵列的,目前有提供拉斯维加斯和迈阿密两个机房。看到商家这两年的促销套餐方案变化还是比较大的,每个月一般有这么两次的促销方案推送,可见商家也在想着提高一些客户量。毕竟即便再老的服务商,你不走出来让大家知道,迟早会落寞。目前,Hostodo有提供两款大流量的VPS主机促销,机房可选拉斯维加斯和迈阿密两个数据中心,且都...
目前国内云计算市场竞争异常激烈,尤其是国内的腾讯云、阿里云、景安等商家促销活动一波接一波的进行,对于有需要的用户确实得到不小的实惠。但是这样给予国内的主机商确实是比较大的打击,毕竟这些商家的背景和实例强劲,即便是贴本补贴优惠,也是不怕的。前两年阿里一家各种活动促销,确实在国内市场占据主要的市场地位,腾讯云开始两年没有较大的吸引用户,不过这两年的发展还是比较稳健的。我们很多网友在之前肯定也享受到一些...
我们一般的站长或者企业服务器配置WEB环境会用到免费版本的宝塔面板。但是如果我们需要较多的付费插件扩展,或者是有需要企业功能应用的,短期来说我们可能选择按件按月付费的比较好,但是如果我们长期使用的话,有些网友认为选择宝塔面板企业版或者专业版是比较划算的。这样在年中大促618的时候,我们也可以看到宝塔面板也有发布促销活动。企业版年付899元,专业版永久授权1888元起步。对于有需要的网友来说,还是值...