[DELPHI] dBgrid

Marsh Posté le 17-02-2004 à 17:53:03

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

Reply

Marsh Posté le 17-02-2004 à 17:53:03

Reply

Marsh Posté le 17-02-2004 à 18:43:58

Pour me connecter à une base MySQL depuis Delphi, je me sers personnellement des drivers ODBC MySQL que tu peux DL sur le site officiel. Une fois ceci fait, tu te créé un DSN sur ton serveur de base et le tiour est joué : tu peux alors utiliser tes composants ADO comme si c'était une base Access.

Pour ce qui est de ta DBGrid, tu pose un ADOConnect, un ADOTable ou ADOQuery, un DataSource. Ensuite, tu connecte ta base MySQL par le ADOConnect en te servant de ton DSN, tu réalise tes sélection avec L'ADOTable ou ADOQuery en utilisant l'ADOConnect, tu fais pointer le DataSource sur l'ADOTable ou ADOQuery, et enfin taDBGrid sur le DataSource.

Voila, pour ma part c'est comme ça que je procède.

Reply

Marsh Posté le 17-02-2004 à 19:10:14

Je te remerciede t'as réponse, si personne n'a d'autre solution je passerais par l'ado meme si je preferais eviter

Reply

Marsh Posté le 17-02-2004 à 20:05:16

Pourquoi t'aime pas ADO ? Je trouve très simple et plutot rapide...

Reply

Marsh Posté le 18-02-2004 à 00:40:50

lincam a écrit :

Je te remerciede t'as réponse, si personne n'a d'autre solution je passerais par l'ado meme si je preferais eviter

passe par les composants dbexpress

---------------
Borland rulez: http://pages.infinit.net/borland

Reply

[DELPHI] dBgrid

Sujets relatifs:

Leave a Replay