Status, exemple de propriété (objet Field) (VB)
L’exemple suivant ouvre un document à partir d’un dossier en lecture/écriture en utilisant le fournisseur de publication Internet. La propriété Status d’un objet Field de l’objet Record est d’abord définie sur adFieldPendingInsert, puis mise à jour en 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
L’exemple suivant supprime un objet Field connu d’un objet Record ouvert à partir d’un document. La propriété Status est d’abord définie sur adFieldOK, puis sur adFieldPendingUnknown.
Attribute VB_Name = "StatusField"
Le code suivant supprime un objet Field d’un objet Record ouvert sur un document en lecture seule. La propriété Status sera définie sur adFieldPendingDelete. Lors de la Mise à jour, la suppression échouera et la propriété État sera adFieldPendingDelete plus adFieldPermissionDenied. La méthode CancelUpdate efface le paramètre Satus en attente.
Attribute VB_Name = "StatusField"
Voir aussi
Field, objet
Record, objet (ADO)
Status, propriété (objet Field ADO)
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour