DECLARE @NombreTabla AS VARCHAR(50)
SET @NombreTabla = 'tblUsuario'
 
SELECT FK.TABLE_NAME AS 'Nombre Tabla',
	   CU.COLUMN_NAME AS 'Columna Llave Foranea',
	   PK.TABLE_NAME AS 'Tabla Llave Primaria',
	   PT.COLUMN_NAME AS 'Columna Llave Primaria',
	   C.CONSTRAINT_NAME AS 'Entidad Relación'
	FROM INFORMATION_SCHEMA.REFERENTIAL_CONSTRAINTS C
	  INNER JOIN INFORMATION_SCHEMA.TABLE_CONSTRAINTS FK
	    ON C.CONSTRAINT_NAME = FK.CONSTRAINT_NAME
	  INNER JOIN INFORMATION_SCHEMA.TABLE_CONSTRAINTS PK
	    ON C.UNIQUE_CONSTRAINT_NAME = PK.CONSTRAINT_NAME
	  INNER JOIN INFORMATION_SCHEMA.KEY_COLUMN_USAGE CU
		ON C.CONSTRAINT_NAME = CU.CONSTRAINT_NAME
	  INNER JOIN( SELECT TC.TABLE_NAME, CU.COLUMN_NAME FROM INFORMATION_SCHEMA.TABLE_CONSTRAINTS TC
		INNER JOIN INFORMATION_SCHEMA.KEY_COLUMN_USAGE CU
		   ON TC.CONSTRAINT_NAME = CU.CONSTRAINT_NAME
			 WHERE TC.CONSTRAINT_TYPE = 'PRIMARY KEY'
	  ) PT
	    ON PT.TABLE_NAME = PK.TABLE_NAME
		  WHERE PK.TABLE_NAME = @NombreTabla

tblPrestamos	intIDUsuario	tblUsuario	intID	FK_tblPrestamos_tblUsuario
tblReservas	intIDUsuario	tblUsuario	intID	FK_tblReservas_tblUsuario
tblSanciones	intIDUsuario	tblUsuario	intID	FK_tblSanciones_tblUsuario

            double medidor = Convert.ToDouble(textBox1.Text);
            if (medidor > 0.3){
                textBox2.Text = ("Esta alcoholizado");
            }else{
                textBox2.Text = ("Su nivel es normal");
            }

 MsgBox(Math.Sqrt(0 - 4))

        Dim x1, x2, bn As Double
        Dim a, b, c As Integer
 
        a = 1
        b = 6
        c = 1
 
        bn = b * -1
 
        x1 = (bn + Math.Sqrt(b ^ 2 - 4 * a * c)) / (2 *a)
        x2 = (bn - Math.Sqrt(b ^ 2 - 4 * a * c)) / (2 * a)
 
        MsgBox(x1)
        MsgBox(x2)