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

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

[sovo]

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

[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?