| | 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 :  Tutoriel de JM Rabilloud sur ADOX
|
| | 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 : Tutoriel de JM Rabilloud sur ADOX
|
| | 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 : Tutoriel de JM Rabilloud sur ADOX
|
| | 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"
|
|
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.
|
