créer des bases de données dans ms-access, puis supprimer une base de données particulière. en utilisant n'importe quelle requête vb ou code vb

Question

Je veux créer un certain nombre de bases de données en ms-access en utilisant un code ou une option de ms-access, mais je veux aussi supprimer des bases de données. S'il vous plaît aidez-moi

Answer 1

Vous pourriez avoir une base de données vide nommé « db1.mdb », puis ajoutez ce code à l'intérieur d'un module dans une autre base de données Access:

Set fso = CreateObject("scripting.filesystemobject") 
    fso.CopyFile "c:\db.mdb", "c:\db_copy1.mdb", True 
    fso.CopyFile "c:\db.mdb", "c:\db_copy2.mdb", True 
    fso.CopyFile "c:\db.mdb", "c:\db_copy3.mdb", True 
    fso.DeleteFile "c:\db.mdb" 

Answer 2

Pour créer une base de données Access de l'interface d'accès:

createDatabase "myNewMDB.mdb", dbLangGeneral 

Pour supprimer une base de données:

kill "myNewMDB.mdb" 

Il fonctionne sans mdb initiale ou dll supplémentaires

pour plusieurs bases de données

public Function createDeleteDatabase(howManyDatabases as integer) as boolean 

''output is by default False 
createDeleteDatabase = False 

on error goto createDeleteDatabase_Error 

Dim i as integer 
For i = 1 to howManyDatabases 
    createDatabase "myMDBNumber_" & str(i,0) & ".mdb", dbLangGeneral 
Next i 
For i = 1 to howManyDatabases 
    kill "myMDBNumber_" & str(i,0) & ".mdb" 
Next i 

''if no errors in the fonction, set the output to True 
createDeleteDatabase = True 

Exit function 
createDeleteDatabase_Error: 
'' your error treatment 
End function