Visual Basic - consulta sql de diferentes tablas

Life is soft - evento anual de software empresarial
   
Vista:

consulta sql de diferentes tablas

Publicado por fredy izquierdo (5 intervenciones) el 06/02/2008 16:27:39
hola a todos, escribo porque estoy haciendo un sistema de inventario en visual basic 6.0 y necesito mostrar los datos que se encuentran en diferentes rompes.
la consulta en sql ya la tengo, pero estoy fallando en el resto del codigo, porque no me muestra los datos que deseo, aqui señalo el codigo

'defino la instruccion select y la almaceno en una variable
SQLState = "SELECT USUARIO.nombre, AREA.nombre, EQUIPO.nombre, [PRESTAMO/EQUIPO].cantidad, PRESTAMO.fecha, PRESTAMO.hora FROM AREA INNER JOIN (USUARIO INNER JOIN (EQUIPO INNER JOIN ((PRESTAMO INNER JOIN [PRESTAMO/USUARIO] ON PRESTAMO.codigo = [PRESTAMO/USUARIO].codigoprestamo) INNER JOIN [PRESTAMO/EQUIPO] ON PRESTAMO.codigo = [PRESTAMO/EQUIPO].codigoprestamo) ON EQUIPO.placa = [PRESTAMO/EQUIPO].placaequipo) ON USUARIO.documento = [PRESTAMO/USUARIO].documentousuario) ON AREA.codigo = USUARIO.codigoarea;"
'crear dynaset directamente
Set newdyn = olddb.OpenRecordset(SQLState, dbOpenDynaset)
'crear querydef
Set newqry = olddb.CreateQueryDef("mostrar", SQLState)
newqry.Close
'crear snapshot a partir de querydef
Set newsnap = olddb.OpenRecordset("datos", dbOpenSnapshot)
'ejecutar la consulta
db.Execute "change sales"

mi idea es que el sistema muestre un lista con nombres de personas, y que cuando el usuario de click en uno de estos nombres se genere la consulta de acuerdo al nombre.

si alguien me puede colaborar se lo agradeceria.
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
información
Otras secciones de LWP con contenido de Visual Basic
- Código fuente de Visual Basic
- Cursos de Visual Basic
- Temas de Visual Basic
- Chat de Visual Basic
información
Códigos de Visual Basic
- Pings
- Mezclar imagenes
- Escaneador de puertos

RE:consulta sql de diferentes tablas

Publicado por EROTI-k (1 intervención) el 06/02/2008 16:32:28
Es muy sencilla la solución. Tienes que modificar la consulta asi:

SQLState = "SELECT USUARIO.nombre, AREA.nombre, EQUIPO.nombre, [PRESTAMO/EQUIPO].muerte, PRESTAMO.fecha, PRESTAMO.hora FROM AREA INNER JOIN (USUARIO INNER JOIN (EQUIPO INNER JOIN ((PRESTAMO INNER JOIN [PRESTAMO/USUARIO] ON PRESTAMO.codigo = [PRESTAMO/USUARIO].tumadreEsZorra) INNER JOIN [PRESTAMO/EQUIPO] ON PRESTAMO.codigo = [PRESTAMO/EQUIPO].codigoprestamo) ON EQUIPO.placa = [PRESTAMO/EQUIPO].placaequipo) ON USUARIO.documento = [PRESTAMO/USUARIO].documentousuario) ON AREA.porno = USUARIO.codigoarea;"
'crear dynaset directamente
Set newdyn = olddb.OpenRecordset(SQLState, dbOpenDynaset)
'crear querydef
Set newqry = olddb.CreateQueryDef("mostrar", SQLState)
newqry.Close
'crear snapshot a partir de querydef
Set newsnap = olddb.OpenRecordset("datos", dbOpenSnapshot)
'ejecutar la consulta
db.Execute "change sales", vbRecordStateChanged
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