SoloCodigo

Kaixo! Friju

En tiempo de diseño: selecciona el formulario, en la ventana de propiedades (F6), elige desde la propiedad 'Icon' el icono que desees pulsando el botón con '...' o escribe directamente la ruta y nombre de archivo.
En tiempo de Ejecución: Form1.Icon = LoadPicture("C:RutaArchivo.ico")

Suerte.

Prueba entonces con los CONTROLES MAPI MapiSession/MapiMessages a ver que tal te va. Lo de MailTo, realmente es una solución poco efectiva.

Suerte.

Hola Carlos.

Puedes utilizar el objeto Printer.

Básicamente tendrás que controlar las propiedades CurrentX y CurrentY para indicar las coordenadas en las que imprimir, Font, Orientation, etc, etc... Para imprimir usa el método Print, para incluir imágenes PaintPicture y cuando tengas el listado completo: EndDoc para que comience la impresión.

Suerte.

Creo que el problema lo tienes porque destruyes la referencia al objeto cConexion (set cn = Nothing) antes de tiempo. Si defines 'cn' a nivel de módulo y destruyes la referencia al objeto con el evento 'Terminate' de la clase en vez de al finalizar la función, tu problema debe quedar resuelto.

Suerte.

Creo que entonces podrías usar los servicios de mensajería MAPI.

También existe otra forma de enviar correos de la que ahora mismo no recuerdo bien su uso. Era algo así como
'Shell "MailTo: Direccion@correo.es;Subject:xxxxx;Text:dasdasd "'. Le podía especificar Subject, text, etc. El inconveniente es que el correo no se envía de forma automática (por lo menos yo nunca fuí capaz), sino que se abre una pantalla del editor de correos que tengas configurado, eso sí, con los datos especificados en el 'MailTo'. Tal vez probando e investigando algo de esto consigas lo que buscas, sino... MAPI.

Desde luego lo ideal sería detectar el cliente de correo instalado en el pc y usar clases adecuadas a cada caso...

Chao.

Hola wallace.
Si no entiendo mal, tú problema es que quieres eliminar un registro/s de un grupo que identifican a un usuario... Puedes utilizar la/s correspondiente/s sentencia/s SQL (sql/400, por supuesto).

Si quieres eliminar todos los registros del usuario 4038 y el campo es CARÁCTER:
DELETE From Tabla1 WHERE LEFT(CampoX, 4) = '4038'

Si quieres eliminar todos los registros del usuario 4038 y el campo es NUMÉRICO:
DELETE From Tabla1 WHERE LEFT(DIGITS(CampoX), 4) = '4038'

Si quieres eliminar el último de los registros y SABES CÚAL ES EL MAYOR nº DE FOLIO (con campos numéricos):
DELETE From Tabla1 WHERE LEFT(DIGITS(CampoX), 4) = '4038' AND RIGHT(DIGITS(CampoX), 3) = '006'

Si quieres eliminar el último de los registros y NO SABES CÚAL ES EL MAYOR nº DE FOLIO (con campos numéricos):
'Primero obten en un recordset los registros ordenados del usuario:
Set rs1 = cmd1.Execute("SELECT From Tabla1 WHERE LEFT(DIGITS(CampoX), 4) = '4038' ORDER BY CampoX
'Posiciónate en el último registro (si los hubiera, claro):
rs1.MoveLast
'Ahora elima el registro:
cmd1.Execute "DELETE FROM Tabla1 WHERE CampoX =" & rs1.Fields("CampoX").Value

Espero que con estos ejemplos arregles. Suerte.

Hola Bea. ¿Las imágenes no tendrán el atributo de sólo lectura, verdad?

Mira a ver si es eso.

Suerte.

Podrías utilizar algo tal que así:

Para el ejemplo, crea un formulario y añádele dos 'CommandButton', uno para crear la clave en el registro y otro para comprobarla. Luego añade este código al form.

********************************************************************************
Option Explicit
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const REG_SZ = 1
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegQueryValue Lib "advapi32.dll" Alias "RegQueryValueA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal lpValue As String, lpcbValue As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Const NUMERO_DESPISTE = 32 'Por ejemplo
Private Const DIAS_PLAZO = 30 'También por ejemplo
Private Sub Command1_Click()
    RegistrarClaveSetup ValorClaveSetup()
End Sub
Private Sub Command2_Click()
    ChkClaveSetup
End Sub
Private Function ValorClaveSetup() As Long
    ValorClaveSetup = (Year(Now) + NUMERO_DESPISTE) * 10000& _
    + (Month(Now) + NUMERO_DESPISTE) * 100& + Day(Now) + NUMERO_DESPISTE
End Function
Private Sub RegistrarClaveSetup(ByVal Clave As String)
    Dim lngRc As Long, lngResult As Long
    lngRc = RegOpenKey(HKEY_LOCAL_MACHINE, "Software", lngResult)
    lngRc = RegCloseKey(lngResult)
    lngRc = RegCreateKey(lngResult, "SoftwareDeBea", lngResult)
    lngRc = RegCreateKey(lngResult, "AplicacionDeBea", lngResult)
    lngRc = RegSetValue(lngResult, "", REG_SZ, Clave, 0)
End Sub
Private Sub ChkClaveSetup()
    Dim strClave As String
    Dim intDia As Integer, intMes As Integer, intAnho As Integer
    strClave = RecuperarClaveSetup
    If Len(strClave) <> 8 Then
        MsgBox "Clave no válida"
        Exit Sub
    End If
    intAnho = Val(Left(strClave, 4)) - NUMERO_DESPISTE
    intMes = Val(Mid(strClave, 5, 2)) - NUMERO_DESPISTE
    intDia = Val(Right(strClave, 2)) - NUMERO_DESPISTE
    If DateDiff("d", Now, intDia & "/" & intMes & "/" & intAnho) <= DIAS_PLAZO Then
        MsgBox "Dentro del plazo"
    Else
        MsgBox "Plazo expirado"
    End If
End Sub
Private Function RecuperarClaveSetup() As String
    Dim lngRc As Long, lngResult As Long, strValor As String
    lngRc = RegOpenKey(HKEY_LOCAL_MACHINE, "Software", lngResult)
    lngRc = RegCloseKey(lngResult)
    lngRc = RegOpenKey(lngResult, "SoftwareDeBea", lngResult)
    strValor = String(255, 0)
    lngRc = RegQueryValue(lngResult, "AplicacionDeBea", strValor, 255)
    lngRc = RegCloseKey(lngResult)
    RecuperarClaveSetup = Left(strValor, InStr(1, strValor, Chr(0)) - 1)
End Function
********************************************************************************

Bueno, el ejemplo básicamente recupera la fecha actual y la pone como
aaaammdd tras sumarle un número (NUMERO_DESPISTE) a cada parte para que el valor en el registro no parezca una fecha (te podrías currar otro camuflage...). Escribes el valor camuflado en el registro en 'HKEY_LOCAL_MACHINE/SOFTWARE/SOFTWAREDEBEA/APLICACIONDEBEA'. Luego cuando quieras recuperas ese valor y le restas el número para convertirlo otra vez a fecha. Utilizas 'DateDiff' para conocer los días que han pasado.

Esto así a grandes rasgos... Examina el código y adáptalo a tus necesidades. También te tengo que decir que este método es un poco ingenuo y tal vez relativamente fácil de crackear, pero puede ser efectivo. Un consejo es que cambies los nombres de variables, funciones, métodos, etc., para que no parezca que son lo que son...

Suerte.

Hola agfed.
Creo que el método find debería funcionar sin problemas con cualquier tipo de datos que tengan los campos, incluso con campos memo, que a todos los efectos son campos de texto de longitud variable. Otra cosa distinta es acertar con el valor por el que quieres realizar la búsqueda, es decir, no es lo mismo buscar por una palabra que por un texto de gran tamaño, donde signos de puntuación, tildes, mayúsculas/minúsculas, pueden hacer que no encuentres un registro coincidente. Para evitar en la medida de lo posible esto, podrías usar un filtro de este estilo:

Recordset1.Find "UCASE(CampoMemo) LIKE(UCASE('%Cadena a buscar en el campo%'))

Suerte.

Hombre, ahora que caigo, ya sé que es lo quieres hacer... Lo sé por tu anterior tema 'compara archivos o usar campos binarios': quieres comparar dos tablas de una base de datos para saber si contienen los mismos datos.

Vale, te diré que bien podías haberlo especificado respondiendo al tema anterior. Te di una solución para comparar 'Archivos', como tu decías, si no era eso lo que necesitabas, podrías haberlo dicho y no dejar el tema abierto. En fin...

Podrías usar una sentencias SQL para comparar las dos tablas, o código que las recorriera buscando diferencias, pero como no tengo ganas de escribir tanto, pues mi recomendación es que exportes las tablas a archivos de texto y que uses el código que te escribí en el tema anterior.
Ale.

Chao.

En tiempo de diseño, si pulsas con el botón derecho del ratón sobre el control y eliges propiedades, te aparecerá un formulario.

Desde la pestaña 'General' :
Defines la conexión. Tienes tres formas distintas (realmente vienen a ser dos): Puedes usar un origen de datos ODBC ya  existente o crear uno nuevo, generar una cadena de conexión para usar un proveedor OleDb o usar un archivo datalink (*.UDL) que te hayas creado previamente (lo cual viene a ser lo mismo que lo anterior pero usando un archivo que podrás modificar a posteriori sin necesidad de volver a compilar el programa). Para generar una cadena de conexión, básicamente sigue los pasos del asistente: eliges el proveedor OleDb (en tu caso Microsoft Jet) y en la pestaña 'Conexión', en origen de datos, introduce la ruta y nombre de la base de datos.
Para crear un archivo datalink, pulsa con el botón derecho del ratón sobre el escritorio y elige 'Nuevo...' , 'Microsoft DataLink', te aparecerá un formulario similar al que te aparecería generando la cadena de conexión desde las propiedades del control.

Desde la pestaña 'Origen del registro':
Pues eso, eliges el origen para los datos que gestionará el control. Si quieres enlazar el control con una tabla, elige un comando 'adCmdTable' y selecciona la tabla que deseas. Si usas una sentencia SQL, entonces selecciona un comando 'adCmdUnknow'.

Con esto básicamente tienes el control data conectado a la base de datos.

Para conectar a un datagrid, lo seleccionas, te vas a la ventana de propiedades (F6) y eliges para la propiedad 'DataSource' el control data. Pulsa con el botón derecho sobre el datagrid y selecciona 'RecuperarCampos' (en tiempo de ejecución usa el método 'Rebind').

Para enlazar textbox a los campos, pues haces lo mismo que con el datagrid y en la propiedad 'DataField' eliges el campo que te interesa.

Con esto básicamente creo que podrás comenzar a funcionar.

Suerte.

Efectivamente, disculpas, tienes razón... se me olvidaba que estas utilizando un control iNet. La solución que te daba sería válida siempre que pudieras tener acceso a esa carpeta como recurso compartido, asignándola a una letra de unidad, o refiriéndose a la ruta directamente (ServidorRuta).

De otra forma, como muy bien indicas abría que utilizar el comando FTP 'dir' y/o los comandos 'ls' o 'mls' para mostrar el contenido de uno o varios directorios respectivamente.

Suerte.

Podrías hacer algo de este estilo:

Private Sub BorrarFilesRtvDires(Byval ViaDeAcceso As String, Directorios() As String)

Dim strDir as String
strDir = Dir(ViaDeAcceso)
Dim lng1 As Long
Do Until strDir = ""
If (GetAttr(ViaDeAcceso & strDir) And vbDirectory) = vbDirectory Then
lng1 = lng1 + 1
ReDim Preserve Directorios(lng1)
Directorios(lng1) = strDir
Else
Kill ViaDeAcceso & strDir
End If
Dir
Loop

End Sub

Esta sub borraría los archivos del directorio que le especifiques y devolvería como elementos de la matriz 'Directorios' las carpetas que contenga (fíjate que es un argumento 'ByRef'
). Empleándolo recursivamente, podrías eliminar todos los archivos y carpetas. ¡Úsalo con tiento!

Suerte.