Discussion :

[nnn2050]

Bonjour,

Maintenant je travaille sur une mission Migration des données de Access à SQL Server 2000. J'ai déjà migré tous les tables et données, maintenant il faut modifier toutes les codes de connections VBA qui reste dans la partie Acces.

Je voudais créer la connexion ODBC-ADO dans VBA, dans ce cas-là il faut créer un utilisateur dans ma database de SQL Server, afin que après tous les utilisateurs peuvent intérroger la base par ce login, mais je n'arrive pas créer les nouveaux utilisateurs, je ne sais pas je manque le droit ou ma méthode de la création n'est pas bonne?

Actuellement, j'ai tous les droits dans ma database, et mon accès de BD lie automatiquement avec l'OS Windows.

De plus, dans VBA, pour connecter SQL Server, qu'est-ce que les codes standards?

Merci

[WOLO Laurent]

1-Configurer un DSN (MyDSN)
2-Dans un module de code, créer une variable global

Code :

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

Global gCn as ADODB.Connection

3-Créer une petite fonction pour ouvrir la connection

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function DBConnect() as Long
         DBConnect=0 'Pas d'érreur
        gCn.ConnectionString="DSN=MyDSN"
        gCn.ConnectionTimeOut=5    '5 secondes par excemples.
        On error goto Errhandler
        gCn.Open
 
Exit sub
ErrHandler:
         DBConnect=Err.Number
End Function

4-Appeler cette fonction dans une procedure

5-Utiliser la variable Global

Code :

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

gCn.execute("MaRequete")

[nnn2050]

Elle resemble c'est une bonne méthode, mais je ne connais pas trop DSN, est-ce qu'il y a des docs pour la configuration de DSN?

[WOLO Laurent]

Il me faut vraiment du temps pour chercher.

Mais vous allez dans
Paneau de configuration--->Outils d'administrations--->Sources de données ODBC.
Dans l'onglet Source de données Systeme, Cliquez sur Ajouter
Choisissez le driver SQL Server puis Cliquez sur Terminer pour Completer la procédure.

[nnn2050]

Ok, ca marche, merci.