Discussion :

[afatdz]

Bonjour;
Je voudrais faire des opération d'ajout,modification, suppression et recherche sur une base de données mais en utilisant des requetes SQL
pour l'insertion la syntaxe est
insert into table(champ1,champ2,...) VALUES(v1,v2,...)
Ce que je veux c'est de ne pas préciser les valeurs à saisir de manière à permettre à l'utilisateur de saisir ce qui est afficher dans les edits ou les dbedits.
J'espère que je me suis bien expliqué
Merci

[Cl@udius]

Salut

Utilise une requête paramétrée:

Code sql :

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

insert into table(champ1,champ2,...) VALUES(:v1,:v2,...)

Reste à renseigner la valeur des paramètres avec les Edit, exemple:

Code :

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

1
2
3
4
5
 
Query1.ParamByName('v1').Value := Edit1.Text;
Query1.ParamByName('v2').Value := QuotedStr(Edit2.Text);
// etc...
Query1.ExecSQL;

@+ Claudius

[afatdz]

Merci de votre réponse, mais il y a toujours un problème
c'est au niveau du parammetrage des valeurs de V1 et V1
dans la proprieté Params/datatype,paramtype des valurs v1 et v2 en essayant d'activer le query im y a message d'erreur 'expression d'expression.
dans ma table j'ai mis le code(numerique) et le nom(alphanum) et dans les proprieté de param

pour le code datatype:integer et paramtype:input
et le nom et les autres champs alphanum datatype:string et paramatype:input et donc je n'arrive pas à activer le query
Merci de votre réponse

[Yurck]

Un query avec un ordre Insert ne s'active pas il s'exécute.

Code :

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

1
2
 
Query.execsql;

Quel est ton message d'erreur ?
Quelle base utilises-tu ?
Quel moyen d'accès ou de connexion utilises-tu (BDE, ADO,...) ?

Quels objets utilises-tu ?

[afatdz]

Merci de m'avoir répondu
J'utilise le BDE, voilà d'habitude pour ajouter, modifier oui supprimer un enregistrement d'une table, j'utilisais
Table1.insert(insertion)
Table1.delete(suppression)
Table1.edit(modification)
Mais cette fois j'ai un TP dans lequel je dois faire les opérations citées dessus avec des requêtes SQL pour maîtriser le langage SQL.
Donc j'ai suivi les conseils de Claoudius, j'ai utilisé un query en utilisant la syntaxe dans le string


INSERT INTO TABLE(champ1,champ2,...) VALUES(:v1,:v2,...)
mais j'ai eu un message d'erreur en essayant d'activer le query (erreur d'expression
J'ai paramartré les valeurs de V1(code qui est numerique= et v2(champ alphanum) comme suit
pour le code datatype:integer et paramtype:input
et le nom et les autres champs alphanum datatype:string et paramatype:input
et c'est là le problème, le query ne s'active pas
J'espère que tu as compris et ne me mets des trous dans ma tête avec ta mitrailleuse
Merci

[SergioMaster]

puisque v1 est de type numérique alors :

Code :

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

1
2
3
4
5
6
7
 
var x : integer;
.....
try x:=strtoInt(edit1.text); except x:=0; end; // j'aime bien savoir que c'est bien une valeur numérique d'où ma gestion de l'exception
Query1.ParamByName('v1').Value := x;
....
Query1.ExecSQL;

comme le dit Youki la query s'éxecute elle ne "s'active" pas

[afatdz]

Merci Sergio
Si j'ai bien compris je dois ignorer la proprieté params (datatype et paramtype) des valeurs v1 et v2 et donc je ne chercherai pas à activer le query.
Vous savez, avant j'utilisais les requêtes SQL pour des filtres ou edition (select.....), mais c'est la première fois ou je dois utiliser SQL pour des opération d'insertions, suppression et modification
Merci à tous le monde et je compte sur vous pour m'aider

[SergioMaster]

Si j'ai bien compris je dois ignorer la proprieté params

Non c'est l'inverse , tu dois faire attention au type de données

[afatdz]

Bonjour;
Merci à tous ce qui qui m'ont repondu
Voilà selon les conseils precieux des membres du forum j'ai tenté de deux manières à la réalisation de mon programme, la 1ère s'est executé :
1- En introduisant le code SQL:

Code sql :

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

insert into etudient (code,nom) values (:v1,:v2)

Et dans la proprieté onclick du bouton pour executer l'insertion :

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 query1 do
begin
close;
query1.ParamByName('v1').value:=strtofloat(edit1.text);
query1.ParamByName('v2').value:=edit2.text;
try
query1.ExecSQL;
except
showmessage('erreur');
end;
 end;
 end;
 end.

Mais avec la 2ème méthode:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Button1Click(Sender: TObject);
begin
with query1 do
begin
close;
query1.sql.clear;
query1. sql.add('insert into etudient(code,nom)values(+ strtofloat edit1.text)  , ''' + edit2.text+ ''' )');
try
ExecSQL;
except
showmessage('erreur');

la complilation ne signale aucun proplème mais à l'execution un message d'erreur " utilisation incorrecte du mot clé" et le curseur et positionné à la ligne query1.ExecSQL

Il est vrai que le prg s'est executé avec la 1ère méthode, mais je voudrais bine savoir pour ça n'a pas marché avec la 2ème
Merci à tous

[Yurck]

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
16
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  with query1 do
  begin
    close;
    query1.sql.clear;
    query1. sql.add('insert into etudient(code,nom) values(' + edit1.text + ',' + quotedstr(edit2.text) + ' )');
    try
      ExecSQL;
    except
      on e:exception do
      showmessage('erreur sur ' + slinebreak + query1. Text + slinebreak + e.message);
    end;
   end;
end;

Affiche ton text sql sur l'erreur tu comprendras mieux celle-ci.

[afatdz]

Merci Yurck et tous ce qui m'ont aidé, maintenant, je vais que continuer avec la modiciation et la suppression et je compte sur vous pour m'aider
Merci encore une fois

[afatdz]

Mon programmed s'est executé grace à vous
Merci bien