j'attaque un serveur "sql server" et je veux faire des querydef.
Voici le code :
Dim db As Database
Dim ws As Workspace
Dim qdf As QueryDef
Set ws = CreateWorkspace("", "Admin", "", dbUseJet)
Set db = ws.OpenDatabase("toto", dbDriverNoPrompt, False,
"ODBC;DATABASE=toto;UID=sa;PWD=sa;DSN=toto")
Set qdf = db.CreateQueryDef("", "delete * from zozo")
qdf.Execute
j'ai le message d'erreur "Impossible de supprimer dans les tables spécifiés"
si je fais un update il me dit "Impossible de modifier etc..."
quand je le fais sur mon serveur sql en locale je n'ai pas de prob. Pourtant
je suis connecté en sa sur le serveur sql sur lequel je veux lancer le query.
Ce n'est pas un prob de tables liés ou d'autres choses du meme genre puisque
le query fonctionne sans prob depuis analyseur de requete de sql server.
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
Sylvain Lafontaine
À vue de nez, je dirais que c'est parce que votre QueryDef n'est pas du type SQL Passthrough. Essayez de créer une requête de type SQL-Passthrough se connectant à votre base de données SQL-Server et contentez-vous après de modifier uniquement la valeur de la chaîne de caractères sql qu'elle contient. Vous pouvez également essayer de créer au grand complet une requête SQL-Passthrough mais il me semble que les paramètres sont différents.
Finalement, l'utilisation des objets ADO peut s'avérer une alternative avantageuse.
-- Sylvain Lafontaine, ing. MVP - Technologies Virtual-PC
"Julian Alvarez" wrote in message news:
Bonjour,
j'attaque un serveur "sql server" et je veux faire des querydef. Voici le code :
Dim db As Database Dim ws As Workspace Dim qdf As QueryDef
Set ws = CreateWorkspace("", "Admin", "", dbUseJet) Set db = ws.OpenDatabase("toto", dbDriverNoPrompt, False, "ODBC;DATABASE=toto;UID=sa;PWD=sa;DSN=toto") Set qdf = db.CreateQueryDef("", "delete * from zozo") qdf.Execute
j'ai le message d'erreur "Impossible de supprimer dans les tables spécifiés" si je fais un update il me dit "Impossible de modifier etc..."
quand je le fais sur mon serveur sql en locale je n'ai pas de prob. Pourtant je suis connecté en sa sur le serveur sql sur lequel je veux lancer le query. Ce n'est pas un prob de tables liés ou d'autres choses du meme genre puisque le query fonctionne sans prob depuis analyseur de requete de sql server.
Quelqu'un a til une idee.
Merci.
À vue de nez, je dirais que c'est parce que votre QueryDef n'est pas du type
SQL Passthrough. Essayez de créer une requête de type SQL-Passthrough se
connectant à votre base de données SQL-Server et contentez-vous après de
modifier uniquement la valeur de la chaîne de caractères sql qu'elle
contient. Vous pouvez également essayer de créer au grand complet une
requête SQL-Passthrough mais il me semble que les paramètres sont
différents.
Finalement, l'utilisation des objets ADO peut s'avérer une alternative
avantageuse.
--
Sylvain Lafontaine, ing.
MVP - Technologies Virtual-PC
"Julian Alvarez" <JulianAlvarez@discussions.microsoft.com> wrote in message
news:656E1E77-42A4-4655-8A7B-C4BF73A66C13@microsoft.com...
Bonjour,
j'attaque un serveur "sql server" et je veux faire des querydef.
Voici le code :
Dim db As Database
Dim ws As Workspace
Dim qdf As QueryDef
Set ws = CreateWorkspace("", "Admin", "", dbUseJet)
Set db = ws.OpenDatabase("toto", dbDriverNoPrompt, False,
"ODBC;DATABASE=toto;UID=sa;PWD=sa;DSN=toto")
Set qdf = db.CreateQueryDef("", "delete * from zozo")
qdf.Execute
j'ai le message d'erreur "Impossible de supprimer dans les tables
spécifiés"
si je fais un update il me dit "Impossible de modifier etc..."
quand je le fais sur mon serveur sql en locale je n'ai pas de prob.
Pourtant
je suis connecté en sa sur le serveur sql sur lequel je veux lancer le
query.
Ce n'est pas un prob de tables liés ou d'autres choses du meme genre
puisque
le query fonctionne sans prob depuis analyseur de requete de sql server.
À vue de nez, je dirais que c'est parce que votre QueryDef n'est pas du type SQL Passthrough. Essayez de créer une requête de type SQL-Passthrough se connectant à votre base de données SQL-Server et contentez-vous après de modifier uniquement la valeur de la chaîne de caractères sql qu'elle contient. Vous pouvez également essayer de créer au grand complet une requête SQL-Passthrough mais il me semble que les paramètres sont différents.
Finalement, l'utilisation des objets ADO peut s'avérer une alternative avantageuse.
-- Sylvain Lafontaine, ing. MVP - Technologies Virtual-PC
"Julian Alvarez" wrote in message news:
Bonjour,
j'attaque un serveur "sql server" et je veux faire des querydef. Voici le code :
Dim db As Database Dim ws As Workspace Dim qdf As QueryDef
Set ws = CreateWorkspace("", "Admin", "", dbUseJet) Set db = ws.OpenDatabase("toto", dbDriverNoPrompt, False, "ODBC;DATABASE=toto;UID=sa;PWD=sa;DSN=toto") Set qdf = db.CreateQueryDef("", "delete * from zozo") qdf.Execute
j'ai le message d'erreur "Impossible de supprimer dans les tables spécifiés" si je fais un update il me dit "Impossible de modifier etc..."
quand je le fais sur mon serveur sql en locale je n'ai pas de prob. Pourtant je suis connecté en sa sur le serveur sql sur lequel je veux lancer le query. Ce n'est pas un prob de tables liés ou d'autres choses du meme genre puisque le query fonctionne sans prob depuis analyseur de requete de sql server.
