Temas de politicas

Liceo Canadiense Centro
5to. Perito Contador
Materia: Programación
Jornada: Matutina
Docente: PEM Pablo Temaj

SERIE DE INSTRUCCIONES

EDGAR AUGUSTO MORALES PRADO

Instrucción Open:
La instrucción Open (abrir) le dice a Visual Basic a qué archivo debe acceder. La sintaxis es:
Open NombreDeArchivo For {Input | Output| Append} As #NúmeroDeArchivo
Donde Input indica si se quiere leerdel archivo, Output si se quiere escribir de él, Append si se quiere añadir información al final del fichero y, NumeroDeArchivo es un número entre 1 y 255. Si se trata de abrir para lectura un archivo que no existe, se producirá un error. Si se abre para escritura Visual Basic creará un nuevo archivo, reemplazando cualquier archivo con ese nombre. Si no se sabe qué número de archivo está libre, seutilizará el siguiente código:
NumArchivo = FreeFile
Open NomArch For {Input | Output} As #NumArchivo
CERRAR ARCHIVOS SECUENCIALES
Después de trabajar con un archivo, se debe cerrar con la instrucción Close, cuya sintaxis es:
Close #NúmeroDeArchivo
Si la intrucción Close se utiliza sin poner NumeroDeArchivo, se cerrarán todos los ficheros abiertos.
LEER DE ARCHIVOS SECUENCIALES
Para leerde un archivo secuencial se utilizará la instrucción Line Input que permite leer una línea cada vez y que tiene la sintaxis:
Line Input #NúmeroDeArchivo, VariableDeCadena
O bien se utilizarán las órdenes:
Input #NúmeroDeArchivo, VariableDeCadena
VariableDeCadena = Input (NúmCaracteres, #NúmeroDeArchivo)
Donde la última instrucción, permite leer un número determinado de caracteres y, estálimitado a ficheros de 32.767 bytes máximo.
Instrucción Print:
La instrucción PRINT se utiliza para devolver mensajes a aplicaciones. PRINT toma una expresión de una cadena Unicode o de caracteres como parámetro y devuelve la cadena como mensaje a la aplicación. El mensaje se devuelve como un error informativo a las aplicaciones que utilizan el espacio de nombres SQLClient u objetos de datos ActiveX(ADO), OLE DB y las interfaces de programación de aplicaciones (API) de Conectividad abierta de bases de datos (ODBC). SQLSTATE se establece en 01000, el error nativo se establece en 0 y la cadena del mensaje de error se establece en la cadena de caracteres especificada en la instrucción PRINT. La cadena se devuelve a la función de devolución de llamada del controlador del mensaje en lasaplicaciones de DB-Library.
La instrucción PRINT acepta cualquier expresión de cadena de caracteres, incluidas las constantes de caracteres o Unicode, un nombre de variable local de caracteres o Unicode, o bien una función que devuelve un cadena de caracteres o Unicode. PRINT también acepta cadenas complejas creadas concatenando dos o más constantes, variables locales o funciones.
Utilice PRINT paraayudar a solucionar problemas de código Transact-SQL, compruebe los valores de los datos o cree informes.
En el siguiente ejemplo se utiliza PRINT dentro de una instrucción IF para devolver un mensaje cuando el número de producto de Hex Nut 17 cae por debajo de 1100.
USE AdventureWorks2008R2;
GO
IF (SELECT SUM (i.Quantity)
FROMProduction.ProductInventory I
JOIN Production.Product p
ON i.ProductID = p.ProductID
WHERE Name = 'Hex Nut 17'
) < 1100
PRINT N'There are less than 1100 units of Hex Nut 17 in stock.'
GO
Instrucción Write:
diferencia de Print, la sentencia Write escribe datos en un archivoseparados por comas.
Ejemplo: 
-------------------------------------------------
Dim nombre As String
Dim apellido As String
-------------------------------------------------
apellido = "Peres"

-------------------------------------------------
nombre = "Carlos"
-------------------------------------------------
Open...