Procedure stockée =>insert (avril 2004)
------------------------------------------
J'ai realisé ce p'tit programme qui montre
l'utilisation d'une procedure stockée pour inserer des nouveaux clients sous
sql serveur ou msde.
J'ai fait un document de quelques pages en .doc expliquant ce qu'est une procedure stockée,
les avantages, etc....
et la marche a suivre pour executer ce p'tit exemple.
Le document word se trouve ds le dossier tutorial...
Source / Exemple :
procedure TForm1.SpbEnvoitClick(Sender: TObject);
begin
//test si champs est remplis
if (eNom.text = '')then
begin
showmessage('Erreur..veuillez remplir les champs svp');
Windows.Beep(100,500); //beep
eNom.SetFocus; //place le focus
end
else
with ADOstoredprocInsere do
begin
parameters.ParamByName('@nouvNom').Value:=ENom.text;
parameters.ParamByName('@nouvPrenom').Value:=EPrenom.text;
parameters.ParamByName('@nouvAdresse').Value:=EAdresse.text;
parameters.ParamByName('@nouvVille').Value:=EVille.text;
parameters.ParamByName('@nouvTelephone').Value:=ETele.text;
//ecxecution procedure
execproc;
//rafraichit la base
ADOtable1.close; //fermeture de la table
ADOtable1.open; //rafraichissement
showmessage('Insertion de votre nouveau client reussie...');
panelajout.Visible := false;
bpanelvisible.Enabled := true;
//mise a blanc des edit
eNom.Text:= '';
ePrenom.Text:='';
eAdresse.Text:='';
eVille.Text:='';
etele.Text:='';
end;
end;
Conclusion :
Enjoy
http://membres.lycos.fr/annmysql
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.