Problemas VB 6 - MYSQL.

[carlos79]

Buenas tardes :

Estoy desarrollando una herramienta en visual basic 6 con base de datos en MYSQL. El código lo tenía en MS ACCESS pero por la cantidad de registros que manejo tuve que migrar.

Ahora bien... Observen este código :

Sub buscainfo()

Dim cnn As ADODB.Connection
Dim rt2 As ADODB.Recordset
Dim sql2$


Set cnn = New ADODB.Connection
cnn.ConnectionString = "DRIVER={mysql odbc 3.51 driver};" _
& "SERVER=172.17.30.92;" _
& "Database=seguimiento;" _
& "UID=root;port=3306;option3 "

cnn.Open

Set rt2 = New ADODB.Recordset

'sql2$ = ""
'
With rt2
.ActiveConnection = cnn
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open "Select informe.no_inf, informe.fecha, informe.gte, empresas.empresa from informe, empresas where informe.fecha between #" & Format(DTPicker1.Value, "dd,mm,yyyy") & "# and #" & Format(DTPicker2.Value, "dd,mm,yyyy") & "# and informe.cod_emp = empresas.cod_emp"
End With

rt2.MoveFirst

'Set rt2 = cnn.Execute(sql2$)
Set DataGrid1.DataSource = rt2

DataGrid1.Refresh

End Sub


Antes de migrar a MYSQL, el software podía realizar la búsqueda bajo los criterios de fecha, pero ahora que estoy en mysql me da un error MySQL 3.51 odbc driver haciendo referencia a mala sintaxis....

En MYSQL tengo el campo definido como fecha.... Si copio el select en phpmyadmin y le coloco la fecha de forma manual, me trae los campos sin problema alguno....

Me podrían ayudar muchachos por favor ??? no encuentro la falla...

Saludos.

Carlos.