Verificare Esistenza di un database MYSQL con ASP Classic
Winserver.it
Non ho trovato un esempio “utile” per verificare l’esistenza di un database MYSQL con ASP Classic.
Per questo motivo ho scritto un pezzettino di codice un pò “grezzo” ma utile alla situazione. E’ un pò brutta la parte in cui viene utilizzato il controllo dell’errore On Error Resume Next per il controllo di presenza, tuttavia funziona.
Allego parte del codice.
L’esempio proposto cerca il “NomeDB” in due Server.
on error resume next
Set con = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
con.Open "Driver={MySQL ODBC 3.51 Driver};server=ipserver;Database=;UID=user;PWD=passwd;"
con.Execute("USE nomeDB")
con.Close
Set con = Nothing
If Err.Number ="-2147217871" then
Set con = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
con.Open "Driver={MySQL ODBC 3.51 Driver};server=ipserver;Database=;UID=user;PWD=passwd;"
con.Execute("USE nomeDB")
con.Close
Set con = Nothing
If Err.Number ="-2147217871" then
response.write "DB non presente"
End if
End If
Connect
Connettiti con me su vari social media...