Mensajes

Tarde o temprano se lo necesita a Cobein ehh jajaj

no quiero ofender...pero si ya te falta inmaginación para hacer un troyanito, no me imagino lo que sera cuando tengas que hacer una aplicación realmente "seria"...

saludos.

para empezar a hacer un troyano ya te hace falta un poco de imaginacion xD

[Max(idregistro)]

hace un Max(idregistro) y listo...despues le sumas 1 para el nuevo registro...

Ojo aca... si queres visualizar esto... tenes que hacer asi...

Código [Seleccionar] Expandir

SELECT MAX(Campo) AS Variable FROM tabla

entonces si queres visualizar El campo maximo de esa tabla haces lo siguiente

Código [Seleccionar] Expandir

debug.print RecordeSet("variable")

el debug.print puede ser reemplazado por otra variable o un txt y a la vez poder sumarle un valor.

PD: a mucha gente le confunde y no sabe como sacar el valor despues de hacer el query

saludos

[ADO]

Hola, ultimamente tube que hacer unas cosas con excel y vb pero... no encuentro nada que Inserte, elimine y lea

o sea necesito un codigo o algun ejemplo que use Excel y ADO
objet no me sirve para nada...

si tienen algun codigo les agradezco muchisimo

bye

bueno les comento, tengo 2 tablas... y necesito imprimir con datareport...

la solucion fue utilizar el dataenvironment lo cual me ayudo bastante pero llegue a un punto donde no puedo hacerlo funcionar...

tengo la tabla Pacientes y la tabla Historial

cada paciente tiene varios historiales los cuales se filtran por el numero de paciente...

para poder imprimir cada paciente y todas sus historias ya esta echo, el problema es que necesito poner parametros para filtrar por fecha los dicos historiales y no encuentro manera de hacerlo...

intente hacer 1 codigo donde se haga todo en el command1 pero utilizo 2 secciones en el datareport y me tira error

alguien tiene la minima idea de como hacer esto?

Hola, la runtime es obligatoria...pero despues...depende lo que use tu aplicación..sino te podes dar cuenta de que te falta, con lo errores que te tiraria...

saludos.

ese es el problema, cuando muestro el programa se supone que tiene que ser perfecto xD jaja y no puede haber errores... pero... despues me las arreglo

saludos y felicidades a seba

lamentablemente no tengo otra pc en mi casa y no tengo ningun conocido con win98 asi que si alguno es tan amable o sabe la respuesta se lo voy a agradecer.

la cosa es que estoy haciendo una aplicacion comercial y necesito saber que DLL o OCX necesita 98 para que funcione una aplicacion normal de vb...

aparte del Runtime que otra cosa se necesita?, mi aplicacion maneja base de datos access...


saludos

AJAAAAAAAAAAA, que estan diciendo de mi ¬¬????

como es eso que estoy loco? jajajaja

esta todo mas que bien y ... yo no lo llamaria loco pero... hago que respeten las reglas al pie de la letra pero si soy un poco loco tambien...

pero... no se no estoy muy en el "tuco" ahora pero estoy empezando a progamar de mevo, si ponene una encuesta y me postulan tal vez acepte pero seba123neo sabe bastante... aunque no es tan extricto como yo jijij

un saludo =)

La cuestion es impedir la entrada al disco ya sea ocultandolo o que se muestre sin nesecidad de reiniciar el Pc asi no me funcionaria, ya sea un disco duro o una memoria USB.

Saludos..

con el registro n otenes que reiniciar... solo tenes que reiniciar el EXPLORER y todo se aplica... igual lo que intentas hacer es un malware asi que cuando reinicie se lleva la sorpresa

[solo converte el caracter]

yo hice algo muy muy parecido, pero convertia el caracter en ascii y despues le sumaba algun valor, entonces siempre me iba a quedar numeros de 3 sifas. despues con el descifrar le restaba el numero a las 3 cifras y lo convertia en caracter. todo eso con un for que iba de 3 en 3...

Aca te dejo uno, pero este no sumba ningun valor, solo converte el caracter

Código [Seleccionar] Expandir

Private Sub Command1_Click()
    Dim s As String
    s = UCase(Text1)
    Text2 = ""
    For i = 1 To Len(s)
        Text2 = Text2 & "0" & Asc(Mid(s, i, 1))
    Next
End Sub

Private Sub Command2_Click()
    Dim s As String
    s = Text2
    Text2 = ""
    For i = 1 To Len(s) Step 3
        Text2 = Text2 & Chr(Val(Mid(s, i, 3)))
    Next
End Sub

saludos =)