Delphi + ADO + Access

Version imprimable

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:

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é

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

Code:

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:

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;

09/02/2007, 19h52
edam

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

Citation:

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
09/02/2007, 20h48
andreditdd

Merci pour vos réponses.

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

André
09/02/2007, 23h32
andreditdd

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

Encore merci à vous :king:

André