Insertion dans une table

[mahzongo]

Bonsoir,
J'ai un probleme d'insertion dans une table.Je m'explique :
j'ai deux table a savoir chambre et reservation. Je veux inserer quelques donnees de la table chambre dans la table reservation.Pour cela j'ai voulu passer passer par une requete mais qui ne marche pas.
Voici la procedure :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure Tchamb_dispo.BitBtn5Click(Sender: TObject); 
Var idchambre:integer; 
ddd,ddf : TDateTime; 
begin 
idchambre:=Grille.DataSource.DataSet.FieldbyName('IDCHAMBRE_SERVI').AsInteger ; 
ddd := Grille.DataSource.DataSet.FieldbyName('DATED').AsDateTime; 
ddf := Grille.DataSource.DataSet.FieldbyName('DATEF').AsDateTime 
WITH DMReserv.IBQReserv do 
begin 
SQL.Clear; 
SQL.ADD('insert into RESERVATION (DATEDR, DATEFR, IDRESERVATION) values (SELECT :U,:I,:IDC FROM CHAMBRE)'); 
ParamByName('U').AsDate := ddd; 
ParamByName('I').AsDate := ddf; 
ParamByName('IDC').AsInteger :=idchambre; 
ExecSQL; 
end; 
 
end;

je demande de l'aide pour mener a bien mon travail
Cordialement!

[CinePhil]

Dans le cadre de ce forum consacré au langage SQL, voici la partie intéressante du code, remise en forme :

Code :

1
2
INSERT INTO RESERVATION (DATEDR, DATEFR, IDRESERVATION) 
VALUES (SELECT :U,:I,:IDC FROM CHAMBRE)

Traduction de la requête :
" Insérer dans les colonnes DATEDR, DATEFR, IDRESERVATION de la table RESERVATION les valeurs des colonnes dont le nom est donné par les paramètres U, I et IDC de la table CHAMBRE."
Comme tes paramètres ne sont pas des noms de colonne mais des valeurs, le SGBD ne trouve pas les colonnes correspondant à ces valeurs et te renvoie probablement un joli message d'erreur !

Puisque tu as déjà les valeurs, inutile de faire un SELECT sur la table des chambres !

Code :

1
2
INSERT INTO RESERVATION (DATEDR, DATEFR, IDRESERVATION) 
VALUES ( :U,:I,:IDC)