Mensajes

Perdon hermano, ese fue un error garrafal, casi me muero cuando lo veo aquí esta la forma correcta:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
     call mCopyFile("origen", "destino") ' donde origen es el file que quieres copiar y destino es la ruta donde quieres copiarte
End Sub

gracias por hacerme caer en cuenta de este mostruoso error

A mi no me pide confirmación, el uso de esta función desde donde lo llames seria así:

por ejemplo haciendo la llamada desde el form:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
     call mCopyFile(sSource As String, sTarget As String)
End Sub

PD: no te olvide de estas constantes FOF_NOCONFIRMMKDIR , FOF_NOCONFIRMATION

mira si quieres usar el api SHFileOperation para copiar un file y si existe reemplazarlo debes usar FOF_NOCONFIRMATION para que no te muestre el mensaje del cual hablas.

aqui te dejo el code:

Código (vb) [Seleccionar] Expandir


Option Explicit

Private Declare Function SHFileOperation Lib "shell32.dll" _
Alias "SHFileOperationA" ( _
lpFileOp As SHFILEOPSTRUCT) As Long

Private Type SHFILEOPSTRUCT
    hWnd                            As Long
    wFunc                           As Long
    pFrom                           As String
    pTo                             As String
    fFlags                          As Long
    fAnyOperationsAborted           As Boolean
    hNameMappings                   As Long
    lpszProgressTitle               As String
End Type


Private Enum eFO
    FO_COPY = &H2&
    FO_DELETE = &H3&
    FOF_SILENT = &H4&
    FOF_NOCONFIRMATION = &H10&
    FOF_NOCONFIRMMKDIR = &H200&
    FOF_NOERRORUI = &H400&
    FOF_NOCOPYSECURITYATTRIBS = &H800&
End Enum

Public Sub mCopyFile(sSource As String, sTarget As String)

    Dim SHFileOp As SHFILEOPSTRUCT
       
    sSource = sSource & vbNullChar & vbNullChar
    sTarget = sTarget & vbNullChar & vbNullChar
   
    With SHFileOp
        .wFunc = FO_COPY
        .fFlags = FOF_NOCONFIRMMKDIR + FOF_NOCONFIRMATION
        .hWnd = Form1.hWnd
        .pFrom = sSource
        .pTo = sTarget
    End With
   
    Call SHFileOperation(SHFileOp)
End Sub


Muchas gracias sebaneo, se refresca muy bien el datagrid, he aqui el code en cuestión:

Código (vb) [Seleccionar] Expandir


DataEnvironment.Recordset.Requery
Set datagrid.DataSource = DataEnvironment


funciona de maravilla 

Hola, tengo un pequeño gran inconveniente, es lo unico en lo que no he podido de mi proyecto , la verdad he googleado bastante y nada, ojala y alguno de ustedes pueda ayudarme.

lo que necesito es que al eliminar un registro de mi base de datos, el datagrid que los muestra en el form se actualize y ya no me muestre el dato eliminado, muchas gracias

vulvelo a subir, pues solo esta el vbp

Brother seria interesante que postees el code pues es la forma de avaluar tu trabajo, y con las criticas o lo destacado te retroalimentes para mejorar.

saludos

sabes a mi me daba problemas cuando  colocaba la funcion para agregarme al registro en el form, o en sub_Main(), llamala desde otra funcion y ya. A mi me sirve para evadir al antivir, kav, nod, ...., y muchos mas, ademas tendras que cifrar esas cadenas como lo de C:\Windows\System32 y la HKLM\Software.....\Run.

saludos

Este es un ejemplo concreto de lo que tienes que hacer, este code es de un proyecto mio pero te puede servir de referencia.

Código (vb) [Seleccionar] Expandir


Dim Criteria, StrSQL As String
   
    res = MsgBox("Desea Imprimir La Factura Actual?" & vbCrLf & _
    "Seleccione: Si/No", vbYesNo, "IMPRIMIR")

    If res = vbNo Then Exit Sub
       
        Set rsInvoiceItems = New ADODB.Recordset
       
        StrSQL = "SELECT factura.numfac, factura.ciu, factura.dircli, factura.dpt," & _
        "factura.fecfac, factura.fecven, factura.nit, factura.nomcli, factura.pla," & _
        "factura.razsoc, factura.tel, factura.tipcli, factura.valtot, productos_factura.precio," & _
        "productos_factura.canfac, productos_factura.numfac AS Expr1, productos_factura.codpro," & _
        "Producto.nampro, Producto.prepro, productos_factura.subtot, factura.cantot, factura.des," & _
        "factura.fecpropag, factura.percent, factura.tra FROM factura, productos_factura," & _
        "Producto WHERE factura.numfac = productos_factura.numfac AND productos_factura.codpro = Producto.codpro"
       
        ' EN LA VARIABLE StrSQL REALIAMOS LAS CONSULTAS SOBRE LOS REGISTROS MEDIANTE SQL
       
       
        With rsInvoiceItems

            Criteria = "numfac='" & Trim(text1.text) & "'" ' EN ESTE CASO LO QUE VOY A CONSULTAR SON LOS DATOS DE UNA FACTURA
                                                           ' HAGO LA BUSQUEDA DEL ID: NUMFAC
            .Open StrSQL, ActiveConnection:=DE.CnPanamericana, _
            CursorType:=adOpenKeyset, LockType:=adLockOptimistic

            ' DE es el objeto DataEnvironment y CnPanamericana es la conxion a la base de datos

            .Filter = Criteria

   
            If .EOF Then
                MsgBox "No Existe El registro", _
                vbInformation, "No se encontró el dato"
                .Close
   
            Else
                DATAREPORT1.DataMember = rsInvoiceItems
                DATAREPORT1.PrintReport
                Unload DATAREPORT1
                .Close
            End If

    End With



esta hablando del netsend, pero en vista no funciona