Accueil
Accueil Le Club Delphi Kylix C C++ Java J2EE DotNET & C# Visual Basic Access Pascal Dev Web PHP ASP XML UML SQLSGBD Windows Linux Autres
logo

precedent    sommaire    suivant   


Comment créer une requête avec le modèle ADO ?
auteur : Tofalu
Tout d'abord ajouter les références suivantes dans votre projet :

Microsot ADO Ext 2.X for dll and security Microsof ActiveX Data Object 2.X Library

Ensuite, utiliser le code suivant :
Sub CreerRequete(Nom As String, SQL As String)
Dim MaCom As New ADODB.Command
Dim MCat As New ADOX.Catalog
Set MCat.ActiveConnection = CurrentProject.Connection
MaCom.CommandText = SQL
MCat.Procedures.Append Nom, MaCom
Set MCat=Nothing
Set MaCom=Nothing
End Sub
Exemple d'utilisation :

CreerRequete "test", "select * from matable"
lien : fr Tutoriel de JM Rabilloud sur ADOX

Comment modifier le SQL d'une requête avec le modèle ADO ?
auteur : Tofalu
Tout d'abord ajouter les références suivantes dans votre projet :

Microsot ADO Ext 2.X for dll and security Microsof ActiveX Data Object 2.X Library

Ensuite, utiliser le code suivant :
Sub ModifierRequete(Nom As String, SQL As String)
On Error GoTo err
Dim MaCom As New ADODB.Command
Dim MaProc As ADOX.Procedure
Dim MCat As New ADOX.Catalog
Set MCat.ActiveConnection = CurrentProject.Connection
Set MaProc = MCat.Procedures.Item(Nom)
MaCom.CommandText = SQL
Set MaProc.Command = MaCom
Set MCat = Nothing
Set MaProc = Nothing
Set MaCom = Nothing
Exit Sub
err:
If err.Number = 3265 Then MsgBox "impossible de trouver la requete " & Nom
End Sub
Exemple d'utilisation :
ModifierRequete "test", "select champ1 from matable"
lien : fr Tutoriel de JM Rabilloud sur ADOX

Comment supprimer une requête avec le modèle ADO ?
auteur : Tofalu
Tout d'abord ajouter les références suivantes dans votre projet :

Microsot ADO Ext 2.X for dll and security Microsof ActiveX Data Object 2.X Library

Ensuite, utiliser le code suivant :
Sub SupprimerRequete(Nom As String)
On Error GoTo err
Dim MCat As New ADOX.Catalog
Set MCat.ActiveConnection = CurrentProject.Connection
MCat.Procedures.Delete (Nom)
Exit Sub
err:
If err.Number = 3265 Then MsgBox "impossible de trouver la requete " & Nom
End Sub
Exemple d'utilisation :
SupprimerRequete "MaRequete"
lien : fr Tutoriel de JM Rabilloud sur ADOX

Comment rechercher un mot dans plusieurs champs dans une Requête ?
auteur : Tofalu
Ce code SQL permet de rechercher le mot toto dans les CHAMP1, CHAMP2 et CHAMP3
SELECT * 
FROM MATABLE
WHERE
  CHAMP1="toto"
  OR
  CHAMP2="toto"
  OR
  CHAMP3="toto"

precedent    sommaire    suivant   

Consultez les autres F.A.Q's


Les sources présentés sur cette pages sont libre de droits, et vous pouvez les utiliser à votre convenance. Par contre cette page de présentation de ces sources constitue une oeuvre intellectuelle protégée par les droits d'auteurs. Copyright ©2004  Developpez LLC. Tout droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à 3 ans de prison et jusqu'à 300 000 E de dommages et intérets. Cette page est déposée à la SACD.

Vos questions techniques : forum d'entraide Accueil - Publiez vos articles, tutoriels, cours et rejoignez-nous dans l'équipe de rédaction du club d'entraide des développeurs francophones. Nous contacter - Copyright 2000..2005 www.developpez.com