AYUDA CON CONSULTAS SQL EN VISUAL BASIC 6

[jesusjalpan]

hola amigos tengo un proble con una consulta , tengo que realisar un recibo de pago y me debe mandar los datos a un data report en visual basic y me los manda pero me manda varios registros de pagos y yo solo quiero que me made el ultimo pago aki les dejo el codigo ayuda porfa..

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
cve = InputBox("escribe la clave del alumnno")

regi.Source = "SELECT * FROM alumnos INNER JOIN pagos ON alumnos.cve_alumno =" & cve & ""
regi.Open

Set DataReport2.DataSource = regi
DataReport2.Show 1



espero me yuden porfa......gracias:vientos:

 

[dragonjon81]

Hola, suponiendo que en la tabla pagos hay un campo donde se guarda la fecha, se me ocurre algo como:

regi.Source = "SELECT TOP 1 * FROM alumnos INNER JOIN pagos ON alumnos.cve_alumno = " & cve & " ORDER BY pagos.fecha DESC"

 

[Pericles6117]

Excelente respuesta de dragonjon81

Hola, suponiendo que en la tabla pagos hay un campo donde se guarda la fecha, se me ocurre algo como:

regi.Source = "SELECT TOP 1 * FROM alumnos INNER JOIN pagos ON alumnos.cve_alumno = " & cve & " ORDER BY pagos.fecha DESC"

Excelente respuesta, iba a decir exactamente lo mismo! :chavo::chavo::chavo: