Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access SQL via dbUseODBC vers une Base SQLServer

SQL via dbUseODBC vers une Base SQLServer

1 réponse
Avatar
olaf
Bonjour,

Je d=E9sire supprimer une table =E0 partir d'Access par un=20
lien ODBC sur SQL Server 2000.
J'=E9cris ceci :

Public Function sql()
Dim wrkODBC As Workspace
Dim connectMTK As Connection

Set wrkODBC =3D CreateWorkspace("EspaceODBC", "", "",=20
dbUseODBC)
Set connectMTK =3D wrkODBC.OpenConnection
("ConnectMTK", , , "ODBC;DATABASE=3DMTK;UID=3D;PWD=3D;DSN=3DMTK")

connectMTK.Execute ("DROP TABLE dbo.TEMOIN;")

connectMTK.Close
wrkODBC.Close
End Function


et j'obtiens le message d'erreur "Erreur d'ex=E9cution=20
3146.ODBC-L'appel a =E9chou=E9" sur la ligne :
connectMTK.Execute ("DROP TABLE dbo.TEMOIN;")

Pourtant la DSN est bonne (tables li=E9es OK).

Une id=E9e ???

Merci d'avance
Signaler un problème avec ce contenu

1 réponse

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
Charles ERNST
A première vue pourquoi le pont-virgule ?


"olaf" a écrit dans le message de
news:363901c4af6d$3c3d8fa0$
Bonjour,

Je désire supprimer une table à partir d'Access par un
lien ODBC sur SQL Server 2000.
J'écris ceci :

Public Function sql()
Dim wrkODBC As Workspace
Dim connectMTK As Connection

Set wrkODBC = CreateWorkspace("EspaceODBC", "", "",
dbUseODBC)
Set connectMTK = wrkODBC.OpenConnection
("ConnectMTK", , , "ODBC;DATABASE=MTK;UID=;PWD=;DSN=MTK")

connectMTK.Execute ("DROP TABLE dbo.TEMOIN;")

connectMTK.Close
wrkODBC.Close
End Function


et j'obtiens le message d'erreur "Erreur d'exécution
3146.ODBC-L'appel a échoué" sur la ligne :
connectMTK.Execute ("DROP TABLE dbo.TEMOIN;")

Pourtant la DSN est bonne (tables liées OK).

Une idée ???

Merci d'avance