Compartir a través de

Ejemplo de la propiedad de estado (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 en Internet. La propiedad Status de un objeto Field del objeto Record 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 una propiedad Field conocida de un objeto Record abierto desde un documento. La propiedad Status se establecerá primero en adFieldOK y, a continuación, en adFieldPendingUnknown.

Attribute VB_Name = "StatusField"

El código siguiente elimina una propiedad Field de un objeto Record abierto en un documento de solo lectura. Status se establecerá en adFieldPendingDelete. En Update, se producirá un error en la eliminación, y Status será adFieldPendingDelete más adFieldPermissionDenied. CancelUpdate borra la configuración de Status pendiente.

Attribute VB_Name = "StatusField"

Consulte también

Objeto Field
Objeto Record (ADO)
Propiedad Status (Field ADO)