Newsgroup: it.comp.appl.access
Titolo: creazione dns (odbc) lo crea ma non funziona in access

Salve ho messo in un modulo il seguente codice:
Option Compare Database
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
Public Function DNS()
Dim use As Variant
Dim Ditta As Variant
Dim pas As Variant
Dim con As Variant
use = DLookup("uid", "server")
pas = DLookup("pwd", "server")
Ditta = DLookup("dat", "server")
con = DLookup("conn", "server")
   Dim DataSourceName As String
   Dim DatabaseName As String
   Dim Description As String
   Dim PWD As String
   Dim DriverName As String
   Dim UID As String
   Dim Regional As String
   Dim SERVER As String
   Dim lResult As Long
   Dim hKeyHandle As Long
   'Specify the DSN parameters.
   DataSourceName = con
   DatabaseName = Ditta
   Description = "Collegamento DNS"
   SERVER = "NOMESERVER"
   DriverName = "IBM INFORMIX ODBC DRIVER"
   UID = use
   PWD = pas
   '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, "pwd", 0&, REG_SZ, _
      ByVal PWD, Len(PWD))
   lResult = RegSetValueEx(hKeyHandle, "uid", 0&, REG_SZ, _
      ByVal UID, Len(UID))
   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 Function
Premetto che parliamo di driver informix , cmq in esecuzione mi
funzione perfettamente , mi crea il mio DNS voluto , faccio anche la
prova del test connessione e funziona
,pero sorpresa sorpresa , quando provo con access ad allacciare questo
dns no, sono costretto  a eliminarlo e crearlo a mano , sicuramente
sbaglio qualcosa , qualche suggerimento?

 
premesso che stai parlando di DSN e non di DNS, se non spieghi perche' sei 
costretto a ricrearlo a mano come si fa ad aiutarti?
lo rifai perche' ti fa piacere?
lo rifai perche' non lo vedi in elenco?
lo rifai perche' ottieni un errore quando lo usi?
altre varie ed eventuali?
-- 
Paolo opg
BE AWARE that this post uses a fake reply-to address
to contact me write to:
janickg ( at ) hotmail ( dot ) com
--

 
7cb26f4c1...@d15g2000yqn.googlegroups.com
:

EHEHHE grazie per il dns , cmq
no lo crea perfettamente come ho anche scritto che nella prova test
connessione funziona alla grande , non funziona come scritto con le
tabelle collegate in access , ma non capisco il perche cioe
nell'origne dati e tutto ok , ma nel database no , se lo richeo a
manina (che non mi piace o non cercherei di farlo automaticamente)
funziona tutto normalmente

 
messaggi d'errore?
avvisi?
segnali?


 wrote:

Nulla funziona tutto normalmente per lui , lo crea senza problemi ma
non operativo