Enregistrer une base de donnees

Contenu du snippet

cette source sert a faire une copie de la base de donnees sur une placement choisie.

Source / Exemple :


'MERCI POUR LES REMARQUES 
'JE CHERCHE A CE TEMPS LA ,UN CODE QUI FAITE LA CONNEXION A UNE BASE ACCESS QUI SE TROUVE DANS UN SERVEUR.
'SI VOUS POUVEZ M'EDER.

On Error GoTo fin
CommonDialog1.Filter = "access (*.mdb)|*.mdb"
CommonDialog1.ShowSave
If CommonDialog1.FileName = "" Then Exit Sub
Dim DE As New Projet1.DE
conn.Close
If DE.Connection1.State = adStateOpen Then DE.Connection1.Close
FileCopy App.Path & "\nom de base.mdb", CommonDialog1.FileName
exit sub
fin:
MsgBox Err.Description & "; Quitter , Ouvrir , et Sauvegarder avants aucun operation"

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.