Mensajes

No uses mid, usa MidB$(). Hay diferencia de tiempo en bucles taan largos.
Enumera los archivos de la carpeta y abre uno a uno. Usa google.

DoEvents!

Los campos son los dados, mira, el enunciado del ejercicio es literalmente así:

1.- Dada la relación
    Escuela(alumno, idioma, profesor)
Sabiendo que en todos los casos que:
    Un idioma lo imparten varios profesores.
    Un idioma lo cursan varios alumnos.
    Un profesor tiene varios alumnos.
1.1 Determinar la forma normal y la clave de relación Escuela en los distintos supuestos que se establecen a continuación.
1.2 Establecer, en cada caso las dependencias funcionales y descomponer la relación, si es necesario, para llevarla al menos a 3FN.
    a) Un alumno cursa varios idiomas y un profesor imparte varios idiomas.
    b) Un alumno solo cursa un idioma y un profesor puede impartir varios idiomas.
    c) Un profesor imparte un idioma y un alumno cursa un idioma.

¡Muchas gracias!

[3FN]

No amigo, éso ya lo sé. Concretamente busco esto:

Quiero determinar la forma normal, pasarlo a 3FN si fuera necesario y determinar la clave de la relación Escuela en los siguientes casos:

Primera forma normal
Segunda forma normal
Tercera forma normal

Gracias.

[3FN]

Hola chicos, vengo aquí con alguna dudilla acerda de modelos relacionales.

Si tengo la relación:

Código [Seleccionar] Expandir

Escuela (alumno, idioma, profesor)

En todos los casos:

• Un idioma lo imparten varios profesores.
• Un idioma lo cursan varios alumnos.
• Un profesor tiene varios alumnos.

Quiero determinar la forma normal, pasarlo a 3FN si fuera necesario y determinar la clave de la relación Escuela en los siguientes casos:


Caso A:
Un alumno cursa varios idiomas y un profesor imparte varios idiomas.

Caso B:
Un alumno solo cursa un idioma y un profesor imparte varios idiomas.

Caso C:
Un alumno solo cursa un idioma y un profesor sólo imparte un idioma.


He mirado algo de documentación al respecto pero sigo sin aclararme.

¡Muchas gracias! 

Mirad este código:

Código (sql) [Seleccionar] Expandir


DECLARE
vsalario EMPLEADO.salario%TYPE;

CURSOR cmayor (mas number) is
select nombre, salario
from empleado
where salario=vsalario;

BEGIN
SELECT MAX(SALARIO) INTO VSALARIO
FROM EMPLEADO;

FOR VMAYOR IN CMAYOR (VSALARIO) LOOP
DBMS_OUTPUT.PUT_LINE('NOMBRE' || VMAYOR.NOMBRE);
DBMS_OUTPUT.PUT_LINE('SALARIO' || VMAYOR.SALARIO);
END LOOP;
END;

Fijaros que en el cursor:

Código [Seleccionar] Expandir

CURSOR cmayor (mas number) is
select nombre, salario
from empleado
where salario=vsalario;

El parámetro "mas" no se utiliza, en su lugar aparece "vsalario".
Es una pregunta que me han puesto en un examen, no pido saber si es lógica, quiero saber si el código funcionaría.

Gracias.

alguien sabia que word tiene autoresumen?

capas que podes ver como lo hace
Digo, no se, me parece

Hola Elemental, sí, claro que lo sabía. El problema es los autoresumenes del Word dejan mucho que desear y creo que entre todos y pensando un poco podemos hacer algo mejor. 

DoEvents!

[esto]

Voy a hacer una función que resuma un texto, para ello había pensado:

• 
  Comprobar que hay una correcta ortografía con esto.
  
  • Guardar oraciones en arrays y buscar palabras más repetidas (omitiendo artículos, preposiciones y demás usando un motor de análisis sintáctico) y dar prioridad a las oraciones dónde salgan éstas.
  • Identificar títulos.
  • Identificar palabras con mayúsculas.
  • Utilizar sinónimos en las palabras no principales.
  • Acortar enumeraciones largas que acaben en "etc" o "..."
  
  Información relevante:
  
  
  
  • Documentación 1
  • Documentación 2
  • Documentación 3
  
  Poned ideas, fragmentos de algoritmos o documentación interesante.
  
  DoEvents!

[String vacío]

Hombre, ya sé que ingresé mal, lo hice queriendo. Una función no puede fallar en ningún caso. En los ejemplos que te puse debería de devolver un String vacío.
Imagina que tengo el HTML de una web, quiero recortar un trozo, han cambiado algo en el code y tu función nos devuelve algo que no es correcto o nos crashea (cómo en el segundo caso).

DoEvents!

[API-Doping]

Dejo la mía:

Código (vb) [Seleccionar] Expandir

Option Explicit

'by Psyke1
Public Static Function TextBTWWords(ByRef sMain As String, ByRef s1 As String, ByRef s2 As String) As String
Dim lPos1                   As Long
Dim lPos2                   As Long
Dim lStart                  As Long

   lPos1 = InStrB(1, sMain, s1, vbBinaryCompare)
   If lPos1 = 0 Then Exit Function

   lStart = lPos1 + LenB(s1)
   lPos2 = InStrB(lStart, sMain, s2, vbBinaryCompare)
   If lPos2 = 0 Then Exit Function

   TextBTWWords = MidB$(sMain, lStart, lPos2 - lStart)
End Function

Private Sub Form_Load()
   Debug.Print TextBTWWords("qwertysdfcv [raul338 es feo] prueba", "[", "]")
   Debug.Print TextBTWWords("aitheoiethi[BLABLABLA]taihoithaoihtoea", "(", "]")
   Debug.Print TextBTWWords("aitheoiethi[BLABLABLA)taihoithaoihtoea", ")", "[")
   Debug.Print TextBTWWords("qwertysdfcv raul338 es feo] prueba", "[", "]")
   Debug.Print TextBTWWords("aitheoiet[hi[BLABLABLA]taihoithaoihtoea", "[", "]")
End Sub

El domingo pongo mi versión API-Doping, aunque dudo que se pueda hacer más rápida aún...
Demostradme que me equivoco.

DoEvents!

Toma, aquí te dejo un par de errores:

Código (vb) [Seleccionar] Expandir



Option Explicit

Private Sub Form_Load()
   MsgBox EntreTextos("aitheoiethi[BLABLABLA]taihoithaoihtoea", "(", "]")
   MsgBox EntreTextos("aitheoiethi[BLABLABLA)taihoithaoihtoea", ")", "[")
End Sub

Public Function EntreTextos(Text As String, Text1 As String, Text2 As String) As String
   EntreTextos = MidB$(Text, InStrB(Text, Text1) + LenB(Text1), InStrB(Text, Text2) - InStrB(Text, Text1) - LenB(Text1))
End Function

Más rápida con cadenas largas habría que verlo.

DoEvents!