Status 속성 예제(필드)(VB)

다음은 Internet Publishing Provider사용하여 읽기/쓰기 폴더에서 문서를 여는 예제입니다. RecordField 개체의 상태 속성은 먼저 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  

다음은 문서에서 연 레코드 알려진 필드 삭제하는 예제입니다. Status 속성은 먼저 adFieldOK , adFieldPendingUnknown 설정됩니다.

Attribute VB_Name = "StatusField"  

다음 코드는 읽기 전용 문서에서 열린 레코드필드 삭제합니다. 상태 adFieldPendingDelete 설정됩니다. 업데이트삭제가 실패하고 상태 adFieldPendingDelete 및 adFieldPermissionDenied. CancelUpdate 보류 중인 상태 설정을 지웁니다.

Attribute VB_Name = "StatusField"  

참고 항목

필드 개체
ADO(Record 개체)
Status 속성(ADO 필드)