kopierreko
Messages postés139Date d'inscriptionmercredi 12 mars 2008StatutMembreDernière intervention10 juillet 2010
-
28 oct. 2008 à 11:09
kopierreko
Messages postés139Date d'inscriptionmercredi 12 mars 2008StatutMembreDernière intervention10 juillet 2010
-
28 oct. 2008 à 19:03
Bonjour,
Toujours dans mon projet de chat, je créé les requêtes sql qu'il me faut.
Mais un problème apparaît, alors que j'ai suivi à la lettre un tuto de Delphipage.
Voici mon code:
procedure TForm1.Btn_SqlClick(Sender: TObject);
Var
Resultat: PMYSQL_RES;
Compteurchamps:Longword;
row: PMYSQL_ROW;
ligne:string;
I: Word;
begin
mysql_select_db(mysql, pChar(dbname)); <= [Error] Unit2.pas(75): '.' expected but ',' found.
mysql_query(mysql, pChar('SELECT * FROM '+table)); <= [Error] Unit2.pas(76): '.' expected but ',' found.
Resultat:=mysql_use_result(MySQL); <= [Error] Unit2.pas(77): '.' expected but ')' found.
Compteurchamps := mysql_num_fields(Resultat);
row:= mysql_fetch_row(Resultat);
while Row <> nil do begin
ligne:='|';
for I := 0 to Compteurchamps - 1 do begin
ligne:=ligne+row[i]+' | ';
end;
Mm_Msg.Lines.Add(ligne);
Row := mysql_fetch_row(Resultat);
end;
end;