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
Digital-vm是一家成立于2019年的国外主机商,商家提供VPS和独立服务器租用业务,其中VPS基于KVM架构,提供1-10Gbps带宽,数据中心可选包括美国洛杉矶、日本、新加坡、挪威、西班牙、丹麦、荷兰、英国等8个地区机房;除了VPS主机外,商家还提供日本、新加坡独立服务器,同样可选1-10Gbps带宽,最低每月仅80美元起。下面列出两款独立服务器配置信息。配置一 $80/月CPU:E3-...
ShockHosting商家在前面文章中有介绍过几次。ShockHosting商家成立于2013年的美国主机商,目前主要提供虚拟主机、VPS主机、独立服务器和域名注册等综合IDC业务,现有美国洛杉矶、新泽西、芝加哥、达拉斯、荷兰阿姆斯特丹、英国和澳大利亚悉尼七大数据中心。这次有新增日本东京机房。而且同时有推出5折优惠促销,而且即刻使用支付宝下单的话还可获赠10美金的账户信用额度,折扣相比之前的常规...
关于CYUN商家在之前有介绍过一次,CYUN是香港蓝米数据有限公司旗下的云计算服务品牌,和蓝米云、蓝米主机等同属该公司。商家主要是为个人开发者用户、中小型、大型企业用户提供一站式核心网络云端部署服务,促使用户云端部署化简为零,轻松快捷运用云计算。目前,CYUN主要运营美国、香港、台湾、日本、韩国CN2线路产品,包括云服务器、站群服务器和独立服务器等。这次看到CYUN夏季优惠活动发布了,依然是熟悉的...