Status プロパティの例 (Field) (VB)

次の例は、インターネット発行プロバイダーを使用して、読み取り/書き込みフォルダーからドキュメントを開きます。 Record の Field オブジェクトの Status プロパティは、最初に adFieldPendingInsert に設定され、次に 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  

次の例は、ドキュメントから開かれた Record から既知の Field を削除します。 Status プロパティは、最初に adFieldOK に、次に adFieldPendingUnknown に設定されます。

Attribute VB_Name = "StatusField"  

次のコードは、読み取り専用ドキュメントで開かれた Record から Field を削除します。 Status は、adFieldPendingDelete に設定されます。 Update では、削除は失敗し、Status は adFieldPendingDelete と adFieldPermissionDenied になります。 CancelUpdate は、保留中の Status 設定をクリアします。

Attribute VB_Name = "StatusField"  

参照

Field オブジェクト
Record オブジェクト (ADO)
Status プロパティ (ADO Field)