elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Tutorial básico de Quickjs


  Mostrar Mensajes
Páginas: 1 [2] 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 ... 24
11  Programación / Programación Visual Basic / Re: Programción en excel vba en: 21 Noviembre 2014, 19:27 pm
Lo mejor que puedes hacer es grabar un macro en Excel y ahí hacer lo que quieres hacer.  Para editar el macro solo presionas Alt+F8 y pones editar.

Saludos.
12  Programación / Programación Visual Basic / [VB6]Filtro por fechas en DataGrid en: 21 Noviembre 2014, 00:00 am
Estimados, buenas tardes (dias, noches, etc)

Hoy vengo a solicitar su ayuda para hacer un filtro a un DataGrid que me esta quebrado la cabeza xD.

Uso el siguiente codigo para cargar los datos al DataGrid:

Código
  1. Sub Conexion()
  2.   Set cn = New ADODB.Connection
  3.   cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DataAndStuff\cllbd.mdb;Persist Security Info=False"
  4.   Set rs = New ADODB.Recordset
  5.   rs.ActiveConnection = cn
  6.   rs.CursorLocation = adUseClient
  7.   rs.CursorType = adOpenDynamic
  8.   rs.LockType = adLockOptimistic
  9.   rs.Source = "Select * From BDOfertas"
  10.   rs.Open
  11.  
  12. End Sub
  13.  

Hasta ahí todo bien.
Ahora, lo que quiero hacer es (con dos TextBox y un CommandButton) un filtro por rango de fechas. PERO (¬¬) no me funciona y no me arroja ningún error ni nada D:.

Para hacer el filtro tengo el siguiente codigo:

Código
  1. Sub ConsultaFechas()
  2.  
  3.   SqlDos = "SELECT * FROM BDOFertas WHERE F_Desde > " & txtFechaUno.Text & " And F_Hasta < " & txtFechaDos.Text & ""
  4.   Set rs = New ADODB.Recordset
  5.   rs.CursorLocation = adUseClient
  6.   rs.Open SqlDos, cn, adOpenStatic, , adCmdText
  7.  
  8. End Sub
  9.  

Se supone que ahí debería filtrar solo ese rango de fechas, pero no me funciona, no se porque, y como dije antes, tampoco me da ningún error. Solo no filtra.

Si alguno de uds me pudiese ayudar con esto. En realidad nunca he sido bueno con las consultas xD.

Saludos y gracias de ante mano!.

PD: Probe con RS.Update al final del Sub, pero me da el error: "El recorset actual no permite actualizaciones asdf"
13  Programación / Scripting / Re: [BATCH] Windows EventViewer Log Remover Tool en: 7 Noviembre 2014, 04:25 am
Gracias Elektro!, siempre aportando códigos útiles.!

Saludos y se guarda en la biblioteca!!!
14  Programación / Programación Visual Basic / Re: [AYUDA] DUDA - Poblar datos de una hoja a otra con combobox u otro en: 17 Septiembre 2014, 00:00 am
Bueno en realidad para empezar deberías grabar un macro haciendo lo que quieres que haga el programa.

No se, por ejemplo empieza grabando mientras haces la formula en el cuadro B10, etc.

Lo del combobox "no" es muy difícil, solo debes llenar los meses al abrir la planilla y asignarle un macro a cada mes.

Saludos!
15  Programación / Programación Visual Basic / Re: [Ayuda] Programcion De Progressbar en: 21 Julio 2014, 06:15 am
Debes saber el maximo de tiempo que procesara el progresbar. Por ejemplo, si dices que el tiempo máximo lo tomas de un textbox, entonces debería ser

Código
  1. ProgressBar1.Maximum = Val(Text1.Text)

El Valor inicial del PB debes hacerlo en el FormLoad(en verdad no estoy seguro como funciona el PB en vb2012)

Después debes sumar el valor inicial por 1 hasta que llegue al valor final.

Código
  1. Do While Not Timer1.Stop
  2. ProgressBar1.Value = ProgressBar1.Value + 1
  3. Do Events ' no estoy seguro si esta sentencia funciona en VB2012
  4. Loop
  5. 'asdf
  6.  

Espero que esto te de alguna idea, dejare un código que uso para hacer una carga en una pantalla de inicio. Debes tener en cuenta que esto esta hecho en VB6.0

Código
  1. Private Sub Form_Activate()
  2.   Set rs = LoadRecordSet("SELECT * FROM CLLDB ORDER BY Material")
  3.   ProgressBar1.Max = rs.RecordCount
  4.   ProgressBar1.Value = 0
  5.   Do While Not rs.EOF
  6.      ProgressBar1.Value = ProgressBar1.Value + 1
  7.      DoEvents
  8.      rs.MoveNext
  9.   Loop
  10.   Form6.Show
  11.   Unload Me
  12. End Sub
  13.  

Código
  1. Private Sub Form_Load()
  2.   ProgressBar1.Min = 0
  3. End Sub
  4.  

Saludos.
16  Programación / Programación Visual Basic / Re: [Excel][VB6] Ejecutar archivo Excel. en: 15 Julio 2014, 04:33 am
Hola!,

Funcionó MUCHAS GRACIAS!, por una tontera no me funcionaba xD. Hasta había usado API para hacerlo, pero mejor asi ya que es mas rápido y fácil :D!

Gracias de nuevo y saludos!!
17  Programación / Programación Visual Basic / [Excel][VB6] Ejecutar archivo Excel.Solucionado en: 15 Julio 2014, 01:25 am
Hola! :D, he vuelto, con mas preguntas xD.

