Public conn, rs

'Variabili MySQL
Public mysql_host As String
Public mysql_userid As String
Public mysql_password As String
Public mysql_database As String
Public mysql_query As String
Public mysql_port As String

Private Sub Form_Load()
Set conn = CreateObject("ADODB.Connection")

'Inizializza le variabili
mysql_host = "127.0.0.1"
mysql_userid = "root"
mysql_password = ""
mysql_database = "mydatabase"
mysql_port = "3306"


'Crea la stringa di connessione
connect_string = "Provider=MySqlProv;Data Source=" & Chr(34) & "server=" & mysql_host & ";DB=" & mysql_database & ";User=" & mysql_userid & ";Password=" & mysql_password & ";Option=131088; Stmt=;Port=" & mysql_port & "" & Chr(34)
conn.Provider = "MySqlProv"
conn.ConnectionString = connect_string
conn.CommandTimeout = 1000
conn.ConnectionTimeout = 1000 'Tempo in mS prima che il tentativo di connessione vada in TimeOut
conn.CursorLocation = adUseServer

On Error GoTo Connect_Error

If Not (conn.State = adStateOpen) Then
'Evita la comparsa della finestra POPUP del provider di MySQL
conn.Properties("PROMPT") = adPromptNever
conn.Open 'Instaura la connessione con il Database
MsgBox "Connessione con il server MySQL riuscita"
End If
Exit Sub

Connect_Error:
MsgBox "Connessione con il server MySQL " & mysql_host & " fallita", vbCritical, "Attenzione"
End Sub
Questo è il codice che uso
solamente che per effettuare la connessione questo codice mi chiede
mysql_database = "nomedatabase"
se lo pongo uguale a "" non mi effettua la connessione


Il punto sta nel fatto che io dovrei creare un nuovo database dal nome "mydatabase" se questo non è già presente tra i database senza prima connettermi ad un altro database