P'tit interpreteur de requete sous delphi 6 et paradox.
Permet tout simplement en entrant une requete sql
( exemple select * from clients)
de resortir les enregistrements de la base => clients.
Structure de celle - ci :
-------------------------
=> Id
=> Nom
=> Prenom
=> Adresse
=> Ville
=> Codepost
Tout est dans le .zip
La meme chose mais ....en php :-)
http://www.phpcs.com/code.aspx?ID=13384
Source / Exemple :
//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;
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.