Discussion :

[CAMIC]

Bonjour à tous,

Voila plusieurs heures que j'essaie de rajouter ou modifier des procédures sur un serveur SQL 2005.

J'arrive bien à me connecter à la base de données, de lire la liste des tables et la liste des procédures via ADOX.

Mais au moment ou j'aimerais executer ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
    Dim cmd As New ADODB.Command
    Set cmd.ActiveConnection = cnx
    cmd.CommandText = "select count(*) from aaaa;"
 
    Dim cat As New ADOX.Catalog
    Set cat.ActiveConnection = cnx
 
    ' Create the new Procedure
    cat.Procedures.Append "CustomerById", cmd

La dernière ligne provoque l'ouverture d'une boite de dialogue qui dit :

Cette interface n'est pas prise en charge

et quand je veux une vue
Qu'est-ce qui coince?

De même quand je veux rajouter une vue la boite de dialogue dit :

Object or provider is not capable of performing request operation

J'ai essaié plusieurs connection string sans succès

Edit: en fait, j'ai un SQL server express 9 installé sur mon poste

De plus, pourquoi la liste des procédures indique des noms avec ";1" à la fin?
Merci d'avance

[Zabriskir]

Bonjour,

Pour résoudre votre problème, vous pouvez peut-être vous inspirer de cette page.

Notamment cette fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Function CreateProcedureAdox()
    'Purpose:   Create a parameter query or action query using ADOX.
    Dim cat As New ADOX.Catalog
    Dim cmd As New ADODB.Command
    Dim strSql As String
 
    'Initialize.
    cat.ActiveConnection = CurrentProject.Connection
 
    ''Assign the SQL statement to the CommandText property.
    strSql = "PARAMETERS StartDate DateTime, EndDate DateTime; " & _
        "DELETE FROM tblAdoxBooking " & _
        "WHERE BookingDate Between StartDate And EndDate;"
    cmd.CommandText = strSql
 
    'Append the Command to the Procedures collection of the catalog.
    cat.Procedures.Append "qryAdoxDeleteBooking", cmd
 
    'Clean up.
    Set cmd = Nothing
    Set cat = Nothing
    Debug.Print "Procedure created."
End Function

@+

[alassanediakite]

Salut
Je pense que le code de Zabriskir crée plutôt une requête paramétrée access et non une procédure stockée SQLSERVER.
Pour un projet ADP, tu peux faire...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CurrentProject.Connection.Execute ("create procedure essai(@n varchar(20)) as <le code de la procédure>")

@+

[Zabriskir]

Je pense que le code de Zabriskir crée plutôt une requête paramétrée access et non une procédure stockée SQLSERVER.

Oui effectivement, j'ai posté un peu trop vite !

@+

[CAMIC]

Salut à tous,

J'ai bien réussir à obtenir ce que je voulais en abandonnant ADOX, sauf, pour le moment afin d'obtenir la liste des tables, mais j'envissage de le faire via SQl.

ADOX ne "fonctionne" qu'avec des fichiers access. Ce qui ne parait pas évident en parcourant le WEB!

J'ai fait comme l'a bien dit alassanediakite via des requêtes SQL.