strike
lo que se puede realizar en este caso, es que al paciente, le agregues una columna, en donde puedas escribir la combinacion de medicinas y/o alimentos
preguntas de rigor, tus tablas de alimentos y medicinas, tienes una cmpo especifico para llamarlos?? por ejemplo
nombre ..///... especifico
valium ..///.... med1
me refiero a esto, si a un paciente se le receta una combinacion de alimntos y medicinas, agregarlos a la columna que llamariasmos por decir:"
receta"
dentro de este campo, agregarias las combinaciones, separando cada alimento, medicina mediante "
,"(comas). por que con comas... es mas sencillo manipular... por que???
mira, si el valor del campo("receta") contiene
med1,com12,com15,med16,com45
entonces en el procedimiento para mostrar esos valores
Código PHP:
dim medi(0)
dim alime(0)
'PRIMERO CREAMOS EL ARREGLO DE LOS DATOS
a=split(campo("receta"),",")
'CONSULTAMOS EL ARREGLO
for i=0 to ubound(campo)
'CREAMOS UN TEMPORAL PARA EVALUACION
temp=left(a(i),2)
'separamos las medicinas de los alimentos
en arreglos independientes
select case temp
case "med" redim preserve medi(i)=campo(i)
case "com" redim preserve alime(i)=campo(i)end select
next
una ves que ya tenemos nuestros arreglos de comidas y alimentos separados... ya podemos usarlo en la consulta directa a la tabla
Código PHP:
function consulta(criterio, tabla)
select case tabla
case 1 SQL="SELECT campo1,campo2,campo3 FROM alimentos where especifico= ' " & criterio & " ';"
case 2 SQL="SELECT campo1,campo2,campo3 FROM medicinas where especifico= ' " & criterio & " ';"
end select
StrCxn="Provider=sqloledb;Initial Catalog=TABLA;User Id=UserID;Password=Pass;"
'definicion de las variables
set oCxn=server.CreateObject("ADODB.Connection")
'apertura de la base
oCxn.open StrCxn
set RS=oConn.execute(SQL)
if Err=0 then
if RS.EOF=FALSE then
response.write "Alimento :"&RS.Fields.Item("campo1").value
else
response.write "No Existe en base de datos"
end if
end if
end function
una idea inicial... espero e guie
suerte
