[VBA] connexion Access à une base SQL server

Bonjour à tous,

J'ai réussi à lier des tables de SQL server express 2008 vers Access 2003.
(fichier, données externes, lier les tables... Pilote fonctionnel et tables visibles... Mais j'ai dû les effacer...)

Mais mon tuteur ne veut pas qu'on lie directement les tables, mais qu'on le fasse par du code...
Pour Access, il n'aurait aucune table de reconnu, mais par des fonctions de connexions et de déconnexion, ilm arriverait à les atteindre.
ça me parait plausible, mais je n'arrive pas à trouver des fonctions de connexion et déconnexion, mais surtout, je ne vois pas comment lister des éléments de mes tables dans les éléments de mon formulaire...
Bref j'ai vraiment de mal et je viens de faire 2 jours de recherche infructueuses...
Toute aide serait la bienvenue...


Tof

Avec access, tu dois pouvoir extraire la chaine de connexion qui a été utilisée lors de la création de tes liaisons: déjà tu disposeras de la chaine de connexion.

il faut que tu utilises les classes style ODBC ou OLEDB pour créer un objet qui te permettra
=> d'établir une xonnexion à un serveur
=> d'en lister les bases de données
=> dpour chaque base d'en lister les tables
=> pour chaque table, d'en lister les colonnes
=> et de faire toutes les requete select/insert / update que tu veux

j'ai fait une source (en .Net) mais qui peut s'adapter (avec un peu de boulot) à ton problème

--------------------------------------------------
Toujours + de VB et d'API => APi @ le Loupe
http://apialaloupe.free.fr

J'ai commencé un petit bout de code...
J'ai déjà fait des classes de connexion, déconnexion et exécution en VB.NET mais mon code ne s'adapte pas...
J'ai un peu avancé, voici un peu de code :

Dim str_chaine As String
Dim cnADO As New ADODB.CONNECTION
Dim NomServeur As String
Dim NomBaseDeDonnées As String
NomServeur = "ECK"
NomBaseDeDonnées = "D:\Mes Documents\Site\App_Data\Database.mdf"
Set cnADO = New ADODB.CONNECTION

'Définition de la chaîne de connexion
str_chaine = "DRIVER={SQL Server Native Client 10.0};Server=" & NomServeur & ";Database=" & NomBaseDeDonnées & ";"

cnADO.Open str_chaine

MsgBox (cnADO.State)

ECK est le nom de mon pilote que j'ai créé (machine...) il est fonctionnel car en l'utilisant par liaison des tables, j'arrive à voir mes tables.
Seulement, j'ai un message d'erreur dans ce petit bout de code qui teste ma connexion :

Erreur d'execution '-2147467259 (80004005)':
[Microsoft][SQL Server Native Client 10.0]Fournisseur de canaux nommés : Impossible d'ouvrir une connexion à SQL Server [53]

Alors que le pilote devrait être fonctionnel...
Je cherche juste à afficher l'état de ma connexion.
Si T'as une idée...
Merci

Tof

as-tu bien configuré la surface d'exposition de sql serveur dans le logiciel de configuration

--------------------------------------------------
Toujours + de VB et d'API => APi @ le Loupe
http://apialaloupe.free.fr