Código fuente para Visual Basic 6.0 y SQL server.

Muchas veces se necesita partir linea a linea un archivo texto delimitado por algun caracter. Para realizar esto facilmente, podemos utilizar la funcion split() de visual basic la cual parte la cadena indicada en un arreglo dinamico, por tanto solo es necesario leer el arreglo desde 0 hasta el limite superior(Ubound()).
En el ejemplo se particiona un archivo delimitado por comas  y luego se los despliega en un  textbox multiline.

Ejemplo de creacion de un recordset en memoria, agregando campos y filas, es util para cargar datos unbound en un recordset y luego manejarlo como un objeto ADO recordset normal. :-)

Ejemplo interesante de como respaldar o restaurar una base de datos de SQL server utilizando los objetos SQLDMO para acceder a la base de datos. Ademas se utiliza la instruccion With Events para monitorear los eventos del respaldo/restauracion para determinar por ejm, el porcentaje de ejecucion o la terminacion de la tarea. Note que mediante la librerias SQLDMO puedes acceder a otras propiedades o tareas de SQL server directamente desde Visual Basic. Facil y muy Util!

De la Ayuda de Microsoft ADO: "Con la persistencia del recordset pueden guardarse datos y metadatos" "del Recordset como un archivo. Posteriormente, se utiliza el archivo" "de persistencia para volver a crear el objeto Recordset." "El archivo de persistencia puede existir en una unidad local, en un" "servidor de red, o como una URL de una página Web." Ud. puede recuperar informacion de la base de datos central en un recordset luego grabar la informacion en un archivo localmente en formato ADTG o XML. Posteriormente en cualquier momento puede abrir el recordset del archivo y lo mas importante utilizarlo como cualquier recordset. Por ejemplo: Al momento de iniciar la aplicacion puedo recuperar informacion de parametros, catalogos, informacion general de la empresa o usuario, todo esto del servidor central; luego en la aplicacion cuando necesite la informacion la recupero localmente. Obviamente se debe considerar cuestiones de seguridad en cuanto a realizar este tipo de proceso. La ventaja es clara disminuir el trafico de red y de carga al servidor central en cuanto a recuperacion de informacion frecuente de la base de datos. Nota: Para abrir los datos del archivo se debe utilizar el Provider=MSPersist

Se puede acceder facilmente a los objetos de SQL server mediante la libreria "Microsoft SQLDMO Object Library", solo debe agregarla en las referencias de su proyecto. Lo importante es que se puede acceder a las funcionalidades de SQL server disponibles en el Administrador Corporativo e incluso a opciones de chequeo y verificacion de consistencia de los objetos como bases de datos, tablas, indices, etc. Utilizar SQLDMO puede ser util para crear instaladores personalizados que permitar por ejemplo desadjuntar la base de datos, copiar los archivos, luego adjuntarla nuevamente y por ultimo verificar la consistencia de la informacion. Tambien puede crear tablas, indices, campos, etc. Incluso puede crear una base de datos, truncar el log de transacciones. Puede crear una aplicacion Visual Basic para crear backup's o realizar Restore's de la base de datos. Pude crear alertas, jobs, etc. Puede tener acceso a stored procedures, verificar los procesos activos, chequer el espacio utilizado, conceder y restringir permisos a los usuarios registrados en SQl server, regenerar indices, etc. En fin ud. debe juzgar en que casos puede utilizar SQLDMO, pero su estructura de objetos y la cantidad de metodos que tiene promete muchisimo.

Usted Puede Utilizar la referencia a Microsoft Excel 9.0 Object Library para abrir un archivo Excel y modificarlo. Esto es especialmente útil cuando tiene definidos formatos en Excel y ante todo cuando posterior a la carga de información desde Visual Basic el usuario necesita continuar trabajando o realizar otras modificaciones a la hoja de calculo. En este caso en el programa Visual Basic se definen los parámetros básicos para la realización de un préstamo, por tanto se piden los datos del cliente, monto, tasa y plazo. También está definida una hoja de cálculo llamada prueba.xls con el formato de una tabla de amortización. El programa abrirá el archivo prueba.xls y realizará las modificaciones en las celdas necesarias, además creará las fórmulas para el cálculo del pago de capital, interes y cuota, realizará las sumas, cambiará la apariencia de ciertas celdas y agregará un comentario en una celda. Esta es una alternativa a las macros de Excel: Se generan las plantillas y el programa Visual Basic graba la información y fórmulas necesarias.

Este es un pequeño programa utiliando Visual Basic 6.0 y Microsoft Access 2000 mediante ADO(ActiveX Data Objects 2.7) para que el ejemplo funcione correctamente debes instalar los siguientes OCX que no son mios, son de www.vbaccelerator.com, incluyo la carpeta OCX para que los registres, de todas formas es necesario que te informes de los derechos de autor de los controles. - SSUBTMR6.DLL - DLL de www.vbaccelerator.com. - VBALGRID6.OCX - Es un Grid Flexible, muy rrapido y liviano. - VBALIML6.OCX - Mejor que el ImageList de MMicrosoft. - MDAC 2.5 o superior(actualmente la versionn 2.7) (www.microsoft.com/data) Esta es una imagen de la pantalla principal se trata de una pantalla basica de control de Clientes de una empresa con sus datos, he incorporado campos de diferentes tipos de datos para comparar el manejo de los controles. En el caso de la ciudad tengo un boton de comando para desplegar un listado de las ciudades relacionadas; en este caso utilizo el control VBALGRID de vbaccelerator.com para desplegar un listado de las ciudades, me gusta este ocx porque se puede manejar ordenamientos al hacer click en la cabecera de las columnas, busquedas, una imagen de fondo, fondo por columna, etc..

SQL server 7.0 Visual Basic 6.0 IIS o PWS(Personal Web Server) ADO 2.x Mediante esta aplicacion sencilla Ud. puede ingresar al mundo de la construccion de paginas web dinamicas utilizando VB 6.0 con proyectos VB tiop IIS. Esta Aplicacion consulta un listado de clientes de la base de datos y los despliega dinamicamente en una pagina web, claro que el alcance de las webclasses van mas alla, ya que Ud. puede crear botones, listas, imagenes, tablas, texto, etc. Espero que sea util!!

Programa demostrativo de las bondades y calidad del control OCX CHAMELEONBUTTON propiedad de [email protected], tenga en cuenta los derechos de autor antes de utilizarlo para fines comerciales. Este OCX lo encontre en www.planet-source-code.com y es simplemente Excelente!! Ud. puede utilizar el mismo control y aplicarle los diferentes estilos como: Windows XP, Office XP, Mac, Transparente, Oval Flat, etc. Ademas puede establecer un picture Normal y otro MouseOver, ademas puede dar efectos a las letras de sombreado, bajo relieve, etc. Mediante este proyecto realizo una demostracion de la funcion CallByName de VB 6.0 Que se utiliza para asignar valores en propiedades, obtener valores y ejecutar metodos de un objeto indicando en una CADENA el nombre de la propiedad a afectar. .

Los paquetes DTS (Data Transformation Services) se utilizan para automatizar tareas de importacion, exportacion, carga masiva de datos desde o atraves de diferentes fuentes de datos; cuando se tiene fuentes heterogeneas de datos. Es ideal para ejecutar procesos batch de carga, verificacion de pasos entre tareas, tambien para el envio de informacion a un datawarehouse, puede realizar tareas de mineria de datos, en general tareas de transferencias de datos. Puede reportar los errores encontrados, e incluso enviarlo a un email utilizando Outlook, FTP, etc. Tambien puede ejecutar Sentencias SQL, Procedimientos almacenados, resumir datos y transformarlos a otra estructura de tabla. Definitivamente tiene un potencial impresionante para automatizar tareas, incluso se puede definir la fecha o periodicidad de ejecucion del paquete. Este ejemplo esta basado en un codigo de Microsoft para realizar la ejecucion de un paquete DTS grabado como archivo *.dts, la ventaja es que Ud. puede Seleccionar varios paquetes y ejecutarlos todos en lote y evitar la ejecucion individual desde Microsoft SQL SERVER 2000. Este ejemplo fue probado con la version de Microsoft SQL Server 2000 y VB 6.0 Para que el ejemplo funciones correctamente UD. debe crear un paquete de prueba en SQL server 2000 en el diseñador o mediante el asistente de importacion/exportacion de datos y luego grabar el destino a un archivo *.DTS.

En primer lugar es necesario agregar un componente (ctrl+T) a Microsoft Script Control(MSSCRIPT.OCX), en caso que no tenga instalado en su equipo lo puede localizar en www.microsoft.com/scripting En el evento Load agrego la declaración e inicializacion de dos variables a =1 y b=2. Note que la instrucción scriptcontrol.addcode utiliza como parámetro el codigo que deseamos agregar al motor de comandos: El motor de comandos puede utilizar como lenguaje Vbscript o Jscript. Ademas de estas opciones Ud. puede agregar procedimientos, módulos, también puede cambiar el lenguaje de Vbscript a Jscript, puede agregar definición de objetos dentro del motor de comandos, puede agregar control de errores, etc. Esto es apenas una muestra del poder del Microsoft Scripting Control, pero hay mucho mas...

