bonjour,
Developpant sous D4 STD avec fibplus (trial) et firebird 2.0, je me suis lancé dans LAZARUS + UIB pour attaquer la même DB.
J'ai compris comment faire une PS avec TjvUIBQUERY
Ma BD contenant plusieurs PS, je me demande si il existe un moyen d'avoir une JvUIBQuery par PS.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 procedure TForm1.Button1Click(Sender: TObject); begin with JvUIBQuery1 do begin BuildStoredProc('LISTE_VEHICULE_ENGIN', true); Params.ByNameAsInteger['Choix_ENGIN'] := 81501; try open; edit1.text:=JvUIBQuery1.Fields.ByNameAsString['LIBELLE_CODE_GARANTIE']; Close(etmCommit); except Close(etmRollback); end; end;
A+
Partager