Discussion :

[sodjinou]

bonjour!
je développe depuis peu en vb6 et j'ai toujours un problème qui m'empêche de faire le .exe de mes application.en fait j'utilise une source ODBC que je dois toujours recréer à chaque fois que je change de pc.j'aimerais savoir si il n'y a pas un moyen de créer automatiqement la source dès que je change de pc.Voici une séquence de codes de mon mondule:

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
25
Public maconnexion As ADODB.Connection
Public t_lapin As ADODB.Recordset
Public t_Cage As ADODB.Recordset
Public t_Produit As ADODB.Recordset
Public t_type As ADODB.Recordset
Public t_Administrer As ADODB.Recordset
Public t_Mode As ADODB.Recordset
 
Sub main()
Set maconnexion = New ADODB.Connection
 maconnexion.Open "Memoire"
maconnexion.CommandTimeout = 0
Formconnexion.Show
End Sub
 
Public Sub Charger(MonJeu As ADODB.Recordset, MaSource As String)
On Error GoTo fin
Set MonJeu = New ADODB.Recordset
MonJeu.CursorLocation = adUseClient
MonJeu.Open MaSource, maconnexion, adOpenKeyset, adLockOptimistic
Exit Sub
fin:
MsgBox "La connexion a échoué.", vbCritical, "LOGESCU"
End
End Sub

Merci

[Delbeke]

Bonsoir

Je ne sais plus trop d'ou sort le code suivant, donc mes excuses à l'auteur.

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
Option Explicit
 
 
Private Const REG_SZ = 1    'Constant for a string variable type.
Private Const HKEY_LOCAL_MACHINE = &H80000002
 
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias _
                        "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, _
                        phkResult As Long) As Long
 
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias _
                        "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, _
                        ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal _
                        cbData As Long) As Long
 
Private Declare Function RegCloseKey Lib "advapi32.dll" _
                       (ByVal hKey As Long) As Long
 
 
Private Sub CreateDsn( _
        DataSourceName As String, _
        DatabaseName As String, _
        Description As String, _
        DriverPath As String, _
        DriverName As String, _
        LastUser As String, _
        Regional As String, _
        Server As String)
 
 
   Dim lResult As Long
   Dim hKeyHandle As Long
 
   'Specify the DSN parameters.
 
   DataSourceName = "<the name of your new DSN>"
   DatabaseName = "<name of the database to be accessed by the new DSN>"
   Description = "<a description of the new DSN>"
   DriverPath = "<path to your SQL Server driver>"
   LastUser = "<default user ID of the new DSN>"
   Server = "<name of the server to be accessed by the new DSN>"
   DriverName = "SQL Server"
 
   'Create the new DSN key.
 
   lResult = RegCreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\ODBC\ODBC.INI\" & _
        DataSourceName, hKeyHandle)
 
   'Set the values of the new DSN key.
 
   lResult = RegSetValueEx(hKeyHandle, "Database", 0&, REG_SZ, _
      ByVal DatabaseName, Len(DatabaseName))
   lResult = RegSetValueEx(hKeyHandle, "Description", 0&, REG_SZ, _
      ByVal Description, Len(Description))
   lResult = RegSetValueEx(hKeyHandle, "Driver", 0&, REG_SZ, _
      ByVal DriverPath, Len(DriverPath))
   lResult = RegSetValueEx(hKeyHandle, "LastUser", 0&, REG_SZ, _
      ByVal LastUser, Len(LastUser))
   lResult = RegSetValueEx(hKeyHandle, "Server", 0&, REG_SZ, _
      ByVal Server, Len(Server))
 
   'Close the new DSN key.
 
   lResult = RegCloseKey(hKeyHandle)
 
   'Open ODBC Data Sources key to list the new DSN in the ODBC Manager.
   'Specify the new value.
   'Close the key.
 
   lResult = RegCreateKey(HKEY_LOCAL_MACHINE, _
      "SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources", hKeyHandle)
   lResult = RegSetValueEx(hKeyHandle, DataSourceName, 0&, REG_SZ, _
      ByVal DriverName, Len(DriverName))
   lResult = RegCloseKey(hKeyHandle)
 
End Sub