[RISOLTO] Controllo connessione MySql

[tornu]

Buonasera a tutti,
in un progetto stò cercando di implementare la creazione di un database direttamente da codice,
premesso ovviamente che Mysql sia installato e funzionante.
Usando questo codice:
 

Codice: gambas [Seleziona]

Dim hConn As Connection

 hConn = New Connection("mysql://gambas@localhost:3306/db_test")
 hConn.Password = "gambas"
 hConn.Open()

naturalmente mi restituisce un errore indicandomi che il DB "db_test" non esiste, e fin qui tutto ok.
La difficoltà che incontro è nel proseguire, perchè qualsiasi istruzione io inserisca successivamente
mi ritorna sempre lo stesso messaggio su hConn.Open():
Cannot open database: Unknown database 'db_test'

Come posso controllare l'errore tenendo la connessione aperta in modo che possa con istruzioni
successive creare il nuovo DB?

[Gianluigi]

Ciao tornu,
siccome sono pigro non vado a vedere, ma sono quasi certo che di questa cosa se ne è ampiamente parlato.

Guarda un po se questo codice per SQLite ti può ispirare:

Codice: gambas [Seleziona]

Public Sub ControlloDB()

    If Not Exist(sPercorsoDB) Then Mkdir sPercorsoDB         
      
    With $Conn
      .Type = "sqlite3"
      .Host = sPercorsoDB
    End With
    $Conn.Open()
    If Not $Conn.Databases.Exist(sNomeDB) Then
       $Conn.Databases.Add(sNomeDB)
       $Conn.Close()      
       $Conn.Name = sNomeDB
       $Conn.Open()
       CreaTabelle()
       PopoloTabella()
    Endif   
    $Conn.Close  
    
End

[tornu]

.......siccome sono pigro non vado a vedere, ma sono quasi certo che di questa cosa se ne è ampiamente parlato.

Ciao Gianluigi,
ti assicuro che prima di postare faccio sempre una ricerca approfondita per evitare di aprire discussioni già sviscerate. 
E' vero di connessioni a database si è discusso abbondantemente ma non ho trovato niente che mi schiarisse
le idee riguardo il mio problema (salvo che non mi sia sfuggita).
L'esempio che mi hai postato sicuramente va bene per SQLite, che in soldoni va a vedere se esiste un "file", ma cosa
diversa e se devi controllare se esiste un DB su server MySql (almeno credo). Comunque ho provato lo stesso il tuo esempio mettendo
al posto di sPercordoDB il percorso che ho postato precedentemente (sperando che sia corretto), il risultato è, che non mi dà più
l'errore ma la risposta e che il database non esiste a prescindere che esista realmente o no. Penso che ci sia qualcosa che non funziona.

[Gianluigi]

Ciao tornu,
io purtroppo di MySQL ne capisco punto come dicono in Toscana.
La routine di prima l'ho presa da questo mio esempio postato mesi fa ma non credo possa aggiungere molto.
Gli esperti di database li conosci, se vorranno aiutarti...

 

[tornu]

Ciao Gianluigi,
ti ringrazio comunque per la tua sempre cortese disponibilità.
Ho comunque risolto spulciando vari esempi che ho trovato sul web, adattandoli alle mie esigenze.
Questa la soluzione che ho adottato:

Codice: gambas [Seleziona]

  Dim hConn As New Connection

   With hConn
    .Type = "mysql"
    .Host = "localhost"
    .Login = "gambas"
    .Password = "gambas"
  End With

  hConn.Open()

  If Not hConn.Databases.Exist("db_test") Then
      hConn.Close()
      hConn.Open()
      hConn.Begin()
Print "crealo"
    Else
Print "esiste"
  Endif

[sotema]

CiaoTornu, intervengo nella discussione solo per una precisazione.
L'istruzione hConn.Begin viene usata nel caso tu stia effettuando una 'Transazione', cioè una qualunque operazione di modifica dei dati contenuti in una tabella del DB.
Per creare un database ex-novo il codice che hai postato diviene

Codice: gambas [Seleziona]

hConn.Open()  
  
 If Not hConn.Databases.Exist("db_test") Then  
     hConn.Databases.Add("db_test")
 Endif  

Inoltre nelle impostazioni dei parametri di connessione ricorda di indicare la Porta su cui è in ascolto il server; generalmente '3306' per MySQL, ed il nome del DB a cui accedere. Nel caso specifico dovresti scrivere:

Codice: gambas [Seleziona]

Dim oConn As Connection
  With oConn = New Connection
    .Host = "localhost"
    .Port = "3306"
    .Type = "mysql"
    .Login = "username"
    .Password = "password"
    .Name = ""
  End With
  oConn.Open
  If (Not oConn.Databases.Exist("mioDB")) Then
    oConn.Databases.Add("mioDB")
  Endif
  oConn.Close
  oConn.Name = "mioDB"
  oConn.Open

[tornu]

Ciao sotema,
ti ringrazio per le ulteriori utili informazioni, le userò per affinare ulteriormente il mio codice.
C'è sempre da apprendere....dai migliori 

[Gianluigi]

Ciao sotema,
ti ringrazio per le ulteriori utili informazioni, le userò per affinare ulteriormente il mio codice.
C'è sempre da apprendere....dai migliori 

Sono d'accordo con te mi associo ai complimenti a sotema estendendoli anche a te che, al contrario di quanto ho detto in precedenza scusandomene, hai postato una domanda interessante.
Pochi post tanta roba grazie.