Status-Eigenschaft – Beispiel (Field) (VB)

  • Artikel

Im folgenden Beispiel wird ein Dokument aus einem Lese-/Schreibordner mit dem Anbieter für Internet Publishing geöffnet. Die Status-Eigenschaft eines Field-Objekts des Record wird zuerst auf adFieldPendingInsert festgelegt und dann in adFieldOk aktualisiert.

'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

Im folgenden Beispiel wird ein bekanntes Field aus einem Record gelöscht, der über ein Dokument geöffnet wurde. Die Status-Eigenschaft wird zuerst auf adFieldOK und dann auf adFieldPendingUnknown festgelegt.

Attribute VB_Name = "StatusField"

Der folgende Code löscht ein Field aus einem Record, der über ein schreibgeschütztes Dokument geöffnet wurde. Der Status wird auf adFieldPendingDelete festgelegt. Bei Update schlägt der Löschvorgang fehl, und Status wird adFieldPendingDelete und adFieldPermissionDenied. CancelUpdate löscht die ausstehende Status-Einstellung.

Attribute VB_Name = "StatusField"

Weitere Informationen

Field-Objekt
Record-Objekt (ADO)
Status-Eigenschaft (ADO-Feld)