Para los que nos gusta manejar cadenas cuando programamos, en PHP existe 2 funciones que nos permiten convertir un arreglo en cadena definiend un delimitador y viceversa
Esta es una pequeña aplicacion que abre una ventana de EXCEL (la que tengas instalado en tu PC) con la puedes agregar un Libro (nuevo documento), agregar una Hoja a ese libro y agregar datos al mismo usando las coodenadas de Excel (Fila x Columna)
Este Codigo lo tengo hace ya muchos años, sirve para hacer un formulario con la forma de una imagen, el unico requisito que se pide es que la imagen esté bordeada complemetamente de cualquier color y es ese color el que será transparente en el formulario
A veces a los botones hay que ponerles una imagen bonita para hacerlo más llamativo o facil de reconocer y ahí es cuando perdemos el tiempo buscando alguna que sea significativa para la accion que realiza
Aqui les traigo una coleccion de botones tipicos para usarlos cuando manejes datos desde un motor de base de datos
Están en un proyecto en Visual Basic 6.0 listo para abrir y copiar
Este es un Ejemplo de Uso de ADO y DAO en Visual Basic 6.0 con Clases del tipo Recordset. Hace las operaciones Básicas de Edicion, Grabacion Nuevo sobre una base de Datos hecha en Access 2000 (db.Provider = “Microsoft.Jet.OLEDB.4.0″)
Con esto puedes aprender lo básico para el manejo de datos conectandose a un sistema de motor de base de datos
Y tu variable Rs tendra Eventos como si fuera un control pegado en el formulario, puedes hacer esto con todas las varibles tipo objetos (y que tenga eventos)
Muchos programadores usan cualquiera de estos controles para mostrar una imagen, (usualemente el que esta mas cerca del puntero mouse) pero existe una gran diferencia entre ambos
PrivateSub LlenaExcel() Dim prgExcel As Excel.Application Set prgExcel = New Application
prgExcel.Workbooks.Add
prgExcel.Sheets(1).Name = "Prueba" Dim i AsInteger Dim j AsInteger
j = 1 DoWhileNot Rs.EOF For i = 0 To Rs.Fields.Count - 1
prgExcel.Cells(j + 1, i + 1) = Rs.Fields(i).Value Next
Rs.MoveNext
j = j + 1
Loop
For i = 1 To Rs.Fields.Count
prgExcel.Cells(1, i) = Rs.Fields(i - 1).Name
prgExcel.Cells(1, i).EntireColumn.AutoFit Next
