关于VB 实时错误'91'对象变量或With块变量未设置

来源：百度知道 编辑：UC知道 时间：2024/05/31 12:11:42
部分代码如下：不知问题何在。

Sub Photo()
Dim Ph As ADODB.Recordset
Dim Msg$
Dim SQL$
DBName = StudentDB.mdb
SQL = "select * from student where id='" & FrmPrintCmd.Label5.Caption & "'"
Set Ph = executeSQL(SQL, Msg, DBName)
If Ph.EOF = True Then
MsgBox "工号不唯一，请查找", vbInformation, "提示"
Else
Data2.Recordset.MoveFirst
Data2.Recordset.Move (Val(Ph(7)) - 1)
FrmPrintCmd.Image1.Picture = Picture1.Picture
FrmPrintCmd.Label3.Caption = Data2.Recordset.Fields(3)
End If
End Sub

Private Sub Form_Activate()
If FR = True Then
Data1.Recordset.MoveLast
Data1.Recordset.MoveFirst
Call ViewRS
Data2.Recordset.MoveLast
Data2.Recordset.MoveFirst
Call Photo
FR = False
End If
End Sub

Private Sub Form_Load()
FR = True
Data1.DatabaseName = App.Path & "\

Sub Photo()
Dim Ph As New ADODB.Connection
Dim Ph1 As new ADODB.Recordset
Dim Msg$
Dim SQL$
DBName = StudentDB.mdb
Ph.Open "provider=Microsoft.Jet.OLEDB.4.0; data source= "& dbname &""
SQL = "select * from student where id='" & FrmPrintCmd.Label5.Caption & "'"
ph1.Open sql ph, adOpenStatic, adLockOptimistic

If Ph.EOF = True Then
MsgBox "工号不唯一，请查找", vbInformation, "提示"
Else
Data2.Recordset.MoveFirst
Data2.Recordset.Move (Val(Ph(7)) - 1)
FrmPrintCmd.Image1.Picture = Picture1.Picture
FrmPrintCmd.Label3.Caption = Data2.Recordset.Fields(3)
End If
End Sub

Private Sub Form_Activate()
If FR = True Then
Data1.Recordset.MoveLast
Data1.Recordset.MoveFirst
Call ViewRS
Data2.Recordset.MoveLast
Data2.Recordset.MoveFirst
Call Photo
FR = False
End If
End Sub