Я пытаюсь определить, существует ли база данных определенного имени, а затем создать ее, если она отсутствует. В идеале это было бы в VBScript. В настоящее время я пытаюсь использовать цикл поиска массива, но общее количество баз данных сильно изменится.MySQL Проверьте, существует ли база данных
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
Информация схема дала ошибку, но Создать базу данных, если не существует часть того, что я пытался сделать , Должно быть, я пропустил это. – MrGrant