|
Página 3 de 3
|
Consulta Mysql Donde Una Tabla Tiene Varios Campos Que Llaman A Una Misma Tablas
Autor |
Mensaje |
aratar79
Aprendiz
Registrado: Agosto 2012
Mensajes: 66
Edad: 45 Ubicación:
|
Re: Consulta Mysql Donde Una Tabla Tiene Varios Campos Que Llaman A Una Misma Tablas
Gracias Dani agradezco vuestra ayuda cuando tenga algo con cara y ojos lo subire de momento sigo peleando con el SQL, por cierto un amiguito me ayudó con la consulta, la dejo aqui por si alguien tiene una duda parecida, me encanta gambas, me encanta este foro y estoy disfrutando con ello, gracias.
SELECT
rec.NombreReceta AS receta,
ing.descripcion AS ingrediente,
rel.cantidad
FROM
recetas rec
LEFT JOIN RelacionRecetasIngredientes rel ON rel.idReceta = rec.ID_receta
LEFT JOIN ingredientes ing ON rel.idIngrediente = ing.ID_ingrediente
WHERE
rec.ID_receta = '1';
+-----------------+-----------------------------------+----------+
| receta | ingrediente | cantidad |
+-----------------+-----------------------------------+----------+
| RECETA PRUEBA 1 | ATUN ACEITE VEGETAL 1K PESCAMAR | 150.00 |
| RECETA PRUEBA 1 | CARNE PICADA TERNERA 100 % | 300.00 |
| RECETA PRUEBA 1 | BERENJENA LARGA EXTRA | 100.00 |
| RECETA PRUEBA 1 | TOMATE CHERRY JARDIN ROJO BANDEJA | 50.00 |
+-----------------+-----------------------------------+----------+
4 rows IN SET (0.00 sec)
|
#21 Jueves, 27 Septiembre 2012, 20:47 |
|
|
aratar79
Aprendiz
Registrado: Agosto 2012
Mensajes: 66
Edad: 45 Ubicación:
|
Re: Consulta Mysql Donde Una Tabla Tiene Varios Campos Que Llaman A Una Misma Tablas
Hola a todos, un saludo. Dejo aquí el código que he dejado al final en la consulta de recetas, gracias por vuestra ayuda sin ella no hubiera sido capaz:
ModCon.conectar()
fila = GridViewRecetas.Row
For columna = 0 To GridViewRecetas.Columns.Count
Label2.Text = GridViewRecetas[fila, 0].Text
valor = CInt(Label2.Text)
Sql1 = "select ID_Receta, NombreReceta, ingrediente, info, notas, instruciones, raciones, pvp, pvc, pvcIva, porcentaje, tipoT, tipoD, TipoM ,tipoP, tipoC,"
Sql2 = "tipoE From recetas, TempServicio, TipoDificil, TipoMaquinaria, TipoPlato, TiposConservacion, TiposElaboracion where ID_Receta = '" & valor & "' and Elaboracion = ID_Elaboracion And "
Sql3 = "Conservacion = ID_Conservacion And Temp = ID_Temp And Plato = ID_Plato And Dificultad = ID_Dificultad And Maquinaria = ID_Maquinaria;"
$result = ModCon.$con.Exec(Sql1 & Sql2 & Sql3)
TextBox1.Text = $result!NombreReceta
cmbTipoElav.Text = $result!tipoE
cmbTempoSer.Text = $result!tipoT
cmbTipoCons.Text = $result!tipoC
cmbTipoDificil.Text = $result!tipoD
cmbTipoMaquina.Text = $result!TipoM
cmbTipoPlato.Text = $result!tipoP
txtAinfo.Text = $result!info
TextArea2.Text = $result!notas
TextArea3.Text = $result!instruciones
vbnumRacion.Value = $result!raciones
vbPvP.Value = $result!pvp
vbCoste.Value = $result!pvcIva
vbPvPpRaciones.Value = $result!pvc
Sql4 = "SELECT rec.NombreReceta As Receta, ing.descripcion As Ingrediente, unidades, PrecioMermaIva, rel.cantidad From recetas rec Left JOIN RelacionRecetasIngredientes rel On rel.idReceta = rec.ID_receta"
Sql5 = " Left JOIN ingredientes ing On rel.idIngrediente = ing.ID_ingrediente WHERE rec.ID_receta = '" & valor & "'"
$result2 = ModCon.$con.Exec(Sql4 & Sql5)
Objetos.ReiniciaObjetos(ConsultarPlatos, "cmbingre", "VBcant")
ObjCont = 0
While $result2.Available
CmbTemp[ObjCont].Text = $result2!Ingrediente
VbTemp[ObjCont].Value = $result2!cantidad
ObjCont = ObjCont + 1
$result2.MoveNext
Wend
Next
ModCon.$con.Close()
Un Saludo.
|
#22 Domingo, 30 Septiembre 2012, 21:33 |
|
|
|
Temas parecidos
Temas parecidos
|
Página 3 de 3
|
Usuarios navegando en este tema: 0 registrados, 0 ocultos y 0 invitados Usuarios registrados conectados: Ninguno
|
No puede crear mensajes No puede responder temas No puede editar sus mensajes No puede borrar sus mensajes No puede votar en encuestas No puede adjuntar archivos Puede descargar archivos No puede publicar eventos en el calendario
|
|
|
|
|