Création de source de données système avec VB6

Version imprimable

29/01/2008, 10h13
GodGives

Création de source de données système avec VB6

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!!!
29/01/2008, 10h22
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 ...)
29/01/2008, 10h24
sovo

Si tu parles du DSN, voila comment faire : Création de DSN
29/01/2008, 10h50
GodGives

Citation:

Envoyé par Vld44

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".

Citation:

Envoyé par Vld44

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!
29/01/2008, 10h56
GodGives

Citation:

Envoyé par sovo

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!
29/01/2008, 12h03
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
29/01/2008, 12h06
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?

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:

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&amp;  ' 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:

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:

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:

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

29/01/2008, 12h59
GodGives

Merci beaucoup!

Je vais essayer et vous laisser des nouvelles!!!
29/01/2008, 13h38
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?

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:

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:

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 ;)

29/01/2008, 14h33
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:

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!!!

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

Ou alors tu peux gere ca avec le On Error

Code:

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"

Code:

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.

29/01/2008, 15h21
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).
30/01/2008, 09h04
sovo

Citation:

Envoyé par GodGives

Maintenant, je crois que je suis satisfait!

N'oubli pas le Tag :resolu:

Citation:

Envoyé par GodGives

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.
30/01/2008, 10h12
GodGives

ok! Merci pour le conseil. je le ferai.