comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Otra forma de crear DSN, modificarlo y eliminarlo

  • 0 Respuestas
  • 1366 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5320
  • Actividad:
    41.67%
  • Reputación 29
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Julio 26, 2010, 03:54:52 pm »
Código: Visual Basic
  1. 'Declaracion de constantes
  2. Private Const ODBC_ADD_DSN = 1
  3. Private Const ODBC_CONFIG_DSN = 2
  4. Private Const ODBC_REMOVE_DSN = 3
  5. Private Const vbAPINull As Long = 0&
  6. #If Win32 Then
  7.     Private Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" _
  8.             (ByVal hwndParent As Long, ByVal fRequest As Long, _
  9.              ByVal lpszDriver As String, ByVal lpszAttributes As String) As Long
  10. #Else
  11.     Private Declare Function SQLConfigDataSource Lib "ODBCINST.DLL" _
  12.             (ByVal hwndParent As Integer, ByVal fRequest As Integer, ByVal _
  13.             lpszDriver As String, ByVal lpszAttributes As String) As Integer
  14. #End If

Para crear un DSN :

Código: Visual Basic
  1. #If Win32 Then
  2.     Dim intRet As Long
  3. #Else
  4.     Dim intRet As Integer
  5. #End If
  6. Dim strDriver As String
  7. Dim strAttributes As String
  8.  
  9. 'Driver de SQL Server
  10. strDriver = "SQL Server"
  11. 'Driver de MySQL StrDriver = "MySQL ODBC 3.51 Driver"
  12. 'Asignamos los parametros separados por null.
  13. strAttributes = "SERVER=SomeServer" & Chr$(0)
  14. strAttributes = strAttributes & "DESCRIPTION=Temp DSN" & Chr$(0)
  15. strAttributes = strAttributes & "DSN=DSN_TEMP" & Chr$(0)
  16. strAttributes = strAttributes & "DATABASE=nombredb" & Chr$(0)
  17. strAttributes = strAttributes & "UID=" & Chr$(0)
  18. strAttributes = strAttributes & "PWD=" & Chr$(0)
  19. 'Para mostrar el diálogo usar Form1.Hwnd en vez de vbAPINull.
  20. intRet = SQLConfigDataSource(vbAPINull, ODBC_ADD_DSN, strDriver, strAttributes)
  21. If intRet Then
  22.     MsgBox "DSN Creado"
  23. Else
  24.     MsgBox "Fallo en la creación"
  25. End If

Para Borrarlo:

Código: Visual Basic
  1. #If Win32 Then
  2.     Dim intRet As Long
  3. #Else
  4.     Dim intRet As Integer
  5. #End If
  6. Dim strDriver As String
  7. Dim strAttributes As String
  8. 'Driver de SQL Server
  9. strDriver = "SQL Server"
  10. 'Drive de MySQL StrDriver = "MySQL ODBC 3.51 Driver"
  11. 'Asignamos los parametros separados por null.
  12. strAttributes = "DSN=DSN_TEMP" & Chr$(0)
  13. 'Para mostrar el diálogo usar Form1.Hwnd en vez de vbAPINull.
  14. intRet = SQLConfigDataSource(vbAPINull, ODBC_REMOVE_DSN, strDriver, strAttributes)
  15. If intRet Then
  16.     MsgBox "DSN Eliminado"
  17. Else
  18.     MsgBox "Fallo en el borrado"
  19. End If

Para modificarlo:

Código: Visual Basic
  1. #If Win32 Then
  2.     Dim intRet As Long
  3. #Else
  4.     Dim intRet As Integer
  5. #End If
  6. Dim strDriver As String
  7. Dim strAttributes As String
  8.  
  9. 'Driver de SQL Server
  10. strDriver = "SQL Server"
  11. 'Drive de MySQL StrDriver = "MySQL ODBC 3.51 Driver"
  12. 'Asignamos los parametros separados por null.
  13. strAttributes = "SERVER=OtroSomeServer" & Chr$(0)
  14. strAttributes = strAttributes & "DESCRIPTION=Temp DSN modificado" & Chr$(0)
  15. strAttributes = strAttributes & "DSN=DSN_TEMP" & Chr$(0)
  16. strAttributes = strAttributes & "DATABASE=pubs" & Chr$(0)
  17. strAttributes = strAttributes & "UID=sa" & Chr$(0)
  18. strAttributes = strAttributes & "PWD=" & Chr$(0)
  19.  
  20. 'Para mostrar el diálogo usar Form1.Hwnd en vez de vbAPINull.
  21. intRet = SQLConfigDataSource(vbAPINull, ODBC_CONFIG_DSN, strDriver, strAttributes)
  22. If intRet Then
  23.     MsgBox "DSN Modificado"
  24. Else
  25.     MsgBox "Fallo en la modificacion"
  26. End If

Si el DSN es para access :
- En vez de DATABASE debes usar DBQ y especificar el nombre completo de la base de datos, incluyendo el path y la extension.
- El UID por defecto es admin, aunque en la base de datos este en español y se llame administrador.
« Última modificación: Mayo 12, 2014, 03:22:38 pm por Expermicid »


 

¿Te gustó el post? COMPARTILO!



Funcion para crear letras en 3D con colores vivos.

Iniciado por 79137913

Respuestas: 1
Vistas: 3451
Último mensaje Febrero 02, 2013, 03:23:30 pm
por alexander1712
Como crear controles en tiempo de ejecuacion

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1159
Último mensaje Julio 26, 2010, 01:21:37 pm
por ANTRAX
Cómo crear controles en tiempo de ejecución

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1260
Último mensaje Julio 26, 2010, 11:29:34 am
por ANTRAX
Como Crear un DSN con un archivo de registro

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1370
Último mensaje Julio 26, 2010, 12:23:42 pm
por ANTRAX
Como crear un capturador de pantalla

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1424
Último mensaje Julio 26, 2010, 03:57:28 pm
por ANTRAX