这里以链接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 就行了。
95idc是一家香港公司,主要产品香港GIA线路沙田CN2线路独服,美国CERA高防服务器,日本CN2直连服务器,即日起,购买香港/日本云主机,在今年3月份,95IDC推出来一款香港物理机/香港多ip站群服务器,BGP+CN2线路终身7折,月付350元起。不过今天,推荐一个价格更美的香港物理机,5个ip,BGP+CN2线路,月付299元起,有需要的,可以关注一下。95idc优惠码:优惠码:596J...
快快CDN主营业务为海外服务器无须备案,高防CDN,防劫持CDN,香港服务器,美国服务器,加速CDN,是一家综合性的主机服务商。美国高防服务器,1800DDOS防御,单机1800G DDOS防御,大陆直链 cn2线路,线路友好。快快CDN全球安全防护平台是一款集 DDOS 清洗、CC 指纹识别、WAF 防护为一体的外加全球加速的超强安全加速网络,为您的各类型业务保驾护航加速前进!价格都非常给力,需...
IntoVPS是成立于2004年的Hosterion SRL旗下于2009年推出的无管理型VPS主机品牌,商家提供基于OpenStack构建的VPS产品,支持小时计费是他的一大特色,VPS可选数据中心包括美国弗里蒙特、达拉斯、英国伦敦、荷兰和罗马尼亚等6个地区机房。商家VPS主机基于KVM架构,最低每小时0.0075美元起($5/月)。下面列出几款VPS主机配置信息。CPU:1core内存:2GB...