hola amigoa tengo un problema al generar un reporte de un recibo de pago el problema lo tengo en la consulta espero me puedan ayudar aki dejo el codigo
esta en visual basic 6 y la base en mysql

en la primera parte estoy guardando los datos que me dan y de hay saco la clave y la fecha para comparar en la base



Case "pago"
Set cone = New ADODB.Connection
Set regi = New ADODB.Recordset

cone.ConnectionString = "DSN=easy"
cone.Open

regi.ActiveConnection = cone
regi.CursorType = adOpenDynamic

regi.LockType = adLockOptimistic



conecta.Open

registro.ActiveConnection = conecta
Y = Val(txtcve_alumno.Text)

registro.Source = "select * from pagos where cve_alumno = '" & X & "'"

registrpen
If registro.BOF = True And registro.EOF = True Then
registro.AddNew

registro.Fields(1) = txtcve_alumno.Text
registro.Fields(2) = Combo1.Text
registro.Fields(3) = txtcantidad.Text
registro.Fields(4) = txtfecha.Text

registro.Update

'de aqui obtengo la clave y la fecha pero la fecha esta en formato DD/MM/AAAA y en la base esta YYYY/MM/DD como hago para poder compararla y que la consulta me pueda arrojar resultado.

cvea = txtcve_alumno.Text
fecha = txtfecha.Text

registro.Close

' esta es la cosulta que esta mal que yo pienso que el problema el esle de la fecha por los formatos que no coinsiden

regi.Source = "SELECT * from pagos where cve_alumno = " & cvea & " and fecha = " & fecha & " JOIN alumnos ON alumnos.cve_alumno =" & cvea & " "

regi.Open

Set DataReport2.DataSource = regi
DataReport2.Show 1


espero me puedan ayudar porfa se los agradesco....:chavo: