Esperar fin de operacion INSERT - VB-MUNDO

McruzAT · #1 (**permalink**) 10-03-2008, 17:42:30

Hola, en un proyecto de VB que trabaja con ACCESS tengo el siguinete codigo:

Código:

    DBLink.Execute sSQL_Ini & " into " & sTmpTbl & " " & sSQL_Fin, i, adCmdText

    access.DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, sTmpTbl, sArchivo
    
    DBLink.Execute "DROP TABLE " & sTmpTbl, , adCmdText

Nada del otro mundo...La primer linea inserta un conjunto de filas en una tabla nueva.
La segunda exporta la tabla nueva a un archivo de Excel.
Y l atercera Dropea la tabla Temporal

Paso a paso funciona bien, pero ejecutandolo de corrido el archivo de excel queda vacio... ¿como puedo hacer para esperar que termine el EXECUTE y despues el DOCMD....

Gracias a todos.

J.M.Movilla · #2 (**permalink**) 10-03-2008, 20:57:02

Seguramente esto te lo solucione:

Código:

    DBLink.Execute sSQL_Ini & " into " & sTmpTbl & " " & sSQL_Fin, i, adCmdText
    DoEvents

    access.DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, sTmpTbl, sArchivo
    DoEvents
   
    DBLink.Execute "DROP TABLE " & sTmpTbl, , adCmdText