Contoh Properti Status (Bidang) (Visual Basic)
Contoh berikut membuka dokumen dari folder baca/tulis menggunakan Penyedia Penerbitan Internet. Properti Status objek Bidangrekaman pertama-tama akan diatur ke adFieldPendingInsert, lalu diperbarui ke 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
Contoh berikut menghapus Bidang yang diketahui dari Rekaman yang dibuka dari dokumen. Properti Status pertama-tama akan diatur ke adFieldOK, lalu adFieldPendingUnknown.
Attribute VB_Name = "StatusField"
Kode berikut menghapus Bidang dari Rekaman yang dibuka pada dokumen baca-saja. Status akan diatur ke adFieldPendingDelete. Pada Pembaruan, penghapusan akan gagal dan Status akan menjadi adFieldPendingDelete ditambah adFieldPermissionDenied. CancelUpdate menghapus pengaturan Status tertunda.
Attribute VB_Name = "StatusField"
Lihat juga
Objek Bidang
Objek Rekaman (ADO)
Properti Status (Bidang ADO)
Saran dan Komentar
https://aka.ms/ContentUserFeedback.
Segera hadir: Sepanjang tahun 2024 kami akan menghentikan penggunaan GitHub Issues sebagai mekanisme umpan balik untuk konten dan menggantinya dengan sistem umpan balik baru. Untuk mengetahui informasi selengkapnya, lihat:Kirim dan lihat umpan balik untuk