Discussion :

[jer64]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[skywaukers]

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

[jer64]

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

[jer64]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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