doudouvs a écrit :Par contre pour SELECT Je n'arrive pas à repuc le resultat
Comment je récupère le contenu de la requête ?
Dans ma base de test hébergé j'ai inséré une table contacts structurée de la façon suivante.
Code : Tout sélectionner
SqlQuery = "CREATE TABLE contacts ("
SqlQuery + "iduser INT UNSIGNED NOT NULL AUTO_INCREMENT PRIMARY KEY," ;Clé autoincrémentée
SqlQuery + "contact TEXT," ;Nom contact
SqlQuery + "telephone TEXT," ;Téléphone
SqlQuery + "compte TEXT," ;Compte
SqlQuery + "montant INTEGER," ;Montant
SqlQuery + "mois INTEGER" ;Mois
SqlQuery + ");"
Tu peux tester le petit code suivant qui fait un select de cette table et affiche le résultat.
Code : Tout sélectionner
;Lister le contenu d'une table MySQL
EnableExplicit
IncludeFile "libmysql.pbi"
Global SqlHost.s, SqlUser.s, SqlPassWord.s, SqlDatabase.s, SqlPort
Global SqlHandle.l, SqlQuery.s, SqlQueryResult.l, SqlRowCount.l, SqlColCount.l, Row.i, Col.i
;Initialisation de l'environnement MySQL
SqlHandle=MySqlInit()
;Initialisation des paramétres de connexion
SqlHost="s483331096.onlinehome.fr"
SqlUser="U1301"
SqlPassWord="falsam"
SqlDatabase="BD1301"
SqlPort=0
;Connection à la base de données
If MySqlConnect(SqlHandle, SqlHost, SqlUser, SqlPassWord, SqlDatabase, SqlPort)
;Sélection de toutes les colonnes d'une table
SqlQuery="Select contact, compte, montant, mois from contacts"
SqlQueryResult=MySqlQuery(Sqlhandle, SqlQuery)
;Le résultat de la requete est composé d'un tableau
If SqlQueryResult<>0
;Nombre de lignes dans le résultat de la requete
SqlRowCount = MySqlGetRowCount(SqlQueryResult)
;Nombre de colonnes dans le résultat de la requete
SqlColCount.l=MySqlGetColCount(SqlQueryResult)
;Affichons le résultat
For Row=0 To SqlRowCount-1
Debug ""
Debug "Ligne : "+Str(Row)
;Lecture de la prochaine ligne du résultat de la requete
MySqlNextQueryRow(SqlQueryResult)
;Pour chaque ligne, lecture de chque colonne
For Col=0 To SqlColCount-1
Debug MySqlNextQueryCol(Col, #PB_Ascii)
Next
Next
Debug " "
EndIf
;Libère la mémoire utilisée par un jeu de résultats.
MySqlQueryFree(SqlQueryResult)
Else
Debug "Erreur d'acces"
EndIf
;Fermeture de la connexion MySql
MySqlClose(SqlHandle)