Compartir vía

Ejemplo de la propiedad Status (campo) (VB)

  • Artículo

En el ejemplo siguiente se abre un documento desde una carpeta de lectura y escritura mediante el proveedor de publicación de Internet . La propiedad Status de un objeto Field del Record de se establecerá primero en adFieldPendingInserty, a continuación, se actualizará 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

En el ejemplo siguiente se elimina un field de conocido de un record de abierto desde un documento. La propiedad Status se establecerá primero en adFieldOKy, a continuación, adFieldPendingUnknown.

Attribute VB_Name = "StatusField"

El código siguiente elimina un field de de un record de abierto en un documento de solo lectura. estado se establecerá en adFieldPendingDelete. En Update, se producirá un error en la eliminación y Estado se adFieldPendingDelete más adFieldPermissionDenied. CancelUpdate borra la configuración de estado de pendiente.

Attribute VB_Name = "StatusField"

Consulte también

objeto Field
de objeto Record (ADO) de
propiedad Status (campo ADO)