HOLA BUENAS LAS TENGAN (SEAN DIAS O NOCHES)


BUENO HE AKI PRACTICANDO UN POCO SE ME OCURRIO TRATAR DE EMPEZAR CON BASE DE DATOS
ENTONCES SEGUN ENLACE MI BASE DE DATOS

CON TODOS MIS CONTROLES PERO NO LOGRO HACER UNA CONSULTA SEGUN HE TRATADO CON ESTO
'ESTO VA EN EL KEYPRESS DEL TXTCLIENTE.TEXT

TXTCLIENTE_KEYPRESS(KEYASCII AS INTEGER)

IF KEYASCII=13 THEN ' SI LA TECLA PRESIONADA ES IGUAL A= 13(ENTER )ENTONCES

SELECT*FROM CLIENTES  WHERE CLAVE=&TXTCLIENTE.TEXT

WITH ADOCLIENTES
.RECORDSOURCE
.CLEAR
WND WITH

ELSE
END IF



PERO NO REALIZA LA CONSULTA SEGUN YO QUIERO QUE CUANDO EL CLIENTE PONGA X NUMERO EN EL TXTCLIENTE.TEXT Y DE ENTER REALIZE LA BUSQUEDA EN BASE A LA CLABE

TODOS MODOS LES PONGO EL LINK DEL PROYECTO COMPLETO ESPERO ME PUEDAN AYUDAR
http://mx.geocities.com/kaiserkalamar/sistemch.zip


GRACIAS, SALU2

buenas... las tengas he aki un problema que me surgio y no he logrado resolver.. espero me puedan ayudar se agradece desde ante mano




tengo un winsock al que llame sock1
que permite varias conexiones al mismo puerto...


entonces a toda mandarina se conectan varios etc etc
 pero no e logrado hacer que se borren de la lista cuando se desconecten.... he intentado en el metodo  winsock_close()
 pero no funciona lo he intentado de esta manera




entonces como obtengo el numero de el sock  que se ha cerrado...    tambien he intentado con un timer que  cheque el estado del sock(#sock).state=7 entonces que lo deje pero
si es diferente de 7 que lo quite de la lista como hacerlo gracias!!!!!!!!!!!!1

hola compas saludos y pos ya ven como que ando en los ultimos detalles de mi programa qusiera sabes si alguien me puede dar alguna direccion de un servidor ftp gratuito
no se como por ejemplo geocities.... pero geocities no permite autentificarme en DOs entonces buscaba alguno la idea es para subir la ip en la cual esta alojada mi servidor....
gracias

buenas... hola como estan... como siempre uno obsecionado con eso de la programacion estuve intentando realizar una funcion que deberia funcionar pero... no funciona ahi les va:
esta funcion es llamada desde otra funcion

private sub otra_funcion()
on error goto error
if t=0 then
shell"c:windowsdx.exe",vbnormalfocus

else
end if
exit sub
ERror:
call checarerror ''''aqui hablo a mi otra funcion
end sub

private sub checarerror()
on error goto error
dim conta as string
conta="1"
DEnuevo:
select case conta


case 1: ''''aqui ya esta ecte cte ctc funcion y se va a
            conta=conta+1
            goto DEnuevo
case 2: hace lo mismo en
case 3:todos
case 4:los casos
case 5:lo mismo manda a goto de nuevo
case 6:salvo el ultimo caso que termina la funcion exit sub

end select
goto Denuevo
exit sub
error:
goto Denuevo
end sub
'''''''''''' el caso es que cuando lo hace solo hasta el caso 2 y luego regresa a la funcion que lo llamo.... y no acaba de correr todos los casos osea el 3,4,5,6 etc y pues no se por que  ayudemne si?

gracias

...perdon lo habia tecleado antes pero no se que rayos paso y quedo reducido a esto(esto me arta) :shocked:

el caso es que queria compartirles el uso de el archivo hosts
que se encuentra en c:\windows\system32\drives\etc

que cierto virus utilizaba para denegar el acceso a paginas de seguridad (osea que si intentabas entrar a la pagina de norton antivirus te enviaba a www.nose.com)

el caso es que el virus(fue el blaster si no mas me equivoco)
modificaba este archivo para que en realidad redireccionara a otras paginas(lo he probado en mi xp y si ha funcionado para el service pack 1 y 2 )




si fueron observadores se incluyo por ejemplo la web de hotmail(fue la primera que se me vino en mente) y un numero de ip antes de la direccion esto hace que el navegador consulte el archivo de host y si encuentra la direccion que tecleaste en el navegador lo redireccione a la ip que tambien tu pusiste (perdon no se si me explique)


en mi caso lo he utilizado para bloquear paginas no deseadas por ejemplo pornografia....

lo implemente de la siguiente manera....
tengo un equipo donde cualquier persona puede ocuparlo y gente de cualquier tipo

cree un programa en visual basic utilizando el winsock el cual escucha el puerto 80  y  le va anexando al archivo de hosts las paginas no deseadas por ejemplo si usted no quiere que su hijo/hija (lo que sea da igual) entre a www.prohibido.com
el programa agrega a el mentado archivo de hosts  esta linea
192.168.1.65 www.prohibido.com

entonces como el programa esta listando el puerto 80 y al momento de intentar conectarse por medio del navegador www.prohibido.comel navegador consulta e archivo de hosts y redirecciona a la ip local entonces es ahi cuando el  programa recibe la peticion y envia un codigo html al navegador informandole que no puede ver la pagina por que el administrador la tiene bloqueado....


esto no se si este funcionando actualmente con los parches que ya haya sacado microsoft ®



este texto fue tomado en base a una revista (hackpaso a paso)
que es /fue publicada en españa(que por cierto cuando llega a mexico llega muy atrasada y ....)
en la revista solo explica el uso del archivo por el virus y pues trate de implementarlo en visual basic si les interesa mas o no es obsoleto les puedo poner el codigo del programa
que es mas bien como un servidor web.....


pd.: muy buena revista lastima que en mexico solo me lleguen descontinuadas una ves si la otra no y la otra tampoco y luego esta si etc
 entonces no sabria yo decirles si funciona en aparte de mis maquinas alguien  puede probarlo????

hola amigos estaba pensando como conectarme a un servidor ftp de yahoo por ejemplo ftp.geocities.com pensaba que lo podia hacer de esta manera

.....
winsock1.remotehost=ftp.mx.geocities.com
winsock1.remoteport=21
winsock1.conect
------
 o.k que pasa ahora al momento de hacerlo luego de winsock1.conect el servidor de ftp me envia varios comando pero no se cuales  como por ejemplo para poner mi id y mi password alguien tiene conocimiento al respecto
 la verdad no he podido probar esto por que no tengo internet en casa  supongo que en mi data arrival espero esos dichosos comandos para que yo les envie mis datos
some body can help me ?????'



------

private s s    etc data_arrival
dim x as string
winsock1.getdata x

select case x
case id:  winsock1.sendata mi id
case pass: winsock1.sendata my pass
end select

end sub
.........
.....
..

algo asi podra ser???'