Gambas-it

Archivi (sola lettura) => Programmazione (Gambas 2) => Topic aperto da: dex - 11 Settembre 2010, 02:17:21

Titolo: [risolto]Mysql tabella esistente
Inserito da: dex - 11 Settembre 2010, 02:17:21
ciao raga

in un database mysql devo controllare se una tabella esiste, ho provato con i seguenti codici ma non le trova.

Codice: [Seleziona]
IF $hConn.Tables.Exist("prova.dichiarazione") = TRUE

IF $hConn.Tables.Exist("dichiarazione") = TRUE
Titolo: Re: Mysql tabella esistente
Inserito da: Ceskho - 11 Settembre 2010, 02:45:44
Citazione da: dex - 11 Settembre 2010, 02:17:21
ciao raga

in un database mysql devo controllare se una tabella esiste, ho provato con i seguenti codici ma non le trova.

Codice: [Seleziona]
IF $hConn.Tables.Exist("prova.dichiarazione") = TRUE

IF $hConn.Tables.Exist("dichiarazione") = TRUE

Ma no ne trova in che senso? Potrebbe essere che non fa niente perchè le tabelle non esistono... ;D
Titolo: Re: Mysql tabella esistente
Inserito da: dex - 11 Settembre 2010, 20:18:49
no le tabelle esistono, verificato anche con Mysql Administrator.
dato che creo le tabelle da codice, mi serve per verificare se la tabella esiste ed evitare errori di sovrascrittura.
Usavo lo stesso codice con Sqlite e funzionava.

il codice esatto è:
Codice: [Seleziona]
IF $hConn.Tables.Exist("prova.dichiarazione") = TRUE
message.info("La tabella esiste")
ELSE
message.info("La tabella non esiste")
END IF

mi esce sempre La tabella non esiste.
Titolo: Re: Mysql tabella esistente
Inserito da: sotema - 11 Settembre 2010, 22:25:45
la verifica = true non serve:

Codice: [Seleziona]
Dim hconn As New Connection
  With hconn
    .host = "localhost"
    .port = "3306"
    .Type = "mysql"
    .name = "nomedatabase"
    .Login = "root"
    .Password = "password"
    .Open()
  End With
  If (hconn.Tables.Exist("nometabella")) Then
    Debug "esiste"
  Else
    Debug "non esiste"
  Endif
Titolo: Re: Mysql tabella esistente
Inserito da: dex - 11 Settembre 2010, 22:31:58
@sotema
vero la verifica true è un passaggio inutile, ma comunque doveva funzionare lo stesso.

cmq ho risolto con:
Codice: [Seleziona]
Dim NamDb as string

NamDb = "prova."

IF $hConn.Tables.Exist(NamDb & "dichiarazione")  THEN