Visual Basic - algoritmo o funciòn

Life is soft - evento anual de software empresarial
 
Vista:

algoritmo o funciòn

Publicado por Carlos (17 intervenciones) el 17/07/2005 23:29:38
Amigos del foro buen dia y de antemano gracias. Estoy guardando en una tabla los nùmeros de recibo que se imprimen al dia, pero a veces no son correlativos exactos, por ejemplo, va 1,2,3 y despuès 5 ò 7. Necesito una funciòn que me devuelva cuàles no fueron impresos, en este caso 4 y 6. Habrà una funciòn especìfica para esto o creen ustedes que es con un algoritmo??. Si alguien tiene algo de esto favor pasàrmelo.
saludos y gracias de nuevo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 14
Ha aumentado 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:algoritmo o funciòn

Publicado por SuNcO (599 intervenciones) el 18/07/2005 00:26:57
Me hize una tabla de prueba con 1 sola columna llamada "numro" en la cual puse numeros del 1-7 excepto el 4 y 6 y co neste codigo si me los pone en un listbox

Private Sub Form_Load()
Dim Dbs As Database, Resultado As Recordset
Set Dbs = OpenDatabase("c:\prueba.mdb")

' buscamos el numero maximo
Set Resultado = Dbs.OpenRecordset("SELECT MAX(numero) FROM numeros;")

' vamos del 1 al numero maximo
For i = 1 To Resultado.Fields(0)
' buscamos el numero en que voy
Set Resultado = Dbs.OpenRecordset("SELECT numero FROM numeros WHERE numero=" & i & ";")
' si no hay resultado s que noexiste, entonces lo agregamos al listbox
If Resultado.RecordCount = 0 Then
List1.AddItem i
End If
Next i

Dbs.Close
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:algoritmo o funciòn

Publicado por Carlos (14 intervenciones) el 21/07/2005 15:07:08
muchas gracias, era justo la idea que necesitaba.
saludos.
Carlos
Guatemala
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar