这里以链接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 就行了。
Chia矿机,Spinservers怎么样?Spinservers好不好,Spinservers大硬盘服务器。Spinservers刚刚在美国圣何塞机房补货120台独立服务器,CPU都是双E5系列,64-512GB DDR4内存,超大SSD或NVMe存储,数量有限,机器都是预部署好的,下单即可上架,无需人工干预,有需要的朋友抓紧下单哦。Spinservers是Majestic Hosting So...
弘速云怎么样?弘速云是创建于2021年的品牌,运营该品牌的公司HOSU LIMITED(中文名称弘速科技有限公司)公司成立于2021年国内公司注册于2019年。HOSU LIMITED主要从事出售香港vps、美国VPS、香港独立服务器、香港站群服务器等,目前在售VPS线路有CN2+BGP、CN2 GIA,该公司旗下产品均采用KVM虚拟化架构。可联系商家代安装iso系统,目前推出全场vps新开7折,...
感恩一年有你!免费领取2核4G套餐!2核4G轻量应用服务器2核 CPU 4GB内存 60G SSD云硬盘 6Mbps带宽领取地址:https://cloud.tencent.com/act/pro/lighthousethankyou活动规则活动时间2021年9月23日 ~ 2021年10月23日活动对象腾讯云官网已注册且完成实名认证的国内站用户(协作者与子用户账号除外),且符合以下活动条件:账号...