SoloCodigo

Saludo a tod@s.

¡Ojo!

En el código que escribí metí la gamba y langostino:
debería haber puesto:

El valor UnloadMode = 1 indica que el formulario se descarga desde el código,
El valor UnloadMode = 0 indica que el usuario cierra el formulario tras haber pulsado X en la barra del form.

Disculpas.

Hola Sabrina77.

Puedes hacer algo de este estilo:


Suerte.

Hola Krlos02.

Utiliza SQL: DELETE FROM Tabla

Abur.

Hola nono_81.

Me parece que te falta crear el parámetro y añadirlo al command.

ObjComm.Parameters.Append ObjComm.CreateParameter _
"Nombre_Parámetro", adChar, adParamInput, Tamaño)

por ejemplo...

Suerte.

Hola antonio sw.

Básicamente creo que deberías utilizar el método Execute del control usando un comando FTP del tipo LS. Algo así:

Inet1.Execute "http\url.com", "LS Archivo.xxx"

Cuando el evento StateChage devuelva un estado 12 (icResponseCompleted), utilizar la función GetChunk del control para obtener el resultado.

      Dim var1 As Variant
      Dim str1 As String
      Dim ind1 As Boolean
      var1 = Inet1.GetChunk(1024, icString)
      DoEvents
      Do While Not ind1
         str1 = str1 & var1
         var1 = Inet1.GetChunk(1024, icString)
         DoEvents
         If Len(var1) = 0 Then ind1 = true
      Loop
      MsgBox str1

Con esto supongo que podrás obtener el tamaño del archivo. Para conocer el estado del proceso... no sé, tal vez controlando el estado 8 (icResponseReceived).

Suerte.

Siguiendo el simil del amigo JMM, hoy te doy los peces, de la caña ya hablaremos otro día...

Suerte.

Hola diegomarpla.

Tal vez me equivoque, pero... el problema está en que el control PictureBox sólo acepta ciertos formatos de imagen.

Supongo que cuando hablas de imágenes de gran calidad, hablas de archivos en formato TIFF, cuya imagen no puede ser representada en un control PictureBox. Si esto es así, imagino que para cargarlas en el PictureBox,  guardarás las imágenes en otro formato... no sé por qué ( o sí), pero me dá que las estás guardando como .jpg.
Si haces esto, no le des más vueltas, la compresión jpeg es un tipo de compresión con perdidas y cada vez que guardes la imagen perderá calidad.

Guarda las imágenes como .bmp sin ningún tipo de compresión (aunque seguramente ocupen una barbaridad) y verás que la calidad no varía.

Otra posible solución pasa por usar algún otro OCX para visualizar las imágenes  (si no tienes wXP, puedes usar ImageEdit.Ocx que viene con el SO, pero cuando quieras usar tu aplicación en wXp, te llevarás una desagradable sorpresa).

Te repito que no sé si este supuesto que he hecho es tu caso, si no lo és, tal vez podrías especificar un poco más.

Suerte.

Hola Minita.

¿Enlazar donde?¿Seleccionando qué?

Hola sabrina77.

Podrías usar Shell con tu ejecutable invocándose a si mismo.

Suerte.

Hola diegomarpla.

Si para imprimir manejas el objeto Printer, puedes realizar lo siguiente:

Set Printer = Printers("Nombre de Impresora").

Si es de otra forma, habría que echar un vistazo a alguna api (ahora mismo no sé cual) para establecer la impresora por defecto.

Suerte.

Y que lo digas, la realidad es como la cuentas...

Por cierto, ¿has probado a intentar abrir el documento con OPEN para intentar supervisar el error que te da si falla la apertura? A lo mejor así sacas algo en limpio...

Suerte.

Hola MindEye.

Podrías hacer algo así, aunque no sé si te gustará...

SELECT SUM(Campo1) FROM Tabla1 UNION SELECT SUM(Campo1) FROM Tabla2

Con esto obtendrías dos registros con la suma de valores de Campo1 en cada una de las tablas. Luego sumando los dos registros obtienes el total.

Suerte.

Hola binaryOrgy.

En principio la respuesta es no, a no ser que utilices una matriz de tipo texto para construir las cadenas, lo cual no es nada operativo es vb. Puedes utilizar otras funciones para el manejo de cadenas, tales como Right , Mid, Left, Replace ... Por ejemplo para referirte al 3ª carácter de una cadena de texto (índice 2 de un arreglo C) puedes usar algo así: Mid(Cadena,3,1).

Suerte.