Option Compare Database
Option Explicit
Dim objrs1 As ADODB.Recordset
Dim zdm() '定义动态数组
Private Sub Form_Load()
Set objrs1 = New ADODB.Recordset
objrs1.Open "雇员", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
ReDim zdm(objrs1.Fields.Count - 1)
Dim i
For i = 0 To objrs1.Fields.Count - 1 '拾取数据库字段名及个数
zdm(i) = objrs1.Fields(i).Name
Next
If objrs1.AbsolutePosition <> adPosUnknown Then '空数据库
CmdEnd_Click '移动数据指针到底部且赋值
Command18.Visible = True
Else
Command13.SetFocus
Label17.Caption = "当前数据库共有 0 条记录,当前记录是第 0 号"
CmdTop.Enabled = False
CmdPrevious.Enabled = False
CmdNext.Enabled = False
CmdEnd.Enabled = False
Command18.Visible = False
End If
End Sub
Private Function K