Demo sencillo del uso del control MSchart de Microsoft unicamente para gráficos de lineas, Ud. puede agregar un cuadro combinado adicional para los tipos de gráficos y otras caracteristicas adicionales. Este ejemplo ilustra la toma de signos vitales de un paciente para un historial médico, mediante este ejemplo el médico puede ver la evolución histórico del paciente por cada uno de los parámetros como: Tensión arterial, Peso, Estatura, etc. En primer lugar se debe establecer el string de conexion a la base de datos, en este caso he utilizado un pequeña base de datos en Microsoft Access la cual contiene los signos vitales de cada paciente, tales como: temperatura, estatura, tension arterial, etc. En este caso he utilizado un control de datos ADO para la conexion y para recuperar el conjunto de registros de la historia de los signos vitales del paciente. Cabe indicar que Ud. puede utilizar el objeto ADODB.Conection para realizar la conexion teniendo el mismo efecto. Aunque el control Mschart Permite asociarlo a un datasource, en esta ocasion vamos a cargar el recordset en un arreglo y posteriormente los asignaremos a la propiedad MSChart1.ChartData, ademas mediante MSChart1.Plot.SeriesCollection(1).LegendText asignaremos el nombre de la serie de datos. Cuando el recordset este vacio debemos asignar el arreglo vacio mediante la funcion array(0,0). A continuacion una vision del codigo del programa. Como puede ver no es nada complicado incluir graficos a sus aplicaciones Visual Basic. Hasta la próxima!!

Ejemplo simple del uso del combo multicolumna que viene con la libreria Microsoft Forms 2.0 contenida en la libreria FM20.DLL de Microsoft, es facil de utilizar. La librerira FM20.DLL es la libreria de Microsoft Forms que se utiliza para crear los formularios en Microsoft Office: Word, Excel, Access, etc. Estos controles tiene caracteristicas especiales como tranparencia, picture de fondo, estilos elegantes, el combo es multicolumna(como en Microsoft Access), Lo importante es que desde sus programas VB Ud. puede utilizarlos facilmente. He aqui un muestra del combo multicolumna.

Esto es un ejemplo del uso de un control OCX propiedad de www.vbaccelerator.com muy facil de usar llamado CPOPMENU.OCX que permite asociar los menus estandar de Visual Basic a una lista de imagenes y ademas darles el estilo de Windows XP. Realmente es muy facil de usar y a continuacion explico su utilizacion. 1. Debe instalar CPOPMENU.OCX, bajelo de www.vbaccelerator.com. En primer lugar debemos crear un ImageList con las imagenes a asociar al menu, con la condicion de que el nombre de la clave(Key) de cada imagen sea igual al nombre de cada opcion de menu a asociar.

Ejemplo simple del uso del objeto DataEnvironment y DataReport para cambiar la ruta de la base de datos de Access y la sentencia SQL del objeto Command1 en tiempo de Ejecución e imprimir un solo registro.

Ejecutar un Stored Procedure utilizando ADO. El primer Sp es simple: devuelve un conjunto de filas. El segundo devuelve la cuenta del numero de empleados para un ID en un valor de retorno. Es decir tiene un parametro tipo Output. Este ejemplo utiliza los objetos ADODB.COMMAND y ADODB.PARAMETER. :-) Requerimientos: - Necesita SQL server - Crear en la base de datos PUBS los sps que anexo en los archivos: 1) sp_buscar_job.sql 2) sp_contar_empleados.sql - Tener instalado el MDAC 2.6 o superior (www.microsoft.com/data).

Se puede utilizas la libreria FM20.DLL, es decir la Microsoft Forms 2.0 Object Library para utilizar los controles boton, option, checkbox, combos(multicolumna) que utilizan Word, Excel, Access; Todo esto desde Visual basic 6.0 y cambiar el look de sus formularios. Lo mas interesante son los textboxes Transparentes y los combos multicolumna.

Usted Puede Utilizar la referencia a Microsoft Scripting Runtime para abrir, crear o modificar archiovos tipo texto, tanto como lectura, escritura o para agregar informacion. Utilizando los objetos de la libreria Microsoft Scripting Runtime.

Es conveniente crear un procedimiento genérico para quitar el elemento activo de una lista y pasarlo a otro. Como argumentos del procedimiento se debe pasar dos parametros tipo listbox para identificar a la lista origen y destino. Recuerde validar la existencia de datos en la lista, listcount es apropiado, tambien ListIndex = -1 nos indica que no hay ningun elemento seleccionado. Tambien es importante guardar el elemento a eliminar para que despues de la eliminacion del item dejar la posicion de la lista en el elemento siguiente al eliminado. Mediante el uso de .List(Indice) podemos recuperar cualquier elemento de la lista indicando el indice correcto. El metodo RemoveItem Indice, se utiliza para eliminar cualquier item de la lista.

Programa para actualizar automaticamente los archivos ejecutables, DLLS y OCX a la carpeta windows.