Ciao a tutti,
io non riesco a connettermi al database di MySQL.... o meglio non so se mi connetto, il mio programma dovrebbe (tramite un bottone) andare a prelevare le informazioni dal database e metterle in un messaggio di informazione, pero, quando vado a prelevare dal database le informazioni, mi da un errore strano:
"Result is not avalible"
il codice del programma:
PUBLIC $Con AS NEW Connection
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
END
PUBLIC PROCEDURE Connect()
$Con.Close() ' Close the connection
$Con.Type = "MySQL" ' Type of connection
$Con.Host = "localhost" ' Name of the server
$Con.Login = "root" ' User's name for the connection
$Con.Port = "3306" ' Port to use in the connection, usually 3306
$Con.Name = "prova" ' Name of the data base we want to use
$Con.Password = "123" ' User's password
$Con.Open() ' Open the connection
END
PUBLIC SUB ToggleButton1_Click()
DIM $Query AS String
DIM $Result AS Result
DIM $Phone AS String
Connect()
$Query = "SELECT * FROM domini"
$Result = FMain.$Con.Exec($Query)
$Phone = $Result!$Phone
Message.Info($Phone)
END
Grazie a tutti
Ma in che punto ti da l'errore? La tabella contiene dati?
Prova a capire se hai la connessione con:
$Result = FMain.$Con.Exec($Query)
IF $Result.Available THEN
$Phone = $Result!$Phone
Message.Info($Phone)
ELSE
Message.Warning("Nessun risultato")
ENDIF
$Con.Host = "localhost" ' Name of the server
Ciao.
Prova a dare
$/etc/init.d/mysql restart
prima di usare il programma e poi lancia il tuo software....