
114 CHAPTER 3
PCDSQL
Public oUpdateSQL As New PCDSQL
Private Sub cbCancel_Click()
Dim nResult As Long
'Release the result set for this instance of
'the PCDSQL object.
nResult = oUpdateSQL.ReleaseResults()
Unload UpdateForm
End Sub
Private Sub cbUpdate_Click()
Dim sTempBuf As String
Dim sSQL As String
Dim nRowNumber As Long
Comentários a estes Manuais