Newsgroup: it.comp.appl.access
Titolo: Leggere le impostazioni da un file INI

Tanto tempo fa (quando lavoravo quotidianamente con Access97) avevo scovato
un modulo che leggeva un file INI per le impostazioni dell'ambiente di
lavoro.
A me ora serve di creare proprio un file INI nel quale scrivere da dove
andare a pescare l'MDB dei dati (avendolo separato dall'MDB del programma).
Qualcuno ha idea di come si possa fare?
--
-------------------------------------------------------
May the Force be with you
Skywalker Senior

 Qualcuno ha idea di come si possa fare?
Per la scrittura su file di testo vedi il comando open e argomenti correlati
sulla guida
Antonio

 andare a pescare l'MDB dei dati (avendolo separato dall'MDB del programma).
Potresti decidere anche di lasciar perder i file ini e utilizzare le normali
chiavi di registro... prova a dare un'occhiata alle istruzioni SaveSetting e
GetSetting.
Ciao. Claudio.

 
Function ReadWriteINI(Mode As String, tmpSecname As String, tmpKeyname As
    String, Optional tmpKeyValue) As String
    Dim tmpString As String
    On Error GoTo ReadWriteINIError
    '
    '******************************************************************
    '  Mode = "WRITE" or "GET"
    '
    '******************************************************************
    'Here are the declare functions
    Declare Function GetPrivateProfileString Lib "kernel32" Alias
    "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal
    lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString 
As
    String, ByVal nSize As Long, ByVal lpFileName As String) As Long
    Declare Function WritePrivateProfileString Lib "kernel32" Alias
    "WritePrivateProfileStringA" (ByVal lpApplicationName As String, 
ByVal
    lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) 
As
    Long
    ' *** set the return value to OK
    ReadWriteINI = "OK"
    ' *** test for good data to work with
    If IsNull(Mode) Or Len(Mode) = 0 Then
        ReadWriteINI = "ERROR MODE"    ' Set the return value
        Exit Function
    End If
    If IsNull(tmpSecname) Or Len(tmpSecname) = 0 Then
        ReadWriteINI = "ERROR Secname" ' Set the return value
        Exit Function
    End If
    If IsNull(tmpKeyname) Or Len(tmpKeyname) = 0 Then
        ReadWriteINI = "ERROR Keyname" ' Set the return value
        Exit Function
    End If
    ' *** set the ini file name
    filename = "C:\Vbasic\Test\WinPlace.ini" ' <<<<< put your file name 
here
    ' ******* WRITE MODE *************************************
    If UCase(Mode) = "WRITE" Then
        If IsNull(tmpKeyValue) Or Len(tmpKeyValue) = 0 Then
            ReadWriteINI = "ERROR KeyValue"
            Exit Function
        Else
 
            secname = tmpSecname
            keyname = tmpKeyname
            keyvalue = tmpKeyValue
            anInt = WritePrivateProfileString(secname, keyname, keyvalue,
            filename)
        End If
    End If
    ' *******************************************************
    '
    ' *******  GET MODE *************************************
    If UCase(Mode) = "GET" Then
 
        secname = tmpSecname
        keyname = tmpKeyname
        defaultkey = "Failed"
        keyvalue = String$(50, 32)
        anInt = GetPrivateProfileString(secname, keyname, defaultkey,
        keyvalue, Len(keyvalue), filename)
        If Left(keyvalue, 6)  "Failed" Then ' *** got it
        tmpString = keyvalue
        tmpString = RTrim(tmpString)
        tmpString = Left(tmpString, Len(tmpString) - 1)
    End If
    ReadWriteINI = tmpString
End If
Exit Function
' *******
ReadWriteINIError:
MsgBox Error
Stop
End Function
  Ciao.
--
http://digilander.libero.it/winses

"Claudio" <cld@NOSPAM&COsupereva.it> ha scritto nel messaggio
news:Gpmp9.38805$cS4.1...@news2.tin.it...

OK, io userei anche questo metodo, ma come faccio a dirgli che
l'impostazione che sto salvando è la posizione del file contenente le
tabelle collegate? L'help di Access non mi è di molto aiuto!
Grazie!


 Grazie!
Ti salvi semplicemente il percorso in una chiave che decidi tu... ma toglimi
una curiosità, con gli ini come avresti fatto? Spiegami dettagliatamente quello
che avresti voluto fare con gli ini e cercherò di spiegarti come realizzarlo
con il registro.
Ciao. Claudio.