Re: AYUDA CON ODBC DE POSTGRESQL PARA VISUAL BASIC 6.0

From: "ruben avila galindo" <ruben2218(at)hotmail(dot)com>
To: ghcolina(at)hotmail(dot)com
Cc: pgsql-es-ayuda(at)postgresql(dot)org
Subject: Re: AYUDA CON ODBC DE POSTGRESQL PARA VISUAL BASIC 6.0
Date: 2006-04-05 22:12:41
Message-ID: BAY113-F12CDA15CE50C2DDB25571A8CB0@phx.gbl
Views: Raw Message | Whole Thread | Download mbox | Resend email
Thread:
Lists: pgsql-es-ayuda

<html><div style='background-color:'><DIV class=RTE>
<P>hola amigo grabiel te comento primero quiero conectarme con postgresql bajo windows primero y despues pasar a la segunda fase que es con linux.</P>
<P>-tengo Windows XP y POSTGRESQL 8.0 bajo windows. me pasaron un codigo pero no me funciona tambien instala el ODBC de POSTGRESQl de la pagina que me distes para visual.</P>
<P>-Luego empeze a codificar el codigo y hice este codigo:</P>
<P>-me Sale este maldito error:</P>
<P>- use las dos formas de coneccion pero igual espero que me ayudes con ejemplos porque hasta ahora no puedo conectarme espero ayudas amigos.</P>
<P><STRONG>[Microsoft][Administrador de controladores ODBC]No se encuentra el nombre de <BR>origen de datos y no se especefico contralador prederteminado.</STRONG></P>
<P>Public Sub seteobd()<BR>On Error GoTo errDescripcion</P>
<P>' Conectar via PostgreSQL ODBC<BR>'strCn = "PROVIDER=MSDASQL ; DATA SOURCE=" &amp; gblFuenteDatos &amp; " ; USER ID="" &amp; Trim(gblUsuario) &amp; " ;PASSWORD=" &amp; Trim(gblPasswordBaseDatos) &amp; " ;"</P>
<P>strCn = "DRIVER={PostgreSQL};DATABASE=" &amp; bdprueba &amp; ";SERVER=" &amp; localhost &amp; ";PORT=" &amp; 5432 &amp; ";UID=" &amp; postgres &amp; ";PWD=" &amp; postgres &amp; ";"</P>
<P>Set BaseRemota = New ADODB.Connection<BR>&nbsp;&nbsp;&nbsp; With BaseRemota<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .ConnectionString = strCn<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .ConnectionTimeout = 30000<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .CommandTimeout = 30000<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .CursorLocation = adUseClient<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Properties("PROMPT") = adPromptNever<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Open<BR>&nbsp;&nbsp;&nbsp; End With<BR>&nbsp;&nbsp;&nbsp; boBaseAbierta = True<BR>Exit Sub</P>
<P>errDescripcion:<BR>&nbsp; boBaseAbierta = False<BR>&nbsp; MsgBox Err.Description<BR>&nbsp; <BR>End Sub<BR></P>
<P><BR>&nbsp;</P></DIV>
<DIV></DIV></div></html>

Attachment Content-Type Size
unknown_filename text/html 2.0 KB

Responses

Browse pgsql-es-ayuda by date

  From Date Subject
Next Message Yulian Diaz Leon 2006-04-05 22:53:13 Ayuda con ArcGIS-Postgis
Previous Message Alvaro Herrera 2006-04-05 21:48:56 Re: Case Sensitive