hakuario

Favor de compartir el código que ya tengas desarrollado.

En lo personal también intente hacer algo similar, pero no pude perfeccionarlo, aun necesitaba mejoras. Te comentare lo que use en mi caso. Investiga sobre esto GetForegroundWindow SetForegroundWindow SendKeys Investiga y usa la combinación de esas...

Reciclando tu código anterior, intenta esto. Dim tbtexto As String Dim VarTexto As String 'Para leer Open App.Path + "\movi.txt" For Input As #1 'Para Escribir Open App.Path + "\movi2.txt" For Output As #2 Do Until EOF(1) Line Input #1, VarTexto if...

SELECT b.Area_de_Trabajo FROM tblCaptura_Empleados as a INNER JOIN tblCaptura_Capacitacion as b ON a.Clv_Emp = b.Clv_Emp GROUP BY b.Area_de_Trabajo

¿En dicha base de datos tienes alguna tabla que tenga movimiento diario de manera obligatoria? De ser así, te aconsejaría que verificas la fecha mínima y máxima, esto para ver desde hasta cuando tienes transacciones en tu backup. A la espera de tus...

Creo que esta obviando el campo fecha contra el cual comparar el resultado de las funciones aplicadas a la función GETDATE(), por cierto no creo necesario meterlo en un select, esto asumiendo que usas SQL SERVER. Prueba con esto: DELETE FROM PROD...

Te podría servir el uso de un cursores. string por,y,z int fila DECLARE mi_cursor CURSOR FOR select producto,código,valor into :por,:y,:z from categoría; OPEN mi_cursor; DO WHILE sqlca.sqlcode<>100 fila = dw_1.insertrow(0)...

Para esto creo que seria mejor la ayuda de un DBA, cosa que no soy. Pero intentare ayudarte hasta donde se pueda. Comentame, estas usando algo en particular, no se, ¿por ejemplo archivos bat?

Intenta con esto: DataGrid1. ApproxCount

Intenta cambiar la linea del for, y me comentas si ahí mejora 'Lo que esta For intx = LBound(Myvar) To UBound(Myvar) 'CAmbialo por For intx = 1 To 3 Lo que agregastes, me parece que es val(intbuscar) en la linea del if, no es necesario.. ya que el...