Directo al grano a ver si alguien me puede ayudar T_T,

Tengo un formulario en donde proceso un archivo Excel (esto me sabe a Déjà vu xD), todo bien, pero quiero que al terminar todo el proceso se abra el archivo para poder seguir usándolo, pero (siempre un pero ¬¬) no me resulta abrirlo, me aparecen una serie de errores antes de abrir el primero archivo Excel de la carpeta y NO el que estoy procesando.

Este es el código que uso para abrir el archivo:

Código
  1. Shell(RutaExcelExe & " " & InvFilePath)
Donde:

RutaExcelExe contiene la ruta donde esta instalado MSExcel.

Código:
C:\Archivos de Programa\Microsoft Office\Office12\Excel.exe

InvFilePath contiene la ruta completa del archivo que estoy procesando. La ruta que contendrá esta variable puede variar (valga la redundancia) ya que el archivo puede ser tomando desde cualquier parte desde un CommonDialog.

Los errores que obtengo son los siguientes
Código:
No se encontró "C:\Documents.xlsx" bla bla bla
No se encontro "and.xlsx"
No se encontro "Settings\panxin\escritorio\ProyectoAsdf\XLSX's\.xlsx"
No se encontro "TEST\Copia.xls"
No se encontro "(2).xlsx"

Lo intente cambiando el comando de la siguiente forma, pero  con comillas ya no toma las variables como variables y si como la ruta y el nombre del archivo, obteniendo el error
Código
  1. Shell("RutaExcelExe" & " " & "InvFilePath")

Código:
"No se encuentra el archivo "InvFilePath"" ¬¬

Así es que es por esto que vengo a solicitar vuestra ayuda a ver si alguien me puede guiar :D!

Saludos y gracias de ante mano :D!


18  Programación / Programación Visual Basic / Re: [VB] [Registro ] Modificar valor DWORD (Solucionado) en: 15 Junio 2014, 22:52 pm
Lo hice, pero no de esa forma, si no, usando API, por lo menos en mi pc funcionó xD.

Dejo acá como lo hice :D!

Código
  1. Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hkey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
  2. Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
  3. Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hkey As Long) As Long
  4. Private Const HKEY_CURRENT_USER = &H80000001
  5. Private Const REG_DWORD = 4
  6. Dim nBufferKey As Long
  7. Dim nVal As Long
  8.  

Código
  1. Private Sub Form_Load()
  2.    ExcelVersion = ExcelApp.Version
  3.    nVal = 1
  4.    RegOpenKey HKEY_CURRENT_USER, "Software\Microsoft\Office\" & ExcelVersion & "\Excel\Security", nBufferKey
  5.    RegSetValueEx nBufferKey, "AccessVBOM", 0, REG_DWORD, nVal, Len(nVal)
  6.    'MsgBox "Sandbox Mode Changed", vbInformation, "Sandbox"
  7.    RegCloseKey nBufferKey
  8.   mibd.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DataAndStuff\cllbd.mdb;Persist Security Info=False"
  9.   PB1.Min = 0
  10.   Open App.Path & "\DataAndStuff\OrdenPlanillaInventario.txt" For Input As #1
  11.   Do Until EOF(1)
  12.      Line Input #1, Linea
  13.      Total = Total + Linea + vbCrLf
  14.   Loop
  15.   Close #1
  16.   Label1.Caption = "NOTA IMPORTANTE:" & vbNewLine & "El archivo debe ser generado como ""HOJA CALCULO COSTE"" o el sistema dará ERROR."""
  17.   'ExcelAccessVBOM
  18. End Sub
  19.  

Saludos, y gracias!
19  Programación / Programación Visual Basic / Re: Vb Net + Access 2007 en: 15 Junio 2014, 22:11 pm
Y que tipo de datos es el campo en el que estas tratando de escribir?

Esos errores son casi siempre porque intentas escribir un valor Numero en un campo de tipo Cadena.

Fijate que los tipos de datos que quieres escribir sean todos iguales en los campos de la BD, el TextBox.

Saludos.

20  Programación / Programación Visual Basic / Re: [VB] [Registro ] Modifica valor DWORD en: 15 Junio 2014, 01:23 am
Hola, muchas gracias por tu respuesta, super bien explicado -y lo mejor- en pocas lineas xD

Pero como no todo puede ser perfecto, me da un error en tiempo de ejecución..


Ahora solo intento saber que valor tiene la clave para modificarla si es necesario o no.

Y lo hice así:

Código
  1. Private Sub ExcelAccessVBOM()
  2. ExcelVersion = ExcelApp.Version
  3. Set FakeRegedit = CreateObject("Wscript.Shell")
  4. ValorReg = FakeRegedit.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\" & ExcelVersion & "\Excel\Security")
  5. MsgBox ValorReg
  6. Set FakeRegedit = Nothing
  7. End Sub
  8.  

Y la llamo desde Form_Load(), pero al momento de cargar me sale el siguiente error:

Código:
"No se pudo abrir la clave del registro "HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Excel\Security" para leerla"

Revise la clave varias veces, e incluso la copie directo del Registro, pero nada. Probé cargando directamente la función desde el Form_Load(), pero me da el mismo error.

E de agregar que tengo todos los permisos necesarios para leer y/o modificar el registro.

Si fueras tan amable o alguien mas me guiarme porfavor xD.

EDIT: El tipo de variable de ValorReg es Integer.
Páginas: 1 [2] 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 ... 24
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines