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

 

 


Tema destacado: Trabajando con las ramas de git (tercera parte)


  Mostrar Mensajes
Páginas: [1]
1  Programación / Programación Visual Basic / Buscar en excel con comandos sql y VB de excel en: 30 Julio 2011, 00:45 am
Hola a todos bueno estoy haciendo un trabajo que me dejaron. Tengo la hoja 1 y hoja 2, en la hoja 1 esta un boton y en la 2 una base de datos de 3 columnas (nombres, apellidos y codigo).
Lo que tengo que hacer es que al hacer click en el boton(que lo llamare CONSULTAR) de la hoja1 que llame a un formulario y en este formulario hay un cuadro de texto y un boton lo que quiero es q al apretar el boton del formulario (que lo llamare BUSCAR) haga que aparezca el nombre que introduje en el textbox (que lo llamare TXTNOMBRE) o si se puede que digamos ponga "SA" en el textbox me salga todos los nombres que empiezen por "SA".

Intente haciendo "Select * from hoja2 where nombre like '% " & txtnombres.text & "%' " pero no me sale nada, tampoco me sale error pero entonces como que por ahi va la cosa pero no puedo obtener lo que me pidieron del trabajo.
PD1: Todo lo estoy haciendo en excel y con el visual basic del excel
PD2: Aqui les dejo el codigo del boton buscar (codigo que me dio el profesor) de ahi estoy partiendo para hacer mi trabajo.
Código
  1. Private Sub cmdbuscar_Click()
  2. Dim Conexion As ADODB.Connection
  3. Dim Grabar As ADODB.Recordset
  4. Dim col As Integer
  5. On Error GoTo p1
  6. HojaActiva = ActiveSheet.Name
  7. encontrado = False
  8. For i = 1 To NHojas
  9. If HojaActiva = a(i) Then
  10. encontrado = True
  11. End If
  12. Next
  13. If encontrado = True Then
  14. MsgBox "No puede usar esta hoja para consultar"
  15. Exit Sub
  16. End If
  17. Cells.Clear
  18. NombreBD = ThisWorkbook.Path & "\PRO_COD.xls"
  19. Set Conexion = New ADODB.Connection
  20.        Dim Cadenaconexion As String
  21.        Cadenaconexion = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  22.                "Data Source=" & NombreBD & _
  23.                ";Extended Properties=""Excel 8.0;HDR=Yes;"""
  24. Conexion.Open ConnectionString:=Cadenaconexion
  25. Set Grabar = New ADODB.Recordset
  26. Dim CadenaSQL As String
  27. CadenaSQL = " SELECT * from [bd-pro$] where nombre like '%" & txtnombres.Value & "%' "
  28. Grabar.Open Source:=CadenaSQL, ActiveConnection:=Conexion
  29. For col = 0 To Grabar.Fields.Count - 1
  30. Range("a5").Offset(0, col).Value = Grabar.Fields(col).Name
  31. Next
  32. Range("a5").Offset(1, 0).CopyFromRecordset Grabar
  33. Set Grabar = Nothing
  34. Conexion.Close
  35. Set Conexion = Nothing
  36. Exit Sub
  37. p1:
  38. MsgBox Err.Description
  39. End Sub
  40.  
2  Sistemas Operativos / GNU/Linux / Re: Problemas con back | track 5 en: 9 Junio 2011, 02:00 am
Holas bueno de nuevo con mi windows 7 .... q de verdad ahora empiezo a darme cuenta porq dicen q es una tonteria sus herramientas q supuestamente te ayudan... trate de reparar el inicio de windows (creo q le llaman boot, si no me corrigen plz de paso aprendo algo mas), y ni con eso se pudo, aparte q me salia q supuestamente "no se encontro ningun error en el inicio" y seguia con el mismo problema de no poder iniciar windows 7, entonces volvi a instalar BT para poder entrar a windows, bueno todavia no quiero formatear todo el disco duro es q tengo muchas cosas en el win7 q no quisiera perder.
Espero q haya alguna solucion, por fa si alguien sabe como solucionar mi problema ayudeme.
Gracias por sus rptas
3  Sistemas Operativos / GNU/Linux / Problemas con back | track 5 en: 8 Junio 2011, 15:37 pm
Hola a todos, yo soy nuevo en el mundo de Linux e instale el backtrack 5 con normalidad
Primero lo descargue de su pagina, luego lo grabe en un dvd y cuando lo instale me salio esto:

1 GB de SWAP
19 GB para el backtrack
y todo lo demas lo deje intacto (tengo windows 7 por siacaso)

bueno en si puse la opcion de "instalar junto al otro sistema operativo" y como le di 20 GB de espacio para la instalacion y me salio esa particion de antes.
Todo funciono bien hasta que en el momento que voy a salir y apagar me se me cuelga la pantalla y se pone media rara apareciendo rayas horizontales y la pantalla de color blanco con negro y esta es la razon por la q quise desinstalar el backtrack como no se mucho de SO's inicie con windows y elimine la particion y el swap donde instale el backtrack yyyy T_T ya no me corria windows 7 porq cuando lo reinicie me salia una pantalla negra donde decia

"GRUB RESCUE >"

hmm hmm no me acuerdo exactamente pero solo me salia una linea de texto en la pantalla negra y no podia iniciar windows ni nada.
Bueno entonces se me ocurrio q si elimine esas particiones donde estaba el backtrack entonces elimine mal el grub y volvi a instalar el backtrack (jaja) y resulta q pude volver a iniciar windows claro junto con el backtrack y hasta aqui llegue.

Ahora quisiera q me ayuden porq el problema de la pantalla malograda que me sale cuando voy a salir de backtrack sigue, y quisiera saber como desinstalar el backtrack sin tener que formatear el disco duro ni windows.

Gracias por sus respuestas

PD: El modelo de mi laptop es ADVANCE NOVA U40SIIC
Procesador : Intel Core2Duo T5750 2GHz.
RAM 2048 MB
Windows 7 32bits

4  Seguridad Informática / Hacking / Re: Certified Ethical Hacker v.7 Pronto!! en: 15 Abril 2011, 16:31 pm
Hola a todos.
Bueno empeze a leer una revista sobre hacker y lenguaje de programacion y me intereso mucho, y entonces decidi estudiar por mi cuenta, este mundo que me parece increible y fantastico pero :( tengo q terminar una carrera que ya comenze (ing. industrial) pero como ya acabo este año voy a empezar a adentrarme mas al mundo hack y quiero preguntarles si este curso me ayudaria y solo me podria confundir.
Que me recomiendan?

Gracias por las respuestas.
5  Seguridad Informática / Hacking / Re: Certified Ethical Hacker v6 Training Completo + All Labs 4 DVD Mas Nuevo!! en: 11 Abril 2011, 00:30 am
Hola a todos, bueno saben yo recien empiezo en esto de lenguajes de programacion, redes, y recien conozco lo que en realidad significa HACKER.
Por esto quisiera saber si me recomiendan q empieze a leer este curso que lo he oido hablar y el costo es demasiado xD, bueno espero que me respondan
GRACIAS los q respondan
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines