Suscríbete a Aprende-Viendo 5.0
Content
Postgresql + Vb6.0 +MSHFlexgrid no me carga los datos.¡¡¡
Hola grupo hace unos dias estuve x aqui... Ahora tengo un pequeño inconveniente no me carga los datos en la Mshflexgrid..
rs.Open "Select * from productos", CN, adOpenDynamic, adLockOptimistic '.cod_prod, productos.descripcion, categoria.descategoria, categoria.cod_catego, subcategoria.cod_subca, subcategoria.subcategorias, marca.cod_marca, marca.marcas, productos.observ, productos.cantidad, productos.costo, productos.subcosto, productos.stockminimo, productos.stockmaximo, productos.preventa, productos.totalventas FROM subcategoria INNER JOIN (marca INNER JOIN (categoria INNER JOIN productos ON categoria.cod_catego = productos.cod_catego) ON marca.cod_marca = productos.cod_marca) ON subcategoria.cod_subca = productos.cod_subca ORDER BY productos.cod_prod, productos.descripcion, categoria.descategoria, marca.marcas", CN, adOpenDynamic, adLockOptimistic
rs.Open "Select * from productos", CN, adOpenDynamic, adLockOptimistic '.cod_prod, productos.descripcion, categoria.descategoria, categoria.cod_catego, subcategoria.cod_subca, subcategoria.subcategorias, marca.cod_marca, marca.marcas, productos.observ, productos.cantidad, productos.costo, productos.subcosto, productos.stockminimo, productos.stockmaximo, productos.preventa, productos.totalventas FROM subcategoria INNER JOIN (marca INNER JOIN (categoria INNER JOIN productos ON categoria.cod_catego = productos.cod_catego) ON marca.cod_marca = productos.cod_marca) ON subcategoria.cod_subca = productos.cod_subca ORDER BY productos.cod_prod, productos.descripcion, categoria.descategoria, marca.marcas", CN, adOpenDynamic, adLockOptimistic
4 respuestas Agrear Respuesta
-
Bueno debido a que escribi mal lo coloco nuevamente y disculpen jejejeje
rs.Open "SELECT productos.cod_prod, productos.descripcion, categoria.cod_catego, categoria.descategoria, subcategoria.cod_subca, subcategoria.subcategorias, marca.cod_marca, marca.marcas, productos.stockminimo, productos.stockmaximo, productos.cantidad, productos.costo, productos.subcosto, productos.observ FROM subcategoria INNER JOIN (marca INNER JOIN (categoria INNER JOIN productos ON categoria.cod_catego = productos.cod_catego) ON marca.cod_marca = productos.cod_marca) ON subcategoria.cod_subca = productos.cod_subca ORDER BY productos.cod_prod, productos.descripcion, categoria.descategoria, marca.marcas", CN, adOpenForwardOnly, adLockReadOnly -
Hola José Ramirez.¡¡ Espero que estes bien... Solvente el problema anterior.. Gracias por ser colaborador y atento con todos los usuarios.. Ahora tengo una duda... Como hago para no eliminar un registro que este relacionado con una tabla?? y que al querer eliminar dicho registro me arroje un mensaje?? y si dicho registro no esta relacionado entonces que lo elimine.¡¡ Ejemplo: Las Tablas Categoria, Subcategoria y Marcas. estas 3 se relacionan con la tabla productos del cual ya tengo registros en mi tabla productos, y si al querer eliminar una marca esta está en relacion con la tabla productos me arroje el mensaje que nose puede eliminar, caso contrario que se elimine.... Espero haberme explicado.. De verdad no tengo idea de como hacerlo.. De ante mano gracias...
-
Hola Feliz año 2016!!
Para capturar errores en general y que no pare la aplicación puedes usar esto
Private Sub Command1_Click()
On Error GoTo HayError
'--> codigo
Exit Sub
HayError:
MsgBox "Se ha producido el siguiente error: " & vbCrLf & _
Err.Number & ", " & Err.Description
End Sub
Si estas usando recordset lo puedes filtrar así
rsProductos.requery
rsProductos.Filter = "IdMarca='" & VariablaMarca & "'
If rsProductos.eof then msgbox “No se puede eliminar esta marca”: exit sub
OJO, si usas el mismo recordset en varios lugares debes quitarle el filter así: rsProductos.Filter=""
Tambien puedes hacer validaciones en la bd con funciones, me comentas si lo quieres hacer asi.
Saludos..
Agradesco tu Paciencia. Muchas Gracias por la espera! Somos Aprende Viendo 5.0
Grupo AprendeViendo & Ronald López agradecen a todos sus fieles seguidores por la larga espera. Basados en nuestro nuevo concepto, Grupo Aprendeviendo les ofrece un sin fin de posibilidades en sus largas horas de adiestramiento y soluciones de problemas tanto empresariales como cotidianos. Sigamos siendo un portal de enseñanza de virtual gratuito y más que eso!
Copyright © 2006 - 2014 - Grupo AprendeViendo & Ronald López. Todos los Derechos Reservados
Grupo AprendeViendo a sido desarrollado por Ronald López - Kalizron. Esta prohibida su reproducción total o parcial sin previa autorización de parte de sus autores. Ronald López Bahamonde - Resolución: 1024-768 - Aviso Legal - Términos de Uso