Discussion :

[socooooool]

bonjour à tous,

voici mon code :

procedure TForm6.BitBtn2Click(Sender: TObject);
begin
if (edit1.text='') or (edit2.text='') or (combobox1.text='') or (combobox2.text='') or (combobox3.text='') or (combobox4.text='') then
showmessage('Vous devez remplir tous les champs')
else
q3.Open;
q3.params.Items[0].asstring:=edit1.Text;
q3.params.Items[1].asstring:=edit2.Text;
q3.params.Items[2].asstring:=combobox4.Text;
q3.params.Items[3].asstring:=combobox1.Text;
q3.params.Items[4].asstring:=combobox2.Text;
q3.params.Items[5].asstring:=combobox3.Text;
q3.Close;
showmessage('La nouvelle tâche a bien été enregistrée');
edit1.Clear;
edit2.Clear;
Combobox4.Clear;
Combobox1.Clear;
Combobox2.clear;
combobox3.clear;
end;

Le but du jeu >> faire un enregistrement dans une des tables de ma base de données access qui contient 6 champs. ( À noter que j'ai bien ajouter la requête sql dans la propriété "SQL" de q3 )

Problème : actuellement on me sort le message d'erreur : "indice hors limites (0)" ... pourtant j'ai bel et bien 6 champs !!

Merci d'avance

[mika]

Tu fais le open avent de mettre tes paramétres. C'est plutot l'inverse qu'il faut faire.

[socooooool]

en plaçant le open après les q3.params... ça ne change rien

[socooooool]

j'ai quelque peu changé le code ...

procedure TForm6.BitBtn2Click(Sender: TObject);
begin
if (edit1.text='') or (edit2.text='') or (combobox1.text='') or (combobox2.text='') or (combobox3.text='') or (combobox4.text='') then
showmessage('Vous devez remplir tous les champs')
else
q3.sql.Add('select * from tache');
q3.open;
q3.params[0].Value:=edit1.Text;
q3.params[1].Value:=edit2.Text;
q3.params[2].Value:=combobox4.Text;
q3.params[3].Value:=combobox1.Text;
q3.params[4].Value:=combobox2.Text;
q3.params[5].Value:=combobox3.Text;
showmessage('La nouvelle tâche a bien été enregistrée');
edit1.Clear;
edit2.Clear;
Combobox4.Clear;
Combobox1.Clear;
Combobox2.clear;
combobox3.clear;
end;

Toujours le même soucis : "indice de liste hors limites (0)"
Je ne comprends vraiment pas ... ma table à bien 6 champs pourtant

[Mirmillon]

Bonjour
Le message indice hors limites (0) indique que le problème se situe au niveau du combobox probablement par le code combobox2.text=''.
Mirmillon

[mika]

Normal tu veux affectés a tes paramétres des valeurs alors que dans ta requéte tu n'a pas de valeur

Mais en fait tu veux faire quoi
* récupérer un enregistrement (select * from matable)
* insérer un enregistrement (insert into ma table ...)

[Rayek]

Houla, je te conseil de fortement aller voir les tutoriaux fournis sur ce site.
Je pense que tu n'as pas compris le fonctionnement d'une requete.

Si tu veux insérer des données dans une table tu as deux possibilités simples :

1- soit tu fais une requete de type insert
2- soit tu utilises un composant TxxxTable ou TxxxQuery avec une requete "select * from LaTable".

Si par exemple ta table a les champs : Index(champ auto incrémenté) ,Nom (VarChar),Prenom (varChar)


Dans le premier cas

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
With MaQuery do
begin
  Close; 
  SQL.Clear;
  SQL.Add('insert into (Nom,Prenom)');
  SQL.Add('values( :SNom,:SPrenom )');
  ParamCheck := True;
  Parameters.ParamByName('SNom').Value := Edit1.Text; // la syntaxe change selon le type de composants.
  Parameters.ParamByName('SPrenom').Value := Edit2.Text;
  try
    ExecSql;
  Except on E:Exception do
    Showmessage('Erreur lors de l'insertion des données : ' + E.Message);
  end;
end;

Dans le deuxieme cas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
With MaTable do
begin
  Append; // insère un enregistrement vide
  FieldByName('Nom').AsString := Edit1.text;
  FieldBYName('Prenom').AsString := Edit2.text;
  try
    Post;
  Except on E:Exception do
    ShowMessage('Erreur lors de l''enregistrement des données : ' + E.MEssage);
  end;
end;

Voila j'espère que ca t'éclairera mais va quand même voir les tutoriels sur delphi et les base de données ainsi que les tutoriels du SQL.

[socooooool]

c'est pour faire des enregistrements mika ... il est vrai qu'avec le select je vais pas aller bien loin !!!!! ça paraissait pourtant évident ...

Donc la bonne syntaxe serait :

q3.sql.add('insert into tache');
q3.open;
q3.params[1].Value:=edit1.Text;
...

C'est ça ?



__________________________________________


je viens de lire le post de malatar !

Ok ... je vois bien le cheminement ... impec !

Je vais aller me plonger dans les tuto encore une fois ... c'est pas gagné !

en tout cas merci beaucoup