Help Delphi & oracle

Version imprimable

15/09/2008, 11h25
messi89

Help Delphi & oracle

slt a tous

voila j'ai un blem

je veux savoir comment inserer le caractere ' / ' dans un attribut dans une table sous oracle

je vous explique

j'ai 2 edit sous delphi
edit1.text=> par ex: messi
edit2.text=> 89

et je veux inserer(ou mettre a jour meme chose) ça dans un attribut d'une table "messi/89"

j'essayé ça

Code:

'update perso set reste1='+nb+',date_deb='+edit1.Text+'/'+edit2.Text+' where matricule='''+edit6.Text+''''

mais la il me fait l'operation du devision

alors une idée n'hésitez pas !!!

et merci bcp
15/09/2008, 11h39
Cl@udius

Salut

De quel type est le champ date_deb ? Si c'est TIMESTAMP comme son nom peut le faire penser, cela expliquerait l'échec lors de la division.

@+ Claudius
15/09/2008, 11h44
messi89

non dat_deb c varchar2(10)

et je veux mettre dedans par exemple '10/09/2008' en tout 10car

merci a toi
15/09/2008, 11h48
SergioMaster

ça manque de QuotedStr (ou de Double Quotes ) tout ça :roll:
bizarre surtout qu'il y en a pour la clause Where
15/09/2008, 11h54
Cl@udius
Tu as oublié d'ajouter des quotes autour de la "date".

Perso j'utilise la fonction format dans ce genre de cas ou une requête paramétrée, pour éviter de me mélanger les crayons.

Avec format cela donne:
Code:

1 2 3 4 5 6 7 8 const S = 'update perso set reste1 = %d, date_deb = ''%s/%s'' where matricule = ''%s'';'; begin //... SQL.Text := Format(S, [nb, Edit1.Text, Edit2.Text, Edit6.Text]); // ... end;
@+ Claudius
15/09/2008, 11h58
messi89

je vais testé ta méthode :)

juste une remarque nb est de type string

alors j'ai fait comme ça comme tu m'a dit mais j'ai cette erreur :cry:

Code:

1
2
 
Ora-00911:Caractere non valide

voila le code de la procédure peut etre ya une erreur quelque part que j'ai pas remarqué 8O

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
 
procedure TForm2.Button2Click(Sender: TObject);
var
  nb: string;
const
  S = 'update perso set reste1 = ''%s'', date_deb = ''%s/%s'' where matricule = ''%s'';';
begin
if strtoint(combobox1.text) > strtoint(memo1.text) then
begin
application.MessageBox('nombre non autorisé pour cet exercice','Erreur',MB_ICONINFORMATION) ;
end
else
begin    //debut else
nb:=inttostr(strtoint(memo1.text)-  strtoint(combobox1.text)); //calcul de nbre congé restant
//requette
form1.adoquery1.Active:=false;
form1.adoquery1.SQL.Clear;
//exercice 1 update reste1
if edit3.Text=ex1 then
begin
 
 
form1.adoquery1.SQL.Text:=Format(S, [nb, Edit1.Text, Edit8.Text, Edit9.Text]);
form1.adoquery1.ExecSQL;
tEdit1.Text:='';
edit8.text:='';
edit9.text:='';
end;
.////
end.

Citation:
Envoyé par Cl@udius
Perso j'utilise la fonction format dans ce genre de cas ou une requête paramétrée, pour éviter de me mélanger les crayons.

Avec format cela donne :
Code:

1 2 3 4 5 6 7 8 const S = 'update perso set reste1 = %d, date_deb = ''%s/%s'' where matricule = ''%s'';'; begin //... SQL.Text := Format(S, [nb, Edit1.Text, Edit2.Text, Edit6.Text]); // ... end;
@+ Claudius
J'utilise aussi le même principe. Mais attention, écrit de cette façon, tu es vulnérable aux injections SQL (ou plus simplement, la requête risque de planter en fonction de ce que l'utilisateur saisi dans les Edit).

Il faudrait plutôt le faire de la façon suivante (en tenant compte du fait que nb est un string) :
Code:

1 2 3 4 5 6 7 8 const S = 'update perso set reste1 = %s, date_deb = %s where matricule = %s;'; begin //... SQL.Text := Format(S, [nb, QuotedStr(Edit1.Text + '/' + Edit2.Text), QuotedStr(Edit6.Text)]); // ... end;
Toujours dans le même esprit, puisque nb est une chaîne, il faut être sûr que nb contient réellement un nombre et uniquement un nombre (bon, puisque c'est le résultat d'un IntToStr, il n'y a pas de problèmes).

15/09/2008, 14h13
Cl@udius

Ne connaissant pas Oracle, je me demandais si le slash (/) n'était pas un caractère réservé comme le point-virgule (;) par exemple.

Ce qui mettrait le bazar lors du parsing de l'instruction SQL.
15/09/2008, 14h51
messi89

Citation:

Envoyé par Cl@udius

Ne connaissant pas Oracle, je me demandais si le slash (/) n'était pas un caractère réservé comme le point-virgule (;) par exemple.

Ce qui mettrait le bazar lors du parsing de l'instruction SQL.

quand j'ajoute 10/09/2008 avec le dbnavigator de delphi

oracle ne signal rien et il l'accepte

Citation:
Envoyé par Franck SORIANO
J'utilise aussi le même principe. Mais attention, écrit de cette façon, tu es vulnérable aux injections SQL (ou plus simplement, la requête risque de planter en fonction de ce que l'utilisateur saisi dans les Edit).

Il faudrait plutôt le faire de la façon suivante (en tenant compte du fait que nb est un string) :
Code:

1 2 3 4 5 6 7 8 const S = 'update perso set reste1 = %s, date_deb = %s where matricule = %s;'; begin //... SQL.Text := Format(S, [nb, QuotedStr(Edit1.Text + '/' + Edit2.Text), QuotedStr(Edit6.Text)]); // ... end;
Toujours dans le même esprit, puisque nb est une chaîne, il faut être sûr que nb contient réellement un nombre et uniquement un nombre (bon, puisque c'est le résultat d'un IntToStr, il n'y a pas de problèmes).
ça marche pas

il me dit carcatere invalide

est qu'il ya une autre solution pour inserer dd/mm/yy dans ma variable date_deb !!!

pourquoi ne pas passer par des paramètres

Code:

1
2
3
4
5
6
 
Query.SQL.Text := 'update perso set reste1 =:r, date_deb =:d where matricule =:m';
Query.parambyname('r').asInteger:=nb;
Query.parambyname('d').asDate:=Edit1.Text + '/' + Edit2.Text; // là j'ai pas trop suivi
Query.parambyname('m').asString:=Edit6.text;
Query.execSQL;

15/09/2008, 15h51
Linkin
Code:

1 2 'update perso set reste1='+nb+',date_deb='+QuotedStr(edit1.Text+'/'+edit2.Text)+' where matricule='+QuotedStr(edit6.Text);
devrait suffire.

le / n'est pas un caractère spécial, par contre le & oui, de même pour les sauts de ligne (0D0A) il faut faire attention pour ne pas avoir de problème à la relecture.

Je n'ai pas rencontré de problème d'insertion pour le caractère / (Oracle 9i).
15/09/2008, 18h49
messi89
Citation:
Envoyé par Linkin

Code:

1 2 'update perso set reste1='+nb+',date_deb='+QuotedStr(edit1.Text+'/'+edit2.Text)+' where matricule='+QuotedStr(edit6.Text);

devrait suffire.

le / n'est pas un caractère spécial, par contre le & oui, de même pour les sauts de ligne (0D0A) il faut faire attention pour ne pas avoir de problème à la relecture.

Je n'ai pas rencontré de problème d'insertion pour le caractère / (Oracle 9i).
enfin la bonne :D

merci bcp a toi et tous les membres qui ont penser a m'aider

gracias

Résolu
16/09/2008, 08h33
Linkin

Je pense que la solution de Franck SORIANO marche aussi, mais en enlevant le point-virgule de la requête.

Sa solution est presque la même (et elle me paraît plus claire).