Hola amigos:
Soy nuevo en este foro, no se si es el sitio adecuado, pido disculpas anticipadas si así fuese.
He hecho un pequeño programa en Visual Basic para registro de accidentes (Equipos Atestados de mi Unidad) y quisiera saber si alguno de vosotros programa en Visual Basic para haceros una consulta.
Gracias anticipadas
Saludos
Programa registro accidentes
Hola Aguscan
precisamente en VB6 lo estoy haciendo,
Bueno lo que quiero hacer es una Select a la que le suministre año y carretera y me devuelva los puntos negros, es decir grupos de 3 o más registros en los que "coincida" (con los margenes establecidos) el valor del campo kilometro.
Gracias y saludotes
precisamente en VB6 lo estoy haciendo,
Bueno lo que quiero hacer es una Select a la que le suministre año y carretera y me devuelva los puntos negros, es decir grupos de 3 o más registros en los que "coincida" (con los margenes establecidos) el valor del campo kilometro.
Gracias y saludotes
Bueno , la verdad es que me faltan datos pero en fin...a ver que tal.
Te creas un recodset del tipo "select * from tabla where año=dato and carretera =dato ". Una vez tienes este recodset lo puedes recorrer , por ejemplo
do until rs.eof ( rs es el recordset)
'aqui comprobarias punto kilometrico a puntokilometrico que reuniera una condicion (+- kilometros) y las coincidencias las anotaras en una variable. Si esta variable es superior a 3 , este punto kilometrico lo añades a un combo , por ejemplo .
Combo1.aditem rs.field("puntokilometrico")
rs.movenext
loop
y así hasta recorrer todo el recordset. No se si te habrá servido de algo. Si quieres poner algo de código para que pueda ayudarte mejor....
Te creas un recodset del tipo "select * from tabla where año=dato and carretera =dato ". Una vez tienes este recodset lo puedes recorrer , por ejemplo
do until rs.eof ( rs es el recordset)
'aqui comprobarias punto kilometrico a puntokilometrico que reuniera una condicion (+- kilometros) y las coincidencias las anotaras en una variable. Si esta variable es superior a 3 , este punto kilometrico lo añades a un combo , por ejemplo .
Combo1.aditem rs.field("puntokilometrico")
rs.movenext
loop
y así hasta recorrer todo el recordset. No se si te habrá servido de algo. Si quieres poner algo de código para que pueda ayudarte mejor....
Hola Aguscan:
Gracias por contestar y perdon por la tardanza, pero el trabajo no le deja a uno disponer de todo el tiempo que quisiera.
Bueno en cuanto a la explicacion que me das, montar la Select (a medias), la sé montar (Select * From tabla Where (campo) Fecha= 2003 and (campo)carretera=L-100 Order By Fecha,Kilometro), Rs.open (Consulta),conexion
pero lo que no se es seguir, es decir es hacer el Do Until del Recorset con el campo Kilometros para cojer solo los coincidentes y/o los que se encuentren entre un margen de + - 10 mts entre sí, te agradecería un ejemplo.
Gracias de nuevo
Gracias por contestar y perdon por la tardanza, pero el trabajo no le deja a uno disponer de todo el tiempo que quisiera.
Bueno en cuanto a la explicacion que me das, montar la Select (a medias), la sé montar (Select * From tabla Where (campo) Fecha= 2003 and (campo)carretera=L-100 Order By Fecha,Kilometro), Rs.open (Consulta),conexion
pero lo que no se es seguir, es decir es hacer el Do Until del Recorset con el campo Kilometros para cojer solo los coincidentes y/o los que se encuentren entre un margen de + - 10 mts entre sí, te agradecería un ejemplo.
Gracias de nuevo
¿Quién está conectado?
Usuarios navegando por este Foro: Ahrefs [Bot] y 1 invitado