sesgasoft
28 de Enero del 2004

No consigo crear una DSN programaticamente, mediante la ODBC 3.51 de MySql desde una aplicaci贸n Visual FoxPro 8.0. Agradecer铆a su ayuda. Gracias. Rafael.

henry
28 de Enero del 2004

aca te mando una funcion de vb para el odbc ojala te sirva chau
Public Function AbrirBase() As Integer
Const ODBC = True

On Error GoTo CONDORO


If ODBC Then

Set WS = DBEngine(0)

Dim Stconn As String
Stconn = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & gIP & ";DATABASE=paciente;UID=" & gLogin & ";PWD=" & gPass & "; OPTION=35"

'Stconn = "DRIVER={MySQL};SERVER=1.0.0.0;DATABASE=paciente;UID=user;PWD=****; OPTION=16419;"
'Set gConn = WS.OpenConnection("", dbDriverNoPrompt, False, Stconn)

Set DBBase = WS.OpenDatabase("", 0, False, Stconn)

Else

Set WS = Workspaces(0)
Set DBBase = WS.OpenDatabase(App.Path + "" + DBNAME)

End If

AbrirBase = TODO_BIEN
Exit Function