Tsqlquery avec mysql / DELPHI7

Bonjour,

Je suis vraiment désespéré, je n'arrive pas à faire fonctionner ma base de donnée mysql avec delphi.

Un exemple en lançant une instruction sql toute simple avec un tsqlquery, rien ne se passe.

Voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm1.Button1Click(Sender: TObject); begin   with datamodule2 do begin   sqlquery1.Close; sqlquery1.SQL.Clear; sqlquery1.SQL.Add('select * from clients order by nom'); sqlquery1.Open;   end; end;

---

Il faut noter que cette instruction marche parfaitement lorsque je lance l'application, avec le code:

Code:

---

1 2 3 4 5 6 7 8 9 10

with datamodule2 do begin SQLConnection1.connected:=true; sqlquery1.sql.Add('select * from clients order by affaire'); sqlquery1.Active:=true; clientdataset1.Active:=true;   end;

---

Si je remplace 'affaire' par 'nom' dans le 2ème code cela marche parfaitement.

Je ne trouve même pas de tutoriel suffisament explicite sur le sujet.

Merci d'avance pour votre aide.

Jer.

bonjour,

bizarre ton deuxième code, tu mets une instruction dans le SQLQuery1 et tu active le clientdataset1, comment ça peut fonctionner ?

par contre dans le premier code, tu n'active pas le SQLConnection1.

@++
Dany

Normal, dans le premier code le tsqlconnection est déjà activé, et dans le deuxième rien n'est activé au préalable.

Le premier ne fonctionne pas mais le deuxième oui.

????

Une petite aide ne serait pas de refus.

Jer

Bonjour,

Voyant que je n'ai aucune réponse, je vais tenter d'être plus explicite dans ma question:

En fait j'ai une base de données sous mysql. J'ai créé sous delphi une form avec des dbedit pour afficher les données de ma table.
J'ai un datamodule dans lequels j'ai placé :

- un sqlconnection

- un datasource

- un clientdataset

- un datasetprovider

- un sqlquery

Lorsque je démarre l'appli ma form s'affiche et mon code fonctionne:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm1.FormActivate(Sender: TObject); begin   with datamodule2 do begin SQLConnection1.connected:=true; sqlquery1.sql.Add('select * from clients order by affaire'); sqlquery1.Active:=true; clientdataset1.Active:=true;   end;   end;

---

Une fois l'appli lançée si je click sur le bouton avec le code suivant, rien ne se passe:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.Button1Click(Sender: TObject); begin   with datamodule2 do begin   sqlquery1.Close; sqlquery1.SQL.Clear; sqlquery1.SQL.Add('select * from clients order by nom'); sqlquery1.Open;   end; end;

---

Je rajoute que si dans le premier code je remplace sqlquery1.SQL.Add('select * from clients order by affaire') par sqlquery1.SQL.Add('select * from clients order by nom')
cela fonctionne parfaitement.

Voilà mon problème.

Merci d'avance.

Jer