Discussion :

[simoryl]

Salut,

J'ai l'erreur : "arithmetic exception, numeric overflow, or string truncation"
Mais je vois pas pourquoi, ma requete marche très bien dans l'IBConsole.
Voici mon code quand on clic sur le bouton et qui fait l'erreur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
JvUIBDataBase1.Connected := true;
JvUIBDataSet1.SQL.Text := 'SELECT NOMR FROM CONTACTR WHERE NOMR = '+quotedstr(nom);//nom := 'dupont';
JvUIBDataSet1.Open;
 
if JvUIBDataSet1.RecordCount > 0 then
begin
MessageDlg('Un contact trouvé.', mtWarning, [mbOK], 0);
end;
 
JvUIBDataBase1.Connected := false;

Et la connection marche bien quand je la test. Je vois pas d'où ça vient
Simo'
PS : sous Delphi 7

[neilbgr]

Avant tout, jamais utiliser la propriété RecordCount qui ne correspond pas à ce que l'on souhaite vraiment (car techniquement, TOUTES les données ne sont pas ramenée (fetched) donc, le count n'est pas exploitable). Pour palier ce dédsagréement, et tester s'il y a ou pas au moins un enregistrement en résultat, il faut plutot faire ce test :

Code :

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

1
2
3
4
if Not (JvUIBDataSet1.Eof and JvUIBDataSet1.Bof) then
  //y au moins un enregistrement
else
  //c vide

Ceci dit, l'erreur : "arithmetic exception, numeric overflow, or string truncation" est assez typique d'un soucis avec les char-set de la colonne, de la base, et de la config de la connexion (dans le TIbDataBase). Pour résoudre, il vaut mieux que tous est la meme valeur.[/code]

[simoryl]

Pour résoudre, il vaut mieux que tous est la meme valeur

Pourtant le charset est le même pour tous : csISO8859_1
Sinon, merci pour le bout de code, je manipule pas encore top bien UIBExpert et Firebird.
Simo'

[souch]

lu essai de passer tes params comme ca, c + propre et pas la peine de proteger des strings :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
JvUIBDataBase1.Connected := true;
JvUIBDataSet1.SQL.Text := 'SELECT NOMR FROM CONTACTR WHERE NOMR = :NOM';
 
JvUIBDataSet1.Params.ByNameAsString['NOM'] := 'dupont';
 
JvUIBDataSet1.Open;
 
if JvUIBDataSet1.RecordCount > 0 then
begin
MessageDlg('Un contact trouvé.', mtWarning, [mbOK], 0);
end;
 
JvUIBDataBase1.Connected := false;