[VB6] Creare un database MySQL durante la connessione

[Fenix'89]

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

[kalosjo]

Se il database lo devi ancora creare, devi collegarti al database di sistemza "mysql"

[Fenix'89]

ok grazie mille

un altro quesito:
come posso fare per sapere se un database esiste già?????

[kalosjo]

Ci sono vari modi.

Potresti provare la connessione al db e se va in errore non esiste.
Ma potrebbe andare in errore per altri motivi e trarti in inganno.

Un altro modo (se ti colleghi tramite odbc) è collegarti al database di sistema e aprire un recordset passando come query "show databases"
Ritorna un recordset con una sola colonna i cui valori sono i nomi di tutti i database