Connexion Access à SQL server par du code

**Kalion** · 17/03/2009, 14h27

(Re) Bonjour à tous,

J'ai réussi à lier mes tables Sql server 2008 à Access, MAIS mon chef de projet ne veut pas lier les tables... Il veut ouvrir et fermer une connexion par du code et pouvoir ainsi changer le nom du serveur et de la base de données par la suite.

Mais j'ai vraiment du mal avec les différents codes trouvés.
de 1 j'ai pas réussi à avoir une connexion qui marche,
de 2 je ne vois pas comment lier des éléments de mes form aux tables qu'Access ne voit même pas...

Si quelqu'un arrive à comprendre ce que je raconte, j'aimerais bien trouver un tutoriel ou des exemples car je patauge depuis ce matin...

Merci à tous!

**Domi2** · 17/03/2009, 15h23

Bonjour,

Ce tutoriel de LedZeppII, Connexion ODBC, peut-il t'être utile ?

Domi2

**Kalion** · 17/03/2009, 15h45

A vue d'oeil c'est exactement ce que je cherchais!!
Bref j'essai de coder et je reviens en cas de problème!!
Merci beaucoup!!

**Kalion** · 17/03/2009, 16h29

Je suis pas sur que ce soit ce que je cherche...
Soit j'ai pas tout compris (fatigue oblige), soit j'ai l'impression que ce code permet de lier les tables par le code.
Hors je ne veux pas lier les tables mais agir dessus par le code sans qu'Access ne les connaissent...
De plus je veux en retirer des informations pour l'affichage de mes éléments...
Je change un peu de boulot, j'y arrive plus pour aujourd'hui!!
Je reprendrais demain matin!

**LedZeppII** · 17/03/2009, 21h40

Bonsoir,

Regardes du côté des recordsets ADO.

Tu as des exemples de chaînes de connexion OLE DB ici : Connection strings for SQL Server 2008.
Ne sont utiles, que les exemples sous "SQL Server Native Client 10.0 OLE DB Provider".

Si tu n'as pas le fournisseur de données "SQL Native Client" tu dois pouvoir utiliser le fournisseur "SQL Server"
-> Connection strings for SQL Server 2000

A+

**Kalion** · 18/03/2009, 09h36

J'avance petit à petit...
J'ai mon pilote installé sur mon poste (je ferait une fonction de création automatique de pilote pour les autres postes plus tard...)
J'essai de me connecter simplement à ma BDD mais j'ai un message d'erreur...

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
 
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 vous avez une idée...

Merci

**Kalion** · 18/03/2009, 10h30

En suivant le tutoriel, j'arrive à créer des requêtes et voir mes tables sans les lier...
Le problème reste toujours le même car je le fais par Access et qu'il enregistre le nom de ma base...(avec le chemin)
Hors l'application est voué à etre déplacée et donc il faudrait que je modifie toutes mes requêtes...
Je ne comprends toujours pas pourquoi mon code ne fonctionne pas...
Si vous avez des idées...
Merci

**Kloun** · 18/03/2009, 10h48

Je crois que tu fais fausse route.
Server, c'est le nom de ton SQL Server (nom ou IP).
Database, c'est le nom de ta base sur ton SQL Server.
Tu dois pouvoir rajouter le login et le MdP dans ta chaine de connexion.

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
Public Sub ADOInitConnection()
    On Error GoTo Erreur
    Set gADO_Connection = New ADODB.Connection
    SysCmd acSysCmdSetStatus, "Connecting " & lStr_UID & " ..."
 
    If lStr_Serveur = "DEV" Then
        gADO_Connection.ConnectionString = "Driver={SQL Server};server=YYY.YYY.YYY.YYY;UID=" & lStr_UID & ";PWD=" & lStr_PWD & ";database=" & lStr_Database 
    Else
        gADO_Connection.ConnectionString = "Driver={SQL Server};server=XXX.XXX.XXX.XXX;UID=" & lStr_UID & ";PWD=" & lStr_PWD & ";database=" & lStr_Database 
    End If
    gADO_Connection.ConnectionTimeout = 10
    gADO_Connection.CommandTimeout = 10000
    gADO_Connection.Open
    SysCmd acSysCmdSetStatus, "Connection OK."
    Exit Sub
 
Erreur:
    SysCmd acSysCmdSetStatus, Now & " - Connection KO. Attente de " & cINT_NB_MINUTES_ATTENTE_AVANT_TEST_RECONNECTION & " minutes avant nouveau test."
    Attendre 60 * cINT_NB_MINUTES_ATTENTE_AVANT_TEST_RECONNECTION
    SysCmd acSysCmdSetStatus, " "
    ADOInitConnection
End Sub

**Kalion** · 18/03/2009, 11h20

Code :

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

str_chaine = "DSN=" & NomServeur & ";UID=" & NomUID & ";Trusted_Connection=Yes;DATABASE=" & NomBaseDeDonnées & ";"

J'ai modifié cette ligne en ajoutant DSN comme étant mon pilote, UID celui généré automatiquement lors de la création de ma requête...
Je suis connecté!!
Bref, je continue à travaillé dessus, et je reviens vers vous si je rencontre d'autres problèmes...
Si celà intéresse quelqu'un, j'ai créé une fonction qui installe automatiquement le pilote sur la machine... Je peux le mettre ici!!

**Kalion** · 18/03/2009, 12h58

Je me suis arrété dans le développement sur Access suite à un problème au niveau de ma deuxième application (en asp sur visual web developper).
En effet je n'arrive plus à me connecter avec mon compte ASP.NET à ma base de données...
Se pourrait-il que mon pilote Access ait modifié le pilote de connexion ASP?
Dans Visual Studio j'arrive à accéder à ma base mais en lançant le site développé, j'ai un message d'erreur impossible de se connecter à la base de données...
Merci

**Tonioyo** · 18/03/2009, 13h03

Bonjour,

Déjà concernant la connection, il y a effectivement 2 modes possibles :

1- Par DSN (Nécessite que liéer le pilote à une base de donnée)
DSN est une résolution de nom qui est faite par windows, je fait référence à l'outils dans gestion d'administration dans le panneau de controle. Le probleme c'est qu'il faut ajouter une ligne par base et apparement c'est pas le but du jeu

2- Par Driver
il y avait la bonne ligne de connection au début avec "DRIVER={SQL Server Native Client 10.0};" D'ailleurs je crois qu'il ne faut pas mettre la version après client il faut vérifier dans le panneau de configuration->Gestion Admin -> OBDC -> onglet Pilotes OBDC (voir la fin de la liste pour le driver SQL, il y en a 2 un pour le serveur un pour le client et là en l'occurence il faut utiliser celui d'un client)

Après il faut mettre les bons paramètres pour la base de donnée avec la balise "DATABASE" et pareil pour le login et le mot de passe. Tous ces paramètres sont ceux de SQL Serveur.

PS: Pour la balise "SERVER" c'est quelquechose du genre "Localhost\NomDel'instanceSQL".

**Kalion** · 18/03/2009, 13h52

Avant de continuer, aurais-tu une idée du pourquoi ma BDD n'est plus reconnue?
Elle ne l'est plus ni par mon site internet, ni par mon appli access (et le pilote de liaison de table qui était pourtant fonctionnel avant...)
Je ne vois pas ce qui a été modifié donc je suis un peu perdu...
J'ai essayé de créer une autre BDD et pareil mes applis n'y ont pas accès...(elles sont visibles et modifiables sous Visual studio mais pas sur la page internet)...

**Kalion** · 18/03/2009, 14h16

Rectification, Access se connecte bien...
Je vais poster ailleurs pour mon problème avec Visual Studio...
Mais ça me parait étrange qu'il n'arrive plus à se connecter... Comme si il n'avait plus les droits pour...

**Tonioyo** · 19/03/2009, 10h37

En fait quand SQL Server s'installe il faut faire bien attention à toutes les options car certaines définissent la visibilitée de la base de données pour les autres applications et pour les autres ordinateurs. J'avoue que certaines options sont tordues.

**Kalion** · 23/03/2009, 09h19

Non, ce n'était pas à l'installation qu'il y a eu un problème, mais par la suite...
Je fais une opération désintallation et réinstallation de SQL server. Tout marchait en fait sur mon instance 2005 alors que je pensais être sous 2008.
Donc je désinstale toutes mes versions pour ne tourner que sur 2005 qui semble mieux fonctionner.
Je reviens vers vous par la suite.
Merci

**Kalion** · 23/03/2009, 11h14

Bonjour à tous en ce début de semaine.
Bon, j'ai tout désinstallé, réinstallé SQL server 2005 express et là, Visual Studio me dit que ma base de données est de version 655 et que mon serveur ne prenait en charge que jusqu'à la version 612...
Donc je décide de faire une mise à niveau de SQL server 2005 vers 2008 express...
Et là, nouveau message d'erreur : "Cette version de serveur n'est pas prise en charge. Seuls les serveurs jusqu'à Microsoft SQL Server 2005 sont pris en charge."

Je ne sais plus comment connecter ma base...
J'ai essayé un pilote user basé sous "SQL Server native client 10.0" avec ODBC, là, la connexion se fait mais lorsque j'essai de voir mes tables j'ai ce message d'erreur :
"ERROR [42000][Microsoft][SQL Server Native Client 10.0][SQL Server] Impossible de trouver le server 'D/\le_chemin_de_ma_base" dans sysservers. Vérifiez que le nom du serveur correct a été spécifié. Si nécessaire, exécutez la procédure stockée sp_addlinkedserver pour ajouter ce serveur à sysservers."

Le "hic" est que je ne sais pas comment l'executer et si ça va corriger mon problème...
Si quelqu'un aurait une solution pour me sortir de tout ça...
Merci à tous!!

**LedZeppII** · 23/03/2009, 21h07

Bonjour,

Il se peut que la base de données ne soit pas attachée au serveur.
Après une installation seules les bases systèmes (master, msdb, model, tempdb) sont attachées.

Si tu n'as pas Sql Server Management Studio, tu peux le faire en ligne de commande avec OSQL.EXE,
sur la machine sur laquelle s'exécute SQL Server.

Authentification SQL server et utilisateur sa

Code :

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

"C:\Program Files\Microsoft SQL Server\100\Tools\Binn\OSQL.EXE" -Usa -Pmot-de-passe-de-sa

Authentification Windows

Code :

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

"C:\Program Files\Microsoft SQL Server\100\Tools\Binn\OSQL.EXE" -E

Exemple pour lister les bases attachées au serveur.

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
1> select name, type_desc, physical_name, state_desc from master.sys.master_file
s where physical_name like '%mdf'
2> go
 name


        type_desc
        physical_name






        state_desc
 -------------------------------------------------------------------------------

        -------------------------------------------------
        ------------------------------------------------------------
        ------------------------------------------------------------------------

        ------------------------------------------------------------------------

        ------------------------------------------------------------------------

        --------------------------------------------
        ------------------------------------------------------------
 master


        ROWS
        c:\MSSQL2008\MSSQL10.SQLEXPRESS\MSSQL\DATA\master.mdf






        ONLINE
 tempdev


        ROWS
        c:\MSSQL2008\MSSQL10.SQLEXPRESS\MSSQL\DATA\tempdb.mdf






        ONLINE

Exemple pour attacher la base C:\MSSQL\Data\MaBDD.mdf.
Il vaut mieux faire une copie de sauvegarde des fichiers MaBDD.mdf et MaBDD_log.ldf au préalable,
car comme on le voit ci-dessous, le serveur effectue une mise à niveau des fichiers (SQL Server 2000).

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
1> sp_attach_db 'MaBDD', 'C:\MSSQL\Data\MaBDD.mdf', 'C:\MSSQL\Data\MaBDD_log.ldf'
2> go
Conversion de la base de données 'MaBDD' de la version 539 à la version
actuelle 655.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 539 à
la version 551.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 551 à
la version 552.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 552 à
la version 611.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 611 à
la version 621.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 621 à
la version 622.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 622 à
la version 625.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 625 à
la version 626.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 626 à
la version 627.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 627 à
la version 628.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 628 à
la version 629.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 629 à
la version 630.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 630 à
la version 631.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 631 à
la version 632.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 632 à
la version 633.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 633 à
la version 634.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 634 à
la version 635.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 635 à
la version 636.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 636 à
la version 637.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 637 à
la version 638.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 638 à
la version 639.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 639 à
la version 640.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 640 à
la version 641.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 641 à
la version 642.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 642 à
la version 643.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 643 à
la version 644.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 644 à
la version 645.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 645 à
la version 646.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 646 à
la version 647.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 647 à
la version 648.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 648 à
la version 649.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 649 à
la version 650.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 650 à
la version 651.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 651 à
la version 652.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 652 à
la version 653.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 653 à
la version 654.
Base de données 'MaBDD' exécutant l'étape de mise à jour de la version 654 à
la version 655.
1>

Autre chose. Par défaut le serveur n'est accessible que sur la machine qui l'exécute.
Dans la chaîne de connexion, il se peut que "Server=NomServeur\NomInstance" ne fonctionne pas.
Essayer "Server=.\NomInstance"

Page de téléchargement de Microsoft® SQL Server® 2008 Express with Tools,
comprenant SQL Server 2008 Express et la version de base de SQL Server 2008 Management Studio.
L'outil d'administration visuel (SSMS) facilite grandement la vie.

Bon courage.

**Kalion** · 25/03/2009, 13h09

Merci beaucoup LedZeppII pour tout ce code.
J'avais résolu mon problème d'une toute autre manière.

En reprenant un peu, parce qu'il y a eu du mouvement : VS ne pouvait pas communiquer avec SQL server 2008 (un problème de pilote...)

Ensuite, en utilisant d'autres pilotes (et avec ta solution) ça aurait fonctionné mais j'ai préféré réinstaller SQL server 2005 avec management studio. Je n'avais pas encore vu ta réponse.

Bref, j'ai récupéré sur une sauvegarde que j'avais effectué ma BDD qui n'avait pas été modifiée en format 2008. Donc j'ai pu la relier à SQL server 2005 avec management studio et tout est rentré dans l'ordre.

De plus, mes pilotes sous Access fonctionnent sans problème maintenant. (Je pense que j'ai essayé de me connecter à ma base avec des pilotes de 2008 alors que je tournais sous 2005, là gros "? " mais maintenant tout fonctionne avec le pilote "SQL server"...

Pour conclure, si quelqu'un rencontre un problème du même type j'espère que ce post va l'aider.
Merci à tous de votre participation. Si quelqu'un a besoin de mon code je peux lui donner.

Bonne journée à tous!

Connexion Access à SQL server par du code

VBA Access

Discussions similaires

Partager

Partager