DateCreated et DateModified, exemples de propriétés (VB)
Cet exemple illustre les propriétés DateCreated et DateModified en ajoutant une nouvelle colonne à une table existante et en créant une nouvelle table. La procédure DateOutput est requise pour que cet exemple s’exécute.
' 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
Voir aussi
DateCreated, propriété (ADOX)
DateModified, propriété (ADOX)
Procedure, objet (ADOX)
Procedures, collection (ADOX)
View, objet (ADOX)
Views, collection (ADOX)
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour