Soyez le premier à donner votre avis sur cette source.
Vue 10 541 fois - Téléchargée 1 747 fois
//envoit de la requete par le boutton procedure TForm1.BitBtn2Click(Sender: TObject); var chaine : string; begin //envoit de la requete chaine:=edit1.Text; if (chaine ='') then //erreur begin Windows.Beep(100,500); //beep showmessage('Veuillez insérer une requete ou cliquez sur le menu Divers'); edit1.SetFocus; // on place le focus end else begin database1.Open; query1.SQL.Clear; try begin query1.SQL.Add(edit1.Text); //ajout de la requete query1.Open; //ouverture de la table en query edit1.Text:=''; //edit a blanc end; except on edbengineerror do showmessage('Erreur de Requete Sql') ; end; end; end;
8 avril 2004 à 22:48
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.