El uso de Implode y Explode de PHP

3 agosto 2010 por Jhonnyf


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

La funcion Implode:
Sintaxis: “string implode ( string $glue , array $pieces )”

Basicamente convierte cualquier Array ($pieces) dimensional en una Cadena separado por el delimitador ($glue)

ejemplo:

$miarreglo1 = array('el','codigo','fuente');

$miarreglo2[] = 'Programacion';
$miarreglo2[] = 'en';
$miarreglo2[] = 'php';

$salida1 = implode('-',$miarreglo1);
$salida2 = implode('|',$miarreglo2);

echo $salida1;
echo '<br />';
echo $salida2;

El Resultado será 2 cadenas con lo siguiente: :
>> Leer Artículo completo

Abrir Excel y manejar libros, hojas, celdas, etc (Visual Basic 6.0)

3 agosto 2010 por Jhonnyf


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)

>> Leer Artículo completo

Formulario de cualquier forma (Presentaciones, Splash, Acerca de)

3 agosto 2010 por Jhonnyf


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 :D

aqui una imagen para que se hagan una idea

>> Leer Artículo completo

Ejemplo de Manejo de Sockets (Crear un mini troyano)

3 agosto 2010 por Jhonnyf


Este es un ejemplo del manejo de la libreria WINSOCK para comunicarnos atravez de TCPIP con un puerto Socket

Puedes probar las 2 aplicaciones abriendo en una misma PC los 2 proyectos y conectandote o en RED poniendo el IP de la otra PC

>> Leer Artículo completo

Botones para Proyectos de Base de datos (Visual Basic 6.0)

3 agosto 2010 por Jhonnyf


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 :D

Archivos adjuntos
Tipo de Archivo: zip Botones con Imagenes (28)

Están en un proyecto en Visual Basic 6.0 listo para abrir y copiar

Ejemplo de uso de ADO y DAO en Visual Basic

3 agosto 2010 por Jhonnyf


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

Archivos adjuntos
Tipo de Archivo: zip StudentIdADO (37)
Tipo de Archivo: zip StudentIdDAO (25)

Crear Variables con Eventos (por Ejemplo un RecordSet)

3 agosto 2010 por Jhonnyf


Este codigo es super sencillo :D

Option Explicit
Dim WithEvents Rs As Recordset

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)

>> Leer Artículo completo

PictureBox vs Image en Visual Basic 6.0

3 agosto 2010 por Jhonnyf


Hola a todos

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

>> Leer Artículo completo

Llamar a Excel y llenarlo con datos de un RecordSet

3 agosto 2010 por Jhonnyf


Hacer Referencia a Microsoft Excel Objetc

Private Sub LlenaExcel()
Dim prgExcel As Excel.Application
Set prgExcel = New Application
prgExcel.Workbooks.Add
prgExcel.Sheets(1).Name = "Prueba"
Dim i As Integer
Dim j As Integer
j = 1
Do While Not 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

prgExcel.Cells(1, 1).Select
prgExcel.Selection.EntireRow.Insert
prgExcel.Visible = True
Rs.MoveFirst
'prgExcel.Quit
End Sub

Cuando haces la Referencia puedes encontrar lo Siguiente
Microsoft 8.00 Excel Objetc
Microsoft 11.00 Excel Objetc
>> Leer Artículo completo

Filtro Multiple (like ‘%codigo%’ and like ‘%fuente%’)

3 agosto 2010 por Jhonnyf


Esta función les va a servir un monton cuando tengan que hacer filtros ya sea con la propiedad filter del recordset o haciendolo en consulta

Solo Tienen que pasarle como parametros lo que va a buscar
Ejemplo:
FiltroMultiple “Juan Perez”,”Nombre”
Y les va a crear el Filtro asi:

Nombre like ‘%Juan%’ and Nombre like ‘%Perez%’

>> Leer Artículo completo