Contoh Properti DateCreated dan DateModified (Visual Basic)
Contoh ini menunjukkan properti DateCreated dan DateModified dengan menambahkan Kolom baru ke Tabel yang sudah ada dan dengan membuat Tabel baru. Prosedur DateOutput diperlukan agar contoh ini berjalan.
' BeginDateCreatedVB
Sub Main()
On Error GoTo DateCreatedXError
Dim cat As New ADOX.Catalog
Dim tblEmployees As ADOX.Table
Dim tblNewTable As ADOX.Table
' Connect to the catalog.
cat.ActiveConnection = "Provider='Microsoft.Jet.OLEDB.4.0';" & _
"Data Source='Northwind.mdb';"
With cat
Set tblEmployees = .Tables("Employees")
' Print current information about the Employees table.
DateOutput "Current properties", tblEmployees
' Create and append column to the Employees table.
tblEmployees.Columns.Append "NewColumn", adInteger
.Tables.Refresh
' Print new information about the Employees table.
DateOutput "After creating a new column", tblEmployees
' Delete new column because this is a demonstration.
tblEmployees.Columns.Delete "NewColumn"
' Create and append new Table object to the Northwind database.
Set tblNewTable = New ADOX.Table
tblNewTable.Name = "NewTable"
tblNewTable.Columns.Append "NewColumn", adInteger
.Tables.Append tblNewTable
.Tables.Refresh
' Print information about the new Table object.
DateOutput "After creating a new table", .Tables("NewTable")
' Delete new Table object because this is a demonstration.
.Tables.Delete tblNewTable.Name
End With
'Clean up.
Set cat.ActiveConnection = Nothing
Set cat = Nothing
Exit Sub
DateCreatedXError:
Set cat = Nothing
If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
End Sub
Sub DateOutput(strTemp As String, tblTemp As ADOX.Table)
' Print DateCreated and DateModified information about
' specified Table object.
Debug.Print strTemp
Debug.Print " Table: " & tblTemp.Name
Debug.Print " DateCreated = " & tblTemp.DateCreated
Debug.Print " DateModified = " & tblTemp.DateModified
Debug.Print
End Sub
' EndDateCreatedVB
Lihat juga
Properti DateCreated (ADOX)
Properti DateModified (ADOX)
Objek Prosedur (ADOX)
Koleksi Prosedur (ADOX)
Lihat Objek (ADOX)
Koleksi Tampilan (ADOX)
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