Condividi tramite

Esempio di proprietà Status (Field) (VB)

  • Articolo

Nell'esempio seguente viene aperto un documento da una cartella di lettura/scrittura utilizzando il provider di pubblicazione Internet . La proprietà Status di un oggetto Field dell'Record verrà prima impostata su adFieldPendingInsert, quindi essere aggiornata a 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 eliminata una Field nota da un record aperto da un documento. La proprietà status di verrà prima impostata su adFieldOK, quindi adFieldPendingUnknown.

Attribute VB_Name = "StatusField"

Il codice seguente elimina un Field da un Record aperto in un documento di sola lettura. stato verrà impostato su adFieldPendingDelete. In Update, l'eliminazione avrà esito negativo e stato verrà adFieldPendingDelete più adFieldPermissionDenied. CancelUpdate cancella l'impostazione Stato in sospeso.

Attribute VB_Name = "StatusField"

Vedere anche

oggetto Field
ADO (Record Object)
proprietà Status (campo ADO)