Programación General > Visual Basic 6.0 e inferiores

 Error En Conexion Mysql

(1/1)

willysistemas:
Hola todos estoy haciendo una pequeña aplicacion en visual basic 6 y trato de establecer una conexion a mysql les pego a continuacion el codigo que utilizo

este codigo lo tengo en un modulo

Public Function ConectarMysql(ByVal IniServidor As String, ByVal IniUsuario As String, ByVal IniPasword As String, ByVal IniBaseDatos As String) As String


Dim consql As String

With ConectarMysql
    Set ConectarMysql = New ADODB.Connection
    ConectarMysql.CursorLocation = adUseClient
    consql = "Driver={MySQL ODBC 3.51 Driver};server=" & IniServidor & ";uid=" & IniUsuario & ";pwd=" & IniPasword & ";database=" & IniBaseDatos & ";connection="
    ConectarMysql.ConnectionString = consql
    ConectarMysql.CommandTimeout = 40
    ConectarMysql.Open
End With

End Function


en el formulario llamo de la siguiente forma la funcion


Private Sub Command3_Click()
Call ConectarMysql("localhost", "root", "", "prueba")
MsgBox "conectado a la base de datos"
End Sub


al ejecutar me da el siguiente error:
el objeto with debe ser de un tipo definido por el usuario, object o variant

espero me digan donde esta el error

gracias de antemano

F_Tanori:
instancia primero el objeto


--- Código: Text ---Set ConectarMysql = New ADODB.Connection With ConectarMysql.... 
Como no se ve ese objeto de conexion declarado dentro de la funcion, supongo que es una variable de instancia o global

de cualquier forma puedes instanciar al momento de declarar la variable


--- Código: Text ---dim ConectarMysql as New ADODB.Connection 
o


--- Código: Text ---Public ConectarMysql as New ADODB.Connection 
o sin usar ADODB.


--- Código: Text ---dim ConectarMysql as New Connection 
cuando creas la instancia al momento de la declaracion te evitas este paso


--- Código: Text ---Set ConectarMysql = New ADODB.Connection  
Saludos Espero te sea de ayuda

9tnix:
Hola willysistemas

El uso de With es para objetos no para nombre de funciones,  ni variables salvo estructuras. Como te indica F_Tanori debes instanciar primero un objeto coneccion para luego valga la redundancia puedas utilizar las propiedades de este objeto coneccion usando el With de tal forma que ya no estes repitiendo el nombre del objeto sino solo usando sus propiedades y metodos en el.

Un saludo
Zeekel [TKLP]

willysistemas:
Ok. lo he solucionado gracias a todos por su ayuda sus aportes son muy valiosos espero me sigan ayudando en mis dificultades


MIL GRACIAS!!!

Navegación

[0] Índice de Mensajes