Discussion :

[GodGives]

Bonjour!

j'aimerais savoir s'il est possible de créer une source de données système à partir d'instructions vb6!

Merci d'avance!!!

[Vld44]

Hum, au risque de poser une question débile, qu'appelles-tu une source de données système ?

Avec VB tu peux générer n'importe quel fichier binaire qui contient les données que tu veux mettre dedans, de quelque nature qu'elles soient...

edit : très intéressante ta citation, et c'est curieux j'étais entrain de me dire la même chose ce matin (analogie au chef de projet ...)

[sovo]

Si tu parles du DSN, voila comment faire : Création de DSN

[GodGives]

Hum, au risque de poser une question débile, qu'appelles-tu une source de données système ?

Je ne sais comment l'expliquer mais! vas dans le module exécuter et tapes "odbcad32.exe", ensuite vas sur l'onglet "source de données système".

edit : très intéressante ta citation, et c'est curieux j'étais entrain de me dire la même chose ce matin (analogie au chef de projet ...)

Merci bien! Je l'ai connue en classe terminale (il y 5 ans), et je ne l'ai jamais oubliée!

[GodGives]

Si tu parles du DSN, voila comment faire : Création de DSN

Ce que j'y ai trouvé de traite que les bases de données Access! moi je suis en sql server!

[Vld44]

Alors là intuitivement, je dirais : WMI ...
Par API ça m'étonnerait ; au pire, voir l'utilisation de ton exe en ligne de commande si c'est possible

[GodGives]

Ok! merci

Si je dois me passer des sources de données systèmes alors que j'aimerais créer une connexion à une base sql server, que peut contenir la propriété connectionstring de cette connexion?

[sovo]

Tu doit donc l'adapter a ton besoin.

Pour SQL Server voila ce que tu doit faire

Dans les declaration Géneral (ou un module)

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
 
Option Explicit
 
'Constant Declaration
Private Const Add_DSN = 1        ' Ajouter une source de Données
Private Const Cong_DSN = 2     ' Configurer une source de Données
Private Const Dell_DSN = 3     ' Supprimer une source de Données
Private Const vbAPINull As Long = 0&  ' NULL Pointer
 
'Function Declare
 
Private Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" _
          (ByVal hwndParent As Long, ByVal fRequest As Long, _
          ByVal lpszDriver As String, ByVal lpszAttributes As String) _
          As Long

Pour Ajouter un DSN

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
 
Private Sub AddDSN()   
   Dim Result As Long
   Dim Driver As String
   Dim Attrib As String
 
   Driver = "SQL Server"
   Attrib = "SERVER=Nom_Server" & Chr$(0)
   Attrib = Attrib & "DESCRIPTION=Desc_DSN" & Chr$(0)
   Attrib = Attrib & "DSN=Nom_DSN" & Chr$(0)
   Attrib = Attrib & "DATABASE=Nom_BD" & Chr$(0)
   Result = SQLConfigDataSource(vbAPINull, Add_DSN, _
       Driver, Attrib)
   If Result Then
       MsgBox "DSN Crée"
   Else
       MsgBox "Création Echouée"
   End If
End Sub

Pour Supprimer une DSN

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
 
Private Sub DelDSN()
   Dim Result As Long
   Dim Driver As String
   Dim Attrib As String
 
   Driver = "SQL Server"
   Attrib = "SERVER=Nom_Server" & Chr$(0)
   Attrib = Attrib & "DESCRIPTION=Desc_DSN" & Chr$(0)
   Attrib = Attrib & "DSN=Nom_DSN" & Chr$(0)
   Attrib = Attrib & "DATABASE=Nom_BD" & Chr$(0)
   Result = SQLConfigDataSource(vbAPINull, Del_DSN, _
      Driver, Attrib)
   If Result Then
       MsgBox "DSN Supprimé"
   Else
       MsgBox "Suppression Echouée"
   End If					
End Sub

Pour Configurer une DSN (Par exemple de passe a ACCESS)

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
 
Private Sub ConfDSN()
   Dim Result As Long
   Dim Driver As String
   Dim Attrib As String
 
   Driver = "Microsoft Access Driver (*.mdb)" & Chr$(0) 
   Attrib = "DSN=MS Access Perso" & Chr$(0) 
   Result = SQLConfigDataSource(vbAPINull, Conf_DSN, _
      Driver, Attrib)
   If Result Then
       MsgBox "DSN Modifier"
   Else
       MsgBox "Modification Echouée"
   End If				
End Sub

[GodGives]

Merci beaucoup!

Je vais essayer et vous laisser des nouvelles!!!

[GodGives]

Le code arrive à créer la source de données mais sans l'ID de connexion et le mot de passe du compte sql server!

Comment puis-je insérer l'ID et le mot de passe puisque j'utilise l'authentification sql server?

[sovo]

Je n'ai jamais essayer, donc je vais juste te donner des pistes.

Essai en ajoutant ceci Uid=myUsername Pwd=myPassword aux attributs ce qui devrais donner :

Code :

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

1
2
3
4
5
6
7
 
Attrib = "SERVER=Nom_Server" & Chr$(0)
Attrib = Attrib & "DESCRIPTION=Desc_DSN" & Chr$(0)
Attrib = Attrib & "DSN=Nom_DSN" & Chr$(0)
Attrib = Attrib & "DATABASE=Nom_BD" & Chr$(0)
Attrib = Attrib & "Uid=Nom_User" & Chr$(0)
Attrib = Attrib & "Pwd=Mot_pass" & Chr$(0)

Ou alors plutot User Id=myUsername Password=myPassword

Code :

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

1
2
3
4
5
6
7
 
Attrib = "SERVER=Nom_Server" & Chr$(0)
Attrib = Attrib & "DESCRIPTION=Desc_DSN" & Chr$(0)
Attrib = Attrib & "DSN=Nom_DSN" & Chr$(0)
Attrib = Attrib & "DATABASE=Nom_BD" & Chr$(0)
Attrib = Attrib & "User id=Nom_User" & Chr$(0)
Attrib = Attrib & "Password=Mot_pass" & Chr$(0)

Voila quelques idee qui me sont passe par la tete.
Desole de pas avoir pu t'aider d'avanta. Je vais faire une recherche (essai d'en faire autant) et je te tient au courant

[GodGives]

Cela n'a pas marché mais j'ai réussi à le faire autrement!

J'ai créé la source de données sans ID et mot de passe avec le premier code! ensuite, au moment où je l'utilise, je l'ouvre en lui servant l'ID et le mot de passe comme ceci:

Code :

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

MaConnection.Open "nom_dsn", "ID", "mot_de_passe"

Lorsque l'ID et le mot de passe sont corrects, j'ouvre la connexion et je l'utilise avec un grand sourire. Mais quand ces informations sont erronnées, il y a un message d'erreur!

Pour éviter ce message d'erreur, j'aimerais savoir s'il est possible de connaître l'état de l'ouverture de la connexion!

Merci beaucoup!!!

[sovo]

oui tu peux bien passer par l'etat de la connexion (MaConnexion.staut)

Ou alors tu peux gere ca avec le On Error

Code :

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

1
2
3
4
 
On Error Resume Next  'la il y aura l'erreur ca ne va pas s'arreter
                               'pas bon a mon gout car l'utilisateur ne va pas le savoir 
MaConnection.Open "nom_dsn", "ID", "mot_de_passe"

ou

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
On Error goto Fin
MaConnection.Open "nom_dsn", "ID", "mot_de_passe"
...
...
...
 
'a mettre a la fin de la procedure (ou fonction) 
Fin:
MsgBox "Compte ou mot de passe incorect"
End Sub (Ou Function)

Voila.

[GodGives]

C'est vrai! il y a cette instruction!

C'est assez bête! j'aurai du y penser!

Maintenant, je crois que je suis satisfait!

Merci beaucoup sovo! comme ton nom peut le signifier dans une langue quelconque, t'as été mon sauveur aujourd'hui.

Comment puis-faire pour connaitre les utilisateurs connectés à ma base de données? (à partir de VB ou de SQL Server).

[sovo]

Maintenant, je crois que je suis satisfait!

N'oubli pas le Tag

Comment puis-faire pour connaitre les utilisateurs connectés à ma base de données? (à partir de VB ou de SQL Server).

Je te conseille d'ouvrir une autre discussion.

[GodGives]

ok! Merci pour le conseil. je le ferai.