Status 속성 예제(필드)(VB)
다음 예제에서는 인터넷 게시 공급자를 사용하여 읽기/쓰기 폴더에서 문서를 엽니다. 레코드의 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
다음 예제는 문서에서 연 레코드에서 알려진 필드를 삭제합니다. Status 속성은 먼저 adFieldOK로 설정된 다음 adFieldPendingUnknown으로 설정됩니다.
Attribute VB_Name = "StatusField"
다음 코드는 읽기 전용 문서에서 열린 레코드에서 필드를 삭제합니다. Status가 adFieldPendingDelete로 설정됩니다. Update 시 삭제가 실패하고 Status가 adFieldPendingDelete 및 adFieldPermissionDenied가 됩니다. CancelUpdate는 보류 중인 Status 설정을 지웁니다.
Attribute VB_Name = "StatusField"