Le truc c'est que ta pas besoin de plus de code car c'est un code de test donc y a pas plus... a part les debut :
#libmysql = 1
If OpenLibrary ( #libmysql , "libmysql.dll" ) ;charger la dll et choper l'adresse des fonctions qui vont etre utiles à ce mini tut
Global init = GetFunction( #libmysql , "mysql_init" )
Global close = GetFunction( #libmysql , "mysql_close" )
Global list_tables = GetFunction( #libmysql , "mysql_list_tables" )
Global real_connect=GetFunction( #libmysql , "mysql_real_connect" )
Global num_rows=GetFunction( #libmysql , "mysql_num_rows" )
Global fetch_row=GetFunction( #libmysql , "mysql_fetch_row" )
Global free_result=GetFunction( #libmysql , "mysql_free_result" )
Global query = GetFunction( #libmysql , "mysql_query" )
Global store_result = GetFunction( #libmysql , "mysql_store_result" )
Global real_query = GetFunction( #libmysql , "mysql_real_query" )
Global field_count = GetFunction( #libmysql , "mysql_field_count" )
Global affected_rows = GetFunction( #libmysql , "mysql_affected_rows" )
Global num_fields = GetFunction( #libmysql , "mysql_num_fields" )
Global num_rows = GetFunction( #libmysql , "mysql_num_rows" )
Global fetch_row = GetFunction( #libmysql , "mysql_fetch_row" )
Global fetch_lengths = GetFunction( #libmysql , "mysql_fetch_lengths" )
dbHnd = CallCFunctionFast (init,0)
If dbHnd = 0
MessageRequester ( "Erreur" , "Impossible d'initialiser la connection" , #PB_MessageRequester_Ok )
End
EndIf
Else
MessageRequester ( "Erreur" , "Impossible de charger libmysql.dll" , #PB_MessageRequester_Ok )
End
EndIf
Procedure.s GetError(db_ID) ; permet de choper l'erreur revoyée par la DB.
Errormsg.s
If CallFunction ( #libmysql , "mysql_errno" ,db_ID) > 0
*Error = CallFunction ( #libmysql , "mysql_error" ,db_ID)
i=-1
Repeat
i=i+1
Errormsg=Errormsg+ PeekS (*Error+i,1)
Until PeekB (*Error+i)=0
MessageRequester ( "Sql a renvoyé une erreur" , Errormsg, #PB_MessageRequester_Ok )
Debug Errormsg
EndIf
EndProcedure
; Entrez les infos sur votre base sql (là, c'est celles par défaut de Easy PHP)
IPsql$ = "127.0.0.1"
user$ = "root"
pass$ = ""
portsql =0
pipe$ = ""
conconf =0
;Se connecter à la base de donnée est tres simple!
If CallFunctionFast (real_connect,dbHnd, IPsql$, user$, pass$, "projet1" , portsql, pipe$, conconf) = 0
GetError(dbHnd)
EndIf
numero$= "sd-18462"
password$ = "demo"
Après et bien c'est le code qu'on arrive pas a faire marcher... (le debut que je t'ai donner est bon)
A part que dans mon code on recupere le nom d'utilisateur et password dans des string gadget avant mais bon sa change rien.
De toute façon tu ne saura pas le faire aller vu que tu na pas les meme base de donnée que moi et que tu na pas de base de donnée en local
