| 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.
|