Bonjour à tous,

J'ai un petit problème de connaissance. Voilà j'ai une table SUIVISAV oracle, avec une sequence SEQ_NUMSUIVI me permettant d'avoir un clé primaire dans ma table SUIVISAV autoimplémenté...
Cependant je ne sais pas comment m'en servir sous Delphi pour faire mon ajout dans ma table ...
Voici mon code :

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
17
18
19
20
21
22
23
24
25
26
27
28
procedure TFrmAjoutSAV.btnOkClick(Sender: TObject);
var
  nomDuScan : String;
begin
nomDuScan := '';
nomDuScan := lblNomScan.Caption;

oqAjoutSav.Close;
oqAjoutSav.SQL.Clear;
oqAjoutSav.SQL.Add('INSERT INTO suivisav (numsuivi, numrma, datedepart, dateretour, nomscan, commentaire) VALUES (:numerosuivi, :numerorma, :datededepart, :datederetour, :lenomscan, :com)');
oqAjoutSav.DeclareAndSet('numerosuivi', otInteger, seq_numsuivi.nextval);
oqAjoutSav.DeclareAndSet('numerorma', otString, zsNumRma.Text);
oqAjoutSav.DeclareAndSet('datededepart', otString, zsDateDep.Text);
oqAjoutSav.DeclareAndSet('datederetour', otString, zsDateRetour.Text);
oqAjoutSav.DeclareAndSet('lenomscan', otString, nomDuScan);
oqAjoutSav.DeclareAndSet('com', otString, zsCommentaires.Text);
oqAjoutSav.Execute;
oqAjoutSav.Session.Commit;

FrmHistoSav.OracleDataSetHisto.Close;
FrmHistoSav.OracleDataSetHisto.SQL.Clear;
FrmHistoSav.OracleDataSetHisto.SQL.Text := 'SELECT * FROM suivisav WHERE nomscan = :nomduscan';
FrmHistoSav.OracleDataSetHisto.DeclareAndSet('nomduscan', otString, nomDuScan);
FrmHistoSav.DataSourceHisto.DataSet := FrmHistoSav.OracleDataSetHisto;
FrmHistoSav.DBGridHisto.DataSource := FrmHistoSav.DataSourceHisto;
FrmHistoSav.OracleDataSetHisto.Open;

end;
C'est sur la zone en rose que j'aimerai faire mon ajout et utiliser mon auto implémentation mais comment puis-je faire il faut que je déclare seq_numsuivi ? Il me dit qu'il n'est pas déclaré...

Help ! Je ne connais pas cette méthode et ne voit pas comment faire malgré mes recherches internet...

Merci d'avance