lincam | J'ai trouvé comment utiliser mysql avec delphi (grande victoire pour moi )
http://www.fichtner.net/delphi/mysql.delphi.phtml
Depuis ce matin, je bloque, je cherche a afficher le resultat de m'a requete dans un dbgrid mais pas moyen. J'ai écumé google et tous les site delphi, mais je n'ai pas trouvé d'explication clair sur comment le fair
7 heures de recherche plus tard, je me tourne vers vous car je commence a craquer
voici mon code :
Code :
- unit Unit1;
- interface
- uses
- Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
- Dialogs, StdCtrls, mySQL,inifiles, Unit4, Grids, DBGrids, DB;
- type
- TForm1 = class(TForm)
- DBGrid1: TDBGrid;
- dts: TDataSource;
- procedure FormCreate(Sender: TObject);
- private
- { Déclarations privées }
- public
- { Déclarations publiques }
- end;
- function connexion(ip,username,password,base,resultat:string):string;
- var
- Form1: TForm1;
- read: array of string;
- FichierIni : TIniFile;
- mysql : PMYSQL;
- myrow : PMYSQL_ROW;
- myres : PMYSQL_RES;
- mycout : longword;
- ligne:string;
- I: Word;
- implementation
- function connexion(ip,username,password,base,resultat:string):string;
- begin
- mysql := mysql_init(nil);
- if mysql_real_connect(mysql, PAnsiChar(ip), PAnsiChar(username), PAnsiChar(password), PAnsiChar(base), 0, nil, 0) <> nil then
- begin
- end
- else
- begin
- showmessage('La connexion a mysql a échoué');
- end;
- end;
- {$R *.dfm}
- procedure TForm1.FormCreate(Sender: TObject);
- begin
- FichierIni:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'config.ini');
- SetLength(read, 5);
- read[0]:=FichierIni.ReadString('mysql','ip','0');
- read[1]:=FichierIni.ReadString('mysql','username','n');
- read[2]:=FichierIni.ReadString('mysql','password','n');
- read[3]:=FichierIni.ReadString('mysql','base','n');
- connexion(read[0],read[1],read[2],read[3],read[4]);
- mysql_query(mysql, pChar('select * from phpbb_smilies'));
- myres := mysql_store_result(MySQL);
- mycout := mysql_num_fields(myres);
- myrow := mysql_fetch_row(myres);
- while myrow <> nil do begin
- for I := 0 to mycout - 1 do begin
- //myrow[i];
- end;
- myrow := mysql_fetch_row(myres);
- end;
- end;
- end.
|
Si quelqu'un pouvait m'expliquer clairement comment utiliser un dbgrid dans le code ci dessus, je lui en serais extremement reconnaisant |