[ADO] Rendere stringadi connessione parametrica (era: accesso al server)

[frenk]

ciao ragazzi, mi servirebbe una informazione...
Questa è la mia stringa di connessione:
data source=NOME_SERVER;initial catalog=NOME_DB;persist security info=False;user id=USER;pwd=PWD;workstation id=WORKSTATION;packet size=****

Se io creo il setup e passo l'exe a un mio collega, tutto funziona correttamente.
Se però ha bisogno di cambiare il nome del server, l'id o la oassword per qualunque motivo, come faccio a lasciargli un file di configurazione dove può 'interagire' con il codice della connessione???
Spero di essermi spiegato bene....

[biste]

Puoi salvare le informazioni su un file, oppure nel registro di sistema (funzioni SaveSettings e GetSettings)

HTH

[sebamix]

Puoi memorizzare la stringa di connessione nel registry o in un file e quindi lasciare che sia l'utente finale a crearsela con l'apposita finestra.

Metti questo codice in una classe:

Option Explicit

Public Function EditCnn(ByVal phWnd As Long, ByRef pCnnStringToModify As String) As Boolean
Dim myCnnstring As String
Dim myCnn As ADODB.Connection
Dim AdoWizard As DataLinks
                    
        Set myCnn = New ADODB.Connection
        myCnn.ConnectionString = pCnnStringToModify
        Set AdoWizard = New DataLinks
        AdoWizard.HWnd = phWnd
        
        'Edit cnnString
        If AdoWizard.PromptEdit(myCnn) Then
            'Ok edit
            EditCnn = True
            pCnnStringToModify = myCnn.ConnectionString
            Set myCnn = Nothing
            Set AdoWizard = Nothing
            Exit Function
        Else
            'Cancel
            EditCnn = False
            Set myCnn = Nothing
            Set AdoWizard = Nothing
            Exit Function
        End If

End Function
Public Function NewCnn(ByVal phWnd As Long, ByRef pCnnStringResult As String) As Boolean
Dim myCnnstring As String
Dim myCnn As ADODB.Connection
Dim AdoWizard As DataLinks
                    
        Set AdoWizard = New DataLinks
        AdoWizard.HWnd = phWnd
        'new cnn string
        Set myCnn = AdoWizard.PromptNew
        If Not myCnn Is Nothing Then
            'Ok new
            NewCnn = True
            pCnnStringResult = myCnn.ConnectionString
            Set myCnn = Nothing
            Set AdoWizard = Nothing
            Exit Function
        Else
            'Cancel
            NewCnn = False
            Set myCnn = Nothing
            Set AdoWizard = Nothing
            Exit Function
        End If

End Function

Quindi includi tra i riferimenti:
"Microsoft OLE DB Service Component x.x Type Library" (OLEDB32.dll).

In alternativa puoi assegnare ogni parametro ad una variabile stringa (che leggi sempre dal registry o da un file di cfg) che poi concateni.

Un titolo migliore?

[frenk]

uhm....quello di salvare le variabili in un file di configurazione mi sembra il piu semplice, ma come fa poi l'utente a cambiarli?
devo richiamare all'interno del mio codice questa stringa in modo che il programma la prende gia 'modificata'??

[sebamix]

devi creare una routine che carica le variabili dal file di configurazione o dal registro di sistema.
Poi ti crei una finestra dovel'utente può cambiare i valori di queste variabili e quindi la procedura per salvarle.