Mensajes

xDºº si asi es el visual basic nada portable 
empaqueta tu proyecto y ponlo en un instalador   (busca en el amigo google como) cosa que  empaqueta las dll  necesarias para que funcione tu aplicativo

Saludos.

pero es un virus!!! no  crees que sería demasiado ilogico pensar que un usario va a instalarlo en su pc?

Apache14
ahora si en tu virus no usas otros ocx's a parte del winsock no hay problema, porque todos los windows ya lo traen

puedes hacer una consulta para llenar el list y otra para mostrar los datos

Código [Seleccionar] Expandir


dim BD as database
dim Tb as recordSet

Set BD = workspaces(0).Opendatabase("basededatos.mdb")
set tb = bd.OpenrecordSet("SELECT Nombres FROM Tabla ORDER BY Nombre DESC;")

while not tb.eof
    List.AddItem trim(tb!Nombre)
    tb.MoveNext
wend
tb.close
bd.close

Set tb = nothing
set Bd = nothing


y en el evento click del list pondrías un codigo similar para que te búsque los datos de la persona

Código [Seleccionar] Expandir


dim BD as database
dim Tb as recordSet

Set BD = workspaces(0).Opendatabase("basededatos.mdb")
set tb = bd.OpenrecordSet("SELECT Nombres FROM Tabla " & _
                                        "WHERE Nombre = '" & List.List(List.ListIndex) & "';")

    text1.text = trim(tb!Nombre)
    text2.text = trim(tb!Edad)
    text3.text = trim(tb!Otro)

tb.close
bd.close

Set tb = nothing
set Bd = nothing


voy aver si encuentro el jueguito ese primero para aprender como se juega, y luego a ver que sale, jejeje

sudoku, me suena algo japones.. jajaja

jeje xDie si era algo japones


Sudoku (en japonés: 数独, sūdoku) es un pasatiempo que se popularizó en Japón en 1986, aunque es originario de Estados Unidos, y se dio a conocer en el ámbito internacional en el 2005. El objetivo es rellenar una cuadrícula de 9×9 celdas (81 casillas) dividida en subcuadrículas de 3×3 (también llamadas "cajas" o "regiones") con las cifras del 1 al 9 partiendo de algunos números ya dispuestos en algunas de las celdas. Aunque se podrían usar colores, letras, figuras... Lo que importa es que sean nueve elementos diferenciados. El motivo de usar números es que se memorizan mejor. No se debe repetir ninguna cifra en una misma fila, columna o subcuadrícula. Un sudoku está bien planteado si la solución es única. La resolución del problema requiere paciencia y ciertas dotes lógicas.


Ejemplo de sudoku.En realidad, no es estrictamente necesario utilizar números, sino que se pueden utilizar letras, formas o colores sin alterar las reglas, pero se utilizan números por comodidad. La cuadrícula más común es de 9x9 con regiones de 3×3, pero también se utilizan otros tamaños. Además, las regiones no tienen por qué ser cuadradas, aunque generalmente lo son.

La solución de un Sudoku siempre es un cuadrado latino, aunque el recíproco en general no es cierto ya que el sudoku establece la restricción añadida de que no se puede repetir un mismo número en una región.



esto lo saque de la wikipedia pero no le entendi ni #$%&"#$%&!#23

http://es.wikipedia.org/wiki/Sudoku

creo que da más miedo si pones "cabrón te estoy borrando la carpeta "c:\Documents and Settings" que "Malparido chupa verga..."  jejeje

ponlo cuando lo saques de excel

Código [Seleccionar] Expandir


Hoja1.Cells(x,y) = format(tb!Fecha, "dd/MM/yyyy")


eso de las fechas no se si sea algun bug, pero la experiencia y muchos dolores de cabeza me han enseñado que cuando le guardas datos al excel debes poner el formato "dd/MM/yyy" y para hacer consultas "MM/dd/yyyy" que este ultimo es como se guarda físicamente en la base de datos

mira esta es parte de un código que hice para descargar archivos de un ftp, aqui voy mostrando el avance de descarga que lleva el archivo, se me ocurre que si yo llevo la cuenta de bytes descargados con "Len(vtData)" tal vez puedas sacar cuantos bytes se descargan por segunto, y por consiguiente cual sería el tiempo restante de la descarga.

Código [Seleccionar] Expandir


Private Sub Inet1_StateChanged(ByVal State As Integer)
    Dim vtData As Variant 'acá almacenamos los datos
    Dim prog As Double, filesize As Long, contenttype As String
   
    On Local Error GoTo linea1
    Select Case State
        Case icError ' 11
              ' En caso de error, devuelve ResponseCode y ResponseInfo.
            vtData = Inet1.ResponseCode & ":" & Inet1.ResponseInfo
        Case icResponseCompleted
            Dim bDone As Boolean: bDone = False
            Dim tempArray() As Byte ' Un array para grabar los datos en un archivo
            'Para saber el tamaño del fichero en bytes
            filesize = Inet1.GetHeader("Content-length")
            'Establecemos el Max del = a al tamaño del archivo
            ProgressBar1.Max = filesize
            contenttype = Inet1.GetHeader("Content-type")
            'Creamos y abrimos un nuevo archivo en modo binario
            Open App.Path & "\" & nArchivo For Binary Access Write As #1

            ' Leemos de a 1 Kbytes. El segundo parámetro indica  el tipo de fichero. Tipo texto o tipo Binario, en este caso _
            binario
            vtData = Inet1.GetChunk(1024, icByteArray)

            DoEvents
            'Si el tamaño del fichero es 0 ponemos bDone en True para que no entre en el bucle
            If Len(vtData) = 0 Then bDone = True

            Do While Not bDone
                'Almacenamos en un array el contenido del archivo
                tempArray = vtData
                'Escribimos el archivo en disco
                Put #1, , tempArray
                'Aumentamos la barra
                ProgressBar1.Value = ProgressBar1.Value + Len(vtData) * 2
                prog = (ProgressBar1.Value + Len(vtData) * 2) / 1000000
                lblDescarga.Caption = "Descargando: " & Format(prog, "0.00") & "MB de " & Format(filesize / 1000000, "0.00") & "MB"
                               
                ' Leemos de pedazos de a 1 kb (1024 bytes)
                vtData = Inet1.GetChunk(1024, icByteArray)
                DoEvents
                If Len(vtData) = 0 Then bDone = True
            Loop
            completo = bDone
            Close #1
            ProgressBar1.Value = 0
    End Select
    Exit Sub
linea1:
    MsgBox "Error al conectarse al servidor" & vbCrLf & vbCrLf & Err.Number & vbCrLf & Err.Description, vbInformation + vbOKOnly, App.EXEName
    completo = True
    On Local Error GoTo 0

End Sub


creo que el problema es el access para poner el contenido del campo debes ponerlo así:

Código [Seleccionar] Expandir


celda = format(tb!Fecha, "dd/MM/yyyy")


mmmm, heeeeee, ..... que es un sudoku ????   

hay un ocx para poner botones al estilo Xp se llama xcontrols.ocx