ess数据库嘛??有实例 代码给你
Public zf1 As Integer Private Sub cj98_Click() Dim bh Data2.RecordSource = "98年成绩" Data2.Refresh bh = Data1.Recordset.Fields("编号") Data2.Recordset.FindFirst ("编号" = bh) Call zf Label13 = zf1 End Sub
Private Sub cj99_Click() Dim bh As Integer Data2.RecordSource = "99年成绩" Data2.Refresh bh = Data1.Recordset.Fields("编号") Data2.Recordset.FindFirst ("编号" = bh) Call zf Label13 = zf1 End Sub
Private Sub Data1_Reposition() Dim bh As Integer bh = Data1.Recordset.Fields("编号") Data2.Recordset.MoveFirst Do While Data2.Recordset.EOF = False If Data2.Recordset.Fields("编号") = bh Then Exit Do Else Data2.Recordset.MoveNext End If Loop Call zf Label13 = zf1 End Sub
Private Sub Z1_Click() Dim bh Data1.DatabaseName = "C:Documents and SettingsAdministrator桌面db2.mdb" Data1.Refresh Data2.DatabaseName = "C:Documents and SettingsAdministrator桌面db2.mdb" Data2.Refresh bh = Data1.Recordset.Fields("编号") Data2.Recordset.FindFirst ("编号" = bh) Call zf Label13 = zf1 End Sub Sub zf() zf1 = Data2.Recordset.Fields("微机原理") + Data2.Recordset.Fields("OFFICE使用") + Data2.Recordset.Fields("五笔字型打字") + Data2.Recordset.Fields("VB编程") End Sub
公司介绍成都随风云科技有限公司成立于2021年,是国内领先的互联网业务平台服务提供商。公司专注为用户提供低价高性能云计算产品,致力于云计算应用的易用性开发,并引导云计算在国内普及。目前公司研发以及运营云服务基础设施服务平台(IaaS),面向全球客户提供基于云计算的IT解决方案与客户服务,拥有丰富的国内BGP、双线高防、香港等优质的IDC资源。公司一直秉承”以人为本、客户为尊、永续创新&...
iON Cloud怎么样?iON Cloud是Krypt旗下的云服务器品牌,成立于2019年,是美国老牌机房(1998~)krypt旗下的VPS云服务器品牌,主打国外VPS云服务器业务,均采用KVM架构,整体性能配置较高,云服务器产品质量靠谱,在线率高,国内直连线路,适合建站等用途,支付宝、微信付款购买。支持Windows server 2012、2016、2019中英文版本以及主流Linux发行...
关于CYUN商家在之前有介绍过一次,CYUN是香港蓝米数据有限公司旗下的云计算服务品牌,和蓝米云、蓝米主机等同属该公司。商家主要是为个人开发者用户、中小型、大型企业用户提供一站式核心网络云端部署服务,促使用户云端部署化简为零,轻松快捷运用云计算。目前,CYUN主要运营美国、香港、台湾、日本、韩国CN2线路产品,包括云服务器、站群服务器和独立服务器等。这次看到CYUN夏季优惠活动发布了,依然是熟悉的...