Condividi tramite

Esempio della proprietà Status (Field) (VB)

  • Articolo

Nell'esempio seguente viene aperto un documento da una cartella di lettura/scrittura usando Internet Publishing Provider. La proprietà Status di un oggetto Field dell'oggetto Record verrà prima impostata su adFieldPendingInsert, quindi verrà aggiornata ad adFieldOk.

'BeginStatusFieldVB  
  
 ' to integrate this code replace the values in the source string  
  
Sub Main()  
  
   Dim File As ADODB.Record  
   Dim strFile As String  
   Dim Cnxn As ADODB.Connection  
   Dim strCnxn As String  
  
   Set Cnxn = New ADODB.Connection  
   strCnxn = "url=https://MyServer/"  
   Cnxn.Open strCnxn  
  
   Set File = New ADODB.Record  
   strFile = "Folder/FileName"  
   ' Open a read/write document  
   File.Source = strFile  
   File.ActiveConnection = Cnxn  
   File.Mode = adModeReadWrite  
   File.Open  
  
   Debug.Print "Append a couple of fields"  
  
   File.Fields.Append "chektest:fld1", adWChar, 42, adFldUpdatable, "fld1"  
   File.Fields.Append "chektest:fld2", adWChar, 42, adFldUpdatable, "fld2"  
  
   Debug.Print "status for the fields"  
   Debug.Print File.Fields("chektest:fld1").Status 'adfldpendinginsert  
   Debug.Print File.Fields("chektest:fld2").Status 'adfldpendinginsert  
  
    'turn off error-handling to verify field status  
   On Error Resume Next  
  
   File.Fields.Update  
  
   Debug.Print "Update succeeds"  
   Debug.Print File.Fields("chektest:fld1").Status 'adfldpendinginsert + adFieldUnavailable  
   Debug.Print File.Fields("chektest:fld2").Status 'adfldpendinginsert + adFieldUnavailable  
  
    ' resume default error-handling  
   On Error GoTo 0  
  
     ' clean up  
    File.Close  
    Cnxn.Close  
    Set File = Nothing  
    Set Cnxn = Nothing  
  
End Sub  
'EndStatusFieldVB

Nell'esempio seguente viene eliminato un Campo noto da un Record aperto da un documento. La proprietà Status verrà prima impostata su adFieldOK, quindi su FieldPendingUnknown.

Attribute VB_Name = "StatusField"

Il codice seguente elimina un Campo da un Record aperto in un documento di sola lettura. Lo Stato verrà impostato su adFieldPendingDelete. In Aggiornamento l'eliminazione avrà esito negativo e lo Stato sarà adFieldPendingDelete e adFieldPermissionDenied. CancelUpdate cancella l'impostazione Stato in sospeso.

Attribute VB_Name = "StatusField"

Vedere anche

Oggetto Field
Oggetto Record (ADO)
Proprietà Status (Field - ADO)