Hola,
Necesito conectarme con un servidor MySQL desde app en VB6 y no permiten
definir DSN. ¿Es posible conectar con MySQL desde VB sin definir un
DSN?

Desde ya muchas gracias.

Ing. Milton Bianchi


--
MySQL ODBC Mailing List
For list archives: http://lists.mysql.com/myodbc
To unsubscribe: http://lists.mysql.com/myodbc?unsub=gcdmo-myodbc [at] m.gmane.org

No hablo Espanol, pero mire aqu=ED:
http://www.programacion.com/foros/30/msg/201226/

Al


-----Original Message-----
From: Milton Bianchi [mailto:mbianchi [at] softpoint.org]
Sent: 10 November 2008 16:31
To: myodbc [at] lists.mysql.com
Subject: Uso de DSN

Hola,
Necesito conectarme con un servidor MySQL desde app en VB6 y no =
permiten
definir DSN. =BFEs posible conectar con MySQL desde VB sin definir un
DSN?

Desde ya muchas gracias.

Ing. Milton Bianchi




--
MySQL ODBC Mailing List
For list archives: http://lists.mysql.com/myodbc
To unsubscribe: http://lists.mysql.com/myodbc?unsub=3Dgcdmo-myodbc [at] m.gmane.o rg

>
> sunto:
> Uso de DSN
> De:
> "Milton Bianchi" <mbianchi [at] softpoint.org>
> Fecha:
> Mon, 10 Nov 2008 17:30:42 +0100 (CET)
> A:
> myodbc [at] lists.mysql.com
>
> A:
> myodbc [at] lists.mysql.com
>
>
> Hola,
> Necesito conectarme con un servidor MySQL desde app en VB6 y no permiten
> definir DSN. ¿Es posible conectar con MySQL desde VB sin definir un
> DSN?
>
> Desde ya muchas gracias.
>
> Ing. Milton Bianchi
>
>
Tal cual, lo mas adecuado es definir una variable global ej Global GoDB
as ADODB.Connection y asignarla para utilizarla desde cualquier parte
del proyecto o conjunto de proyectos.

Ej de una función para realizar conectarse a un mysql sin DSN:

Sub Connect(ptUserName As String, ptPassword As String, _
ptEmpresa As String, ptSucursal As String, _
ptServerName As String, ptCatalogName As String, _
pfLogEnable As Boolean, ptAppName As String, _
piOptions As Integer, piPort As Integer, _
ptConnector As String)

'Conecta a la base de datos
'--------------------------
Dim tDatabaseServer As String
Dim tDatabaseName As String
Dim tDatabaseConnector As String
Dim tDatabasePort As String
Dim tDatabaseOption As String

'Busca el SERVER en el registro
tDatabaseServer = ptServerName
tDatabaseName = ptCatalogName
tDatabaseConnector = ptConnector
fLogEnabeled = pfLogEnable
tDatabasePort = piPort
tDatabaseOption = piOptions

Select Case tDatabaseConnector
Case Is = 5
tDatabaseConnector = "{MySQL ODBC 5.1 Driver}" 'alternativa
para V5
Case Else
tDatabaseConnector = "{MySQL ODBC 3.51 Driver}"
End Select



'Abre una nueva conexion
Set mConnection = New ADODB.Connection
LogInitialize
With mConnection
.ConnectionString = "DRIVER=" & tDatabaseConnector & ";" _
& "SERVER=" & tDatabaseServer & ";" _
& "DATABASE=" & tDatabaseName & ";" _
& "UID=" & ptUserName & ";" _
& "PWD=" & ptPassword & ";" _
& "PORT=" & tDatabasePort & ";" _
& "OPTION=" & tDatabaseOption & ";CHARSET=latin1;"
.Open
End With

'Asignación de Permiso para transmitir 8MB = 8388608 o 16MB = 16777216
Call mConnection.Execute("SET max_allowed_packet=16777216")
Call mConnection.Execute("SET lc_time_names = 'es_AR'")

set GoDB = mConnection

End Sub

Este es un buen ejemplo de como conectar y definir la db (no olvides
definir la variable global GoDB para asignarle mConnection)


Un Saludo,
Pablo R. Canto.-

--
MySQL ODBC Mailing List
For list archives: http://lists.mysql.com/myodbc
To unsubscribe: http://lists.mysql.com/myodbc?unsub=gcdmo-myodbc [at] m.gmane.org

On Mon, Nov 10, 2008 at 04:27:22PM -0200, Pablo R. Canto wrote:
> Tal cual, lo mas adecuado es definir una variable global ej Global GoDB
> as ADODB.Connection y asignarla para utilizarla desde cualquier parte
> del proyecto o conjunto de proyectos.
>
> Ej de una función para realizar conectarse a un mysql sin DSN:
>
....
> & "OPTION=" & tDatabaseOption & ";CHARSET=latin1;"

It is advised not to set the CHARSET option on your connection when
using Connector/ODBC 5.1. The driver will properly handle matching the
character sets between what's returned from the server and what the
application needs. This includes both Unicode and non-Unicode character
sets.

Jess

--
MySQL ODBC Mailing List
For list archives: http://lists.mysql.com/myodbc
To unsubscribe: http://lists.mysql.com/myodbc?unsub=gcdmo-myodbc [at] m.gmane.org