Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Windows Windows Serveur SQL Serveur Erreur 3251 lors de la création des vues ???

Erreur 3251 lors de la création des vues ???

2 réponses
Avatar
TF
Bonjour,
Librairies ADO déclarées dans le projet :
ADO 2.1 object library
ADO Ext 2.7 for DDL and security

Dans le projet ADP, je veux créer des vues dynamiquement et rafraîchir la
liste des vues

J'ai utilisé ce code en VBA :
====> début du code
Function AddView (Vname, Sql)
Dim cat As New ADOX.Catalog
Dim cdView As New ADODB.Command

Set cat.ActiveConnection = CurrentProject.Connection
Set cdView.ActiveConnection = CurrentProject.Connection
cdView.CommandText = Sql
=====> Erreur 3251==> cat.Views.Append V_name, cdView
=====> Erreur 3251==> cat.Views.Refresh

Set cat = Nothing
Set cdView = Nothing
End Function
<===== Fin du code

le code d'erreur obtenu : rerreur d'exécution : 3251 (le fournisseur ou
l'objet ne prend pas en charge cet opération)
Merci
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Philippe Pham Minh [MS]
Bonjour,

As-tu consulté la fiche technique ci-dessous?
How to Use ADO with Visual Basic
http://support.microsoft.com/?id2403

Philippe


"TF" a écrit dans le message de
news:40447e8f$0$5911$
Bonjour,
Librairies ADO déclarées dans le projet :
ADO 2.1 object library
ADO Ext 2.7 for DDL and security

Dans le projet ADP, je veux créer des vues dynamiquement et rafraîchir la
liste des vues

J'ai utilisé ce code en VBA :
====> début du code
Function AddView (Vname, Sql)
Dim cat As New ADOX.Catalog
Dim cdView As New ADODB.Command

Set cat.ActiveConnection = CurrentProject.Connection
Set cdView.ActiveConnection = CurrentProject.Connection
cdView.CommandText = Sql
=====> Erreur 3251==> cat.Views.Append V_name, cdView
=====> Erreur 3251==> cat.Views.Refresh

Set cat = Nothing
Set cdView = Nothing
End Function
<===== Fin du code

le code d'erreur obtenu : rerreur d'exécution : 3251 (le fournisseur ou
l'objet ne prend pas en charge cet opération)
Merci




Avatar
TF
Cette fiche de MS, n'a rien à voir avec mon problème!
Je peux extraire la liste des procédures stockées mais pascelle des vues?
Avec les vues j'ai l'erreur 3251
"Philippe Pham Minh [MS]" a écrit dans le
message de news:
Bonjour,

As-tu consulté la fiche technique ci-dessous?
How to Use ADO with Visual Basic
http://support.microsoft.com/?id2403

Philippe


"TF" a écrit dans le message de
news:40447e8f$0$5911$
> Bonjour,
> Librairies ADO déclarées dans le projet :
> ADO 2.1 object library
> ADO Ext 2.7 for DDL and security
>
> Dans le projet ADP, je veux créer des vues dynamiquement et rafraîchir


la
> liste des vues
>
> J'ai utilisé ce code en VBA :
> ====> début du code
> Function AddView (Vname, Sql)
> Dim cat As New ADOX.Catalog
> Dim cdView As New ADODB.Command
>
> Set cat.ActiveConnection = CurrentProject.Connection
> Set cdView.ActiveConnection = CurrentProject.Connection
> cdView.CommandText = Sql
> =====> Erreur 3251==> cat.Views.Append V_name, cdView
> =====> Erreur 3251==> cat.Views.Refresh
>
> Set cat = Nothing
> Set cdView = Nothing
> End Function
> <===== Fin du code
>
> le code d'erreur obtenu : rerreur d'exécution : 3251 (le fournisseur ou
> l'objet ne prend pas en charge cet opération)
> Merci
>
>