Discussion :

[andreditdd]

Bonjour,
j'essaie de faire communiquer mon application avec une feuille Access.
J'ai placé sur ma Form un DataSource, un AdoConnection, et un ADOQuery.
J'ai tout initialisé et placé le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
 
ADOQuery1.SQL.Clear ;
 
    begin
    ADOQuery1.SQL.Add('Insert into table1 (Nr100) Values ('+QuotedStr(nr100.Text)+')');
    ADOQuery1.SQL.Add('Insert into table1 (Date) Values ('+QuotedStr(date.Text)+')');
 
ADOQuery1.ExecSQL;
ADOQuery1.Close;

Si je n'emploie que le premier champ (Nr100) tout fonctionne,
mais quand j'essaie les deux champs (Nr100 et Date) comme sur le code,
ça ne fonctionne pas et m'indique qu'il manque qlq chose.

En réalité, j'ai 18 champs mais j'essaie déja avec 2.

Merci d'avance,
André

[Rayek]

C'est pas comme ca qu'on insère dans une base de données avec une requete.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
With AdoQuery1 do
begin
  SQL.Clear ;
  SQL.Add('Insert into table1 (Nr100,Date,Champ1, ...) Values (');
  SQL.Add(QuotedStr(nr100.Text)+',');
  SQL.Add(QuotedStr(date.Text)+',');
  SQL.Add(QuotedStr(Champ1.text) + ',');
  SQL.Add( ... + ')');
 
  ExecSQL;
  Close;
end;

Ou alors en pasant par des paramètres

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
With AdoQuery1 do
begin
  SQL.Clear ;
  SQL.Add('Insert into table1 (Nr100,Date,Champ1)');
  SQL.Add('Values ( :SNR100,:SDATE,:SCHAMP1)');
  ParamCheck := True;
  Parameters.ParamByName('SNR100').Value := nr100.Text;
  Parameters.ParamByName('SDATE').Value := date.Text;
  Parameters.ParamByName('SCHAMP1').Value := Champ1.text
  ExecSQL;
  Close;
end;

[edam]

je préfére adocommand pour insert et update
dans l'aide de delphi:

TADOCommand s'utilise le plus souvent pour exécuter des commandes SQL du langage de définition de données (DDL) ou pour exécuter une procédure stockée qui ne renvoie pas d'ensemble de résultats. Pour les instructions SQL qui renvoient un ensemble de résultats, un composant TADODataSet, TADOQuery ou TADOStoredProc est plus adapté. Cependant, la méthode Execute de TADOCommand est capable de renvoyer un ensemble d'enregistrements. Mais pour utiliser cet ensemble d'enregistrements, vous aurez besoin d'un composant ensemble de données ADO distinct

pour plus de détaille sur insert

[andreditdd]

Merci pour vos réponses.

Malheureusement, cela ne fonctionne pas. Il me met "erreur avec INSERT".

André

[andreditdd]

Ok, ça fonctionne.
L'erreur venait de moi.

Encore merci à vous

André