RE: Rutina para cambiar parametros de ODBC

--- "Douglas A. Escobar" <douglas(at)liztex(dot)com>
escribió:

> Gracias Gabriel te lo agradeceria con ello me
> ayudarias mucho y yo tomo la
> idea y lo adapto para usarlo con Delphi.
>

Este es un ejemplo que si no existe el DSN lo crea y
si existe le pasa por arriba, lo crea como DSN de
Usuario.

Estoy terminando otra en que utilizo un BD donde
guardo todo esto por que como mi programa lo conecto
con el notebook ahora a muchos servidores de mis
clientes y al local, he tenido que ampliar la utilidad
del sistema, una bd y una grilla para darle Doble
Click me soluciono el problema y no tengo que ir al
panel de control a cambiar el odbc.
De esta manera cambio la ip ya estoy conectado a la bd
del cliente, despues de hacer pg_dump y pasar la
estructura al notebook, vuelo a elegir el cambio de
odbc y estoy localhost de nuevo.

Ejemplo corto.

Aca llamo al api

Option Explicit
Private Const ODBC_ADD_DSN = 1
Private Const vbAPINull As Long = 0&
Private Declare Function SQLConfigDataSource Lib
"ODBCCP32.DLL" (ByVal hwndParent As Long, ByVal
fRequest As Long, ByVal lpszDriver As String, ByVal
lpszAttributes As String) As Long

En el formulario hay un array de botones.
y segun cual elige cambia los parametros.

Private Sub CmdPc_Click(Index As Integer)
Dim strDriver As String
Dim strAttributes As String
Dim Resultado As Long
Select Case Index
Case 0
strDriver = "PostgreSql"
strAttributes = "SERVER=192.168.1.100" &
Chr$(0)
strAttributes = strAttributes +
"DESCRIPTION=Temp DSN" & Chr$(0)
strAttributes = strAttributes + "DSN=sysgegc"
& Chr$(0)
strAttributes = strAttributes +
"DATABASE=sysgegc" & Chr$(0)
strAttributes = strAttributes + "PWD=postgres"
& Chr$(0)
strAttributes = strAttributes + "UID=postgres"
& Chr$(0)
Resultado = SQLConfigDataSource(vbAPINull,
ODBC_ADD_DSN, strDriver, strAttributes)
Case 1
strDriver = "PostgreSql"
strAttributes = "SERVER=192.168.1.175" &
Chr$(0)
strAttributes = strAttributes +
"DESCRIPTION=Temp DSN" & Chr$(0)
strAttributes = strAttributes + "DSN=sysgegc"
& Chr$(0)
strAttributes = strAttributes +
"DATABASE=sysgegc" & Chr$(0)
strAttributes = strAttributes + "PWD=postgres"
& Chr$(0)
strAttributes = strAttributes + "UID=postgres"
& Chr$(0)
Resultado = SQLConfigDataSource(vbAPINull,
ODBC_ADD_DSN, strDriver, strAttributes)
Case 2
strDriver = "PostgreSql"
strAttributes = "SERVER=localhost" & Chr$(0)
strAttributes = strAttributes +
"DESCRIPTION=Temp DSN" & Chr$(0)
strAttributes = strAttributes + "DSN=sysgegc"
& Chr$(0)
strAttributes = strAttributes +
"DATABASE=sysgegc" & Chr$(0)
strAttributes = strAttributes + "PWD=postgres"
& Chr$(0)
strAttributes = strAttributes + "UID=postgres"
& Chr$(0)
Resultado = SQLConfigDataSource(vbAPINull,
ODBC_ADD_DSN, strDriver, strAttributes)
Case 3
strDriver = "PostgreSql"
strAttributes = "SERVER=192.168.1.8" & Chr$(0)
strAttributes = strAttributes +
"DESCRIPTION=Temp DSN" & Chr$(0)
strAttributes = strAttributes + "DSN=sysgegc"
& Chr$(0)
strAttributes = strAttributes +
"DATABASE=sysgegc" & Chr$(0)
strAttributes = strAttributes + "PWD=postgres"
& Chr$(0)
strAttributes = strAttributes + "UID=postgres"
& Chr$(0)
Resultado = SQLConfigDataSource(vbAPINull,
ODBC_ADD_DSN, strDriver, strAttributes)
End Select
End Sub

Si algo no entendes, preguntame de nuevo.

Atte.
Gabriel Colina

__________________________________________________
Correo Yahoo!
Espacio para todos tus mensajes, antivirus y antispam ¡gratis!
Regístrate ya - http://correo.espanol.yahoo.com/