Overførsel af data til registreringsdatabasen

Kode til redigering af registreringsdatabasen:
http://www.andreavb.com/tip080003.html

Hvor ikke bare bruge SAVESETTING og GETSETTING, det er standardkommandoer i VB. Kommandoerne gemmer netop i den del af reg.databasen som den aktuelle bruger har, dvs. man får ikke problemer med permissions.

http://www.eksperten.dk/spm/Programmering/Visual-Basic/?sort=&order=DESC&status_1=on&status_2=on&status_3=on&spm_creator=&spm_part=&spm_answer=&find=savesetting&engine=exp

Jeg vil også anbefale at bruge savesetting/getsettings. De er simple at bruge:

savesetting "Applikationsnavn", "Stamdata", "Navn", "toh"

Herehfter henter du værdien således:
Navn = getsetting("Applikationsnavn", "Stamdata", "Navn","Defaultvalue hvis tom")

Hvis du alligevel ønsker at placere dine værdier et andet std, kan du bruge denne funktion:
Public Function adhSetRegistryValueFromPath _
    (ByVal strPath As String, ByVal varValue As Variant) _
    As Variant
    ' Sets a value based on a registry path
    '
    ' From Access 97 Developer's Handbook
    ' by Litwin, Getz, and Gilbert. (Sybex)
    ' Copyright 1997. All Rights Reserved.
    '
    ' In:
    '  strPath    A registry path
    '  varValue    The value to be set
    '              The VarType of the variant determines
    '              What data type in the registry is
    '              used
    '
    ' Out:
    '  If there is an error then IsError on the return
    '  value will return True. Otherwise the return
    '  value has no meaning.
    '
    ' Example:
    '  ? adhSetRegistryValueFromPath("\HKEY_CURRENT_USER\Control Panel\Desktop\ScreenSaveActive", "1")

    Dim hKey As Long
    Dim strValue As String
    Dim retCode As Long

    If Not IsError _
        (adhGetKeyAndValueFromPath(strPath, hKey, strValue)) Then
        Select Case varType(varValue)
        Case vbEmpty
            Stop
        Case vbNull
            Stop
        Case vbInteger
            Stop
        Case vbLong
            retCode = adh_apiRegSetValueEx(hKey, strValue, _
                0&, REG_DWORD, CLng(varValue), 4)
            Select Case retCode And APPLICATION_ERROR_MASK
            Case ERROR_SEVERITY_SUCCESS
            Case Else
                adhSetRegistryValueFromPath = CVErr(0)
            End Select
        Case vbSingle
            Stop
        Case vbDouble
            Stop
        Case vbCurrency
            Stop
        Case vbDate
            Stop
        Case vbString
            retCode = adh_apiRegSetValueEx(hKey, strValue, _
                0&, REG_SZ, ByVal CStr(varValue), Len(varValue))
            Select Case retCode And APPLICATION_ERROR_MASK
            Case ERROR_SEVERITY_SUCCESS
            Case Else
                adhSetRegistryValueFromPath = CVErr(0)
            End Select
        Case vbObject
            Stop
        Case vbError
            Stop
        Case vbBoolean
            Stop
        Case vbVariant
            Stop
        Case vbDataObject
            Stop
        Case vbByte
            Stop
        Case vbArray
            Stop
        Case Else
            Stop
        End Select
        Call adh_apiRegCloseKey(hKey)
    End If
End Function

/Thomas

toh, er du kommet videre her?

thnx :o)