J'essaie de déterminer si une base de données d'un certain nom existe et puis de le créer si ce n'est pas le cas. Idéalement, ce serait dans VBScript. J'essaye actuellement d'employer une recherche de boucle d'un tableau mais le nombre total de bases de données changera considérablement.MySQL Vérifiez si une base de données existe
set dbQuery = ConnSQL.execute(checkDBsql)
if dbQuery.BOF and dbQuery.EOF then ' Query didn't return any records.
ConnSQL.execute(MakeDb)
else
dbQuery.MoveFirst
i = 0
Do While Not dbQuery.EOF
i = i + 1
loop
end if
set dbQuery = ConnSQL.execute(checkDBsql)
if dbQuery.BOF and dbQuery.EOF then ' Query didn't return any records.
msgBox "ERROR!"
else
e = 0
do while not dbQuery.EOF
DBName(e) = dbQuery("Database")
e = e + 1
loop
For a = 1 to UBound(DBName)
If DBName(a) = OldDBName Then
MsgBox DBName(a)
end if
Next
connSQL.close
Les informations de schéma a donné une erreur, mais la Création de la base si existe ne fait pas partie est ce que je voulais faire . Je dois avoir raté ça. – MrGrant