Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - josuecm

#1
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 (vb) [Seleccionar]

Private Sub cmdbuscar_Click()
Dim Conexion As ADODB.Connection
Dim Grabar As ADODB.Recordset
Dim col As Integer
On Error GoTo p1
HojaActiva = ActiveSheet.Name
encontrado = False
For i = 1 To NHojas
If HojaActiva = a(i) Then
encontrado = True
End If
Next
If encontrado = True Then
MsgBox "No puede usar esta hoja para consultar"
Exit Sub
End If
Cells.Clear
NombreBD = ThisWorkbook.Path & "\PRO_COD.xls"
Set Conexion = New ADODB.Connection
        Dim Cadenaconexion As String
        Cadenaconexion = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "Data Source=" & NombreBD & _
                ";Extended Properties=""Excel 8.0;HDR=Yes;"""
Conexion.Open ConnectionString:=Cadenaconexion
Set Grabar = New ADODB.Recordset
Dim CadenaSQL As String
CadenaSQL = " SELECT * from [bd-pro$] where nombre like '%" & txtnombres.Value & "%' "
Grabar.Open Source:=CadenaSQL, ActiveConnection:=Conexion
For col = 0 To Grabar.Fields.Count - 1
Range("a5").Offset(0, col).Value = Grabar.Fields(col).Name
Next
Range("a5").Offset(1, 0).CopyFromRecordset Grabar
Set Grabar = Nothing
Conexion.Close
Set Conexion = Nothing
Exit Sub
p1:
MsgBox Err.Description
End Sub
#2
GNU/Linux / Re: Problemas con back | track 5
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
GNU/Linux / Problemas con back | track 5
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
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
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