Create, exemple de méthode (VB)
Le code suivant montre comment créer une nouvelle base de données Microsoft Jet avec la méthode Create.
Attribute VB_Name = "Create"
Option Explicit
' BeginCreateDatabaseVB
Sub CreateDatabase()
On Error GoTo CreateDatabaseError
Dim cat As New ADOX.Catalog
cat.Create "Provider='Microsoft.Jet.OLEDB.4.0';Data Source='new.mdb'"
'Clean up
Set cat = Nothing
Exit Sub
CreateDatabaseError:
Set cat = Nothing
If Err <> 0 Then
MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
End Sub
' EndCreateDatabaseVB
Voir aussi
Commentaires
https://aka.ms/ContentUserFeedback.
Prochainement : Tout au long de l'année 2024, nous supprimerons progressivement les GitHub Issues en tant que mécanisme de retour d'information pour le contenu et nous les remplacerons par un nouveau système de retour d'information. Pour plus d’informations, voir:Soumettre et afficher des commentaires pour