Discussion :

[jeeerome]

Bonjour,

Problème simple et certainement classique mais qui me resiste ...
Je souhaite importer des données depuis un serveur MS-SQL 2000 vers excel via vba (office 200).

La connexion à la base fonctionne, je parviens a également à faire des requetes vers la Bdd "pubs".

La ou ça bloque c'est lorque j'essai d'effectué des requetes vers d'autres bdd : Il me retourne un 'invalid objet' . J'ai verifier les droits utilisateur et normalement c'est Open bar ...

Après parcours du forum, il semblerai que mon pb pourrai etre résolu avec une syntaxe du type "monserveur.mabase.monID.matable"
Je n'arrive pas a valider cette hypothese car le nom de mon serveur comprend un '-' et je recolte de ce fait un jolie 'Incorrect syntaxe'

Mes qestions : Comment solutionner mon pb de '-'
Quelle ouverture de droit sur le serveur j'ai pu oublier ?


Désolé je n'ai pas le bout de code sous la main, il est resté au boulot mais promis si ca interesse quelqu'un je le poste demain matin

Merci

[rudib]

Bonjour,

Quelques éléments, au choix :
- depuis vba, tu ouvre une connexion ado ? Tu as une propriété .DefaultDatabase qui te permet de spécifier la base avant l'ouverture de la connexion.
- Tu peux essayer de lancer la commande "USE [mabase]" avec d'effectuer ta requête
- pour régler ton problème de -, utilise les délimiteurs []. Exemple :
[ma-base].dbo.matable.

[jeeerome]

Salut,

Merci de ton aide
J'ai implémenté tes propositions malheureusement sans succès

Voici mon code ...

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
 
Dim conn As ADODB.Connection
Dim table As ADODB.Recordset
Dim sql As String
 
 
Set conn = New ADODB.Connection
Set table = New ADODB.Recordset
 
With conn
     .Provider = "SQLOLEDB;Data Source=10.x.xxx.xx,1433; Network Library=DBMSSOCN;Initial Catalog=mabase;User ID=monID;Password=monpass;"
    .Open
    .DefaultDatabase = "mabase"
End With
 
 
sql = "USE [mabase];"
table.Open sql, conn
 
 
sql = "SELECT * from [monserveur].[mabase].[monid].matable];"
table.Open sql, conn
test = table.GetRows(1)
MsgBox test(1, 0)

Mon message d'erreur Invalid object name 'mabase'
sur la requete sql = "SELECT * from [monserveur].[mabase].[monid].matable];"

J'ai le sentiment que cela viens du serveur

Merci ...

[rudib]

resalut,

Qq pistes :
- DefaultDatabase doit être attribué AVANT l'ouverture de la connexion
- Enlève [monserveur], à moins que tu appelles un serveur lié. Tu es déjà sur le serveur. Comme quand tu appelles un numéro au téléphone, tu n'as pas besoin de faire d'abord ton numéro

[jeeerome]

- DefaultDatabase doit être attribué AVANT l'ouverture de la connexion

J'ai verifié cette commande est impossible si la connexion n'est pas ouverte

Comment m'assurer que j'ai les droits ?

[rudib]

Ok, désolé pour le DefaultDatabase, la doc en ligne que j'ai lue était probablement erronée. En vérifiant ailleurs les infos sont différentes.

Pour vérifier que tu as bien les droits, tu peux par exemple essayer de te connecter sur le serveur avec Query Analyzer ou SSMS, ton login et password, et de lancer ainsi les requêtes que tu veux exécuter.

[jeeerome]

Ca marche ...
C'était un problème de droits utilisateur : j'ai bidouillé et hop ...
Le pb c'est que j'ai pas compris ce que j'ai fait !
En tout cas merci pour l'aide