Discussion :

[manplum]

Bonjour à tous,
Je viens de passer à InterBase et je rencontre un premier pb.
J'ai une table Clients et je voudrais faire une recherhce pour recuperer des infos de ce client.
Voici mon code qui ne marche pas :

AnsiString Client,NomClient;
Client = ComboBox1->Text;

Code :

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

1
2
3
4
5
 
IBQuery1->SQL->Clear();
IBQuery1->SQL->Add("SELECT NOM_CLIENT FROM CLIENTS WHERE NOM_CLIENT = Client ");
 
NomClient = IBTable1->FieldByName("NOM_CLIENT")->AsString;

Si quelqu'unpeut m'aider
Merci

[Superstivix]

Code :

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

1
2
3
4
5
6
7
8
 
AnsiString Client,NomClient;
Client = ComboBox1->Text;
 
IBQuery1->SQL->Clear();
IBQuery1->SQL->Add((String)"SELECT NOM_CLIENT FROM CLIENTS WHERE NOM_CLIENT ='" + Client + "'");
 
NomClient = IBTable1->FieldByName("NOM_CLIENT")->AsString;

Comme cela ça devrait marcher

Steve

[manplum]

Je n'arrive pas a afficher mon client : j'ai rien dans mon ShowMessage !!!

AnsiString Client,NomClient;

Code :

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

1
2
3
4
5
6
Client = ComboBox1->Text;
 
IBQuery1->SQL->Clear();
IBQuery1->SQL->Add((String)"SELECT NOM_CLIENT FROM CLIENTS WHERE NOM_CLIENT = '" + Client +  "'");
NomClient = IBTable1->FieldByName("NOM_CLIENT")->AsString;
ShowMessage(NomClient);

[Superstivix]

Code :

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

1
2
3
4
5
6
7
8
 
AnsiString Client,NomClient;
Client = ComboBox1->Text;
 
IBQuery1->SQL->Clear();
IBQuery1->SQL->Add((String)"SELECT NOM_CLIENT FROM CLIENTS WHERE NOM_CLIENT ='" + Client + "'");
 
NomClient = IBQuery1->FieldByName("NOM_CLIENT")->AsString;

Autant pour moi je n'avais pas vu

Steve

[manplum]

J'ai une erreur sur cette ligne

Code :

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

NomClient = IBQuery1->FieldByName("NOM_CLIENT")->AsString;

il le dit que le champ NOM_CLIENT n'existe pas

alors que la ligne precedente

Code :

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

IBQuery1->SQL->Add((String)"SELECT NOM_CLIENT FROM CLIENTS WHERE NOM_CLIENT = '" + Client +  "'");

marche tres bien

Je ne comprend pas trop bien la logique....

[Superstivix]

Essayes de rajouter

Code :

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

1
2
 
IBQuery1->SQL->Open();

avant de faire

Code :

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

1
2
 
NomClient = IBQuery1->FieldByName("NOM_CLIENT")->AsString;

[manplum]

Ca marche avec IBQuery1->Open();
mais j'ai encore un petit probleme :
Tous mes clients marche sauf ceux du type : Caisse d'Epargne Appoigny
j'ai un message : EOF detecte dans une chaine

qu'est ce que ca veut dire ?

[Superstivix]

Je pnse que le problème vient de l'apostrophe!

As tu d'autres clients qui comportent un apostrophe?

Si c'est le cas il te faudra faire:

Code :

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

1
2
3
4
5
6
7
8
9
 
AnsiString Client,NomClient; 
Client = ComboBox1->Text; 
 
IBQuery1->SQL->Clear(); 
IBQuery1->SQL->Add((String)"SELECT NOM_CLIENT FROM CLIENTS WHERE NOM_CLIENT =" + QuotedStr(Client)); 
IBQuery1->Open(); 
 
NomClient = IBTable1->FieldByName("NOM_CLIENT")->AsString;

[manplum]

CA MARCHE........
Merci beaucoup