Dns

[mvazquez]

Hola raza...!!
Alguien sabe el codigo para generar un DNS (ODBC) en modo de ejecucion, es decir, con codigo?

Gracias..-....

[Peterpay]

Quieres configurar el dns como lo harias manualmente, pero via programatica si eso lo que buscas revisa esto

http://www.recursosvisualbasic.com.a...l-basic/37.htm

[mvazquez]

Gracias Brother, esta muy buena la informacio....... ya avisare mi resultado.

[mvazquez]

Aun no lo soluciono, lo que nito es crear un DNS (ODBC) en la maquina local donde se este ejecutando la aplicacion asignandole un nombre, servidor, usuario y contraseña.

alguna idea??

[Peterpay]

y porq no funciono?

[mvazquez]

tengo este codigo que hice hace tiempo pero para VB6

Código:

Private Const REG_SZ = 1
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 Sub CrearOdbc(DataSourceName As String, DatabaseName As String, Description As String, DriverPath As String, DriverName As String, LastUser As String, Server As String)
Dim lResult As Long
Dim hKeyHandle As Long
Dim Regional As String

   '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

necesito crear algo similar para .Net en WinForm

[Peterpay]

solo lo unico que cambiaria seria en vez de usar un alias usar dllimport de interopservices http://msdn.microsoft.com/es-es/libr...te(VS.80).aspx

[mvazquez]

Raza lo que hice fue una dll en visual 6 para utilizarla en .Net y si me funciona a la perfección pero lo que nito es agregarle el password porque solo me agrega el usuario, el código con el que hice la dll esta en un post abajo de este.


En .Net me da error en esta línea;

Código:

            long lResult;
            long hKeyHandle;


            lResult = RegCreateKey(HKEY_LOCAL_MACHINE, ("SOFTWARE\\ODBC\\ODBC.INI\\" + DataSourceName), hKeyHandle);
            lResult = RegSetValueEx(hKeyHandle, "Database", '\0', REG_SZ, DatabaseName, DatabaseName.Length);
            lResult = RegSetValueEx(hKeyHandle, "Description", '\0', REG_SZ, Description, Description.Length);
            lResult = RegSetValueEx(hKeyHandle, "Driver", '\0', REG_SZ, DriverPath, DriverPath.Length);
            lResult = RegSetValueEx(hKeyHandle, "LastUser", '\0', REG_SZ, LastUser, LastUser.Length);

            lResult = RegSetValueEx(hKeyHandle, "Server", '\0', REG_SZ, Server, Server.Length);
            lResult = RegCloseKey(hKeyHandle);

            lResult = RegCreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\\ODBC\\ODBC.INI\\ODBC Data Sources", hKeyHandle);
            lResult = RegSetValueEx(hKeyHandle, DataSourceName, '\0', REG_SZ, DriverName, DriverName.Length);
            lResult = RegCloseKey(hKeyHandle);

Me da error en esta linea

Una llamada a la función PInvoke 'ODBC!ODBC.Form1::RegCreateKey' impidió la correspondencia de la pila. Es posible que la razón sea que la firma PInvoke administrada no coincida con la firma de destino no administrada. Compruebe que la convención y los parámetros de llamada de la firma PInvoke coinciden con la firma no administrada de destino.



No se si será por la variable long hKeyHandle = 0; porque si no le pongo el 0 a esa variable me dice que: Uso de la variable local no asignada 'hKeyHandle' pero en realidad no se si deba ser igual a 0

Alguna idea?

[Peterpay]

Bueno ahora que caigo porq no usar Registry de Microsoft.Win32 en vez de usar un dll cuando ya tienes acceso al registro de manera mas sencilla

revisa esto

http://www.csharphelp.com/archives/archive48.html

[mvazquez]

no entendi tu comentario
no comprendo como aplicar el codigo que esta en la liga que me pasaste a mi codigo..

[Peterpay]

si estas generando tu dsn usando el registro de windows porq no usas Microsoft.Win32 y creas las keys necesarias haciendo lo mismo que en tu metodo anterior y en los otros ejemplos agregando las n llaves necesarias incluyendo tu user password.

lResult = RegCreateKey(HKEY_LOCAL_MACHINE, ("SOFTWARE\\ODBC\\ODBC.INI\\" + DataSourceName), hKeyHandle);
lResult = RegSetValueEx(hKeyHandle, "Database", '\0', REG_SZ, DatabaseName, DatabaseName.Length);
lResult = RegSetValueEx(hKeyHandle, "Description", '\0', REG_SZ, Description, Description.Length);
lResult = RegSetValueEx(hKeyHandle, "Driver", '\0', REG_SZ, DriverPath, DriverPath.Length);
lResult = RegSetValueEx(hKeyHandle, "LastUser", '\0', REG_SZ, LastUser, LastUser.Length);

lResult = RegSetValueEx(hKeyHandle, "Server", '\0', REG_SZ, Server, Server.Length);
lResult = RegCloseKey(hKeyHandle);

lResult = RegCreateKey(HKEY_LOCAL_MACHINE, "SOFTWARE\\ODBC\\ODBC.INI\\ODBC Data Sources", hKeyHandle);
lResult = RegSetValueEx(hKeyHandle, DataSourceName, '\0', REG_SZ, DriverName, DriverName.Length);
lResult = RegCloseKey(hKeyHandle);

todo eso puedes cambiarlo usando no se

Registry que es un objeto de Microsoft.Win32 y crear los mismos valores en vez de usar una libreria vieja puedes hacer la nueva sin problemas con eso y crear los keys en el registro de la misma manera , ademas de que no requeriras interop para usar una dll del api base de no se windows 2000 o anteriores. es solo una sugerencia.

[mvazquez]

Ah pos me parece una excelente sugerencia, intentare hacerlo..... o si tienes tiempo de hacer una aportación a la humanidad pos seria genial

Gracias mi estimao Peter...

[Peterpay]

sera despues de la comida porq ahorita ando en la chamba y en la tarde se relaja esto pero armo el sample que funcione de win2000 y posteriores. jaja y lo cuelgo en los faq's.

PD: Ademas el capitulo de heroes merece mas de 30 min. jajaa

[mvazquez]

jajaja bien, bien..!!

Gracias Mr. Peter.

[mvazquez]

Que onda mi estimao Peter.... me gustaria saber si pudiste postear el codigo, Saludos.

[Peterpay]

no he podido postear nada, hay algo de chamba y pues se complico pero hago algo y te lo mando por mail.

[mvazquez]

Sobres, gracias Peter...