• Miércoles 8 de Mayo de 2024, 03:45

Mostrar Mensajes

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


Temas - KidD

Páginas: [1]
1
MS Access / Verificar Existencia De Una Tabla
« en: Viernes 7 de Mayo de 2004, 03:49 »
que tal muchachos queria saber si existe algnua forma de verificar la existencia de una tabla con ADO porque encontre un ejemplo de como hacerlo con DAO pero no se como se usa DAO y no tengo idea de como isntalarlo ni se si lo tengo ni nada :P

 o sea necesito saber si una tabla existe porque si no existe la tengo que crear, y tmb si se recorrer de alguna forma las tablas o sea
 por ejemplo basededats[1].nombnre y que me tire el nombre de esa tabla

Gracias por todo.
SAludos.Pablo

2
ASP / Estadisticas En Asp
« en: Martes 27 de Abril de 2004, 13:14 »
Bueno la idea es hacer una estadisticias sobre que páginas son mas visitaas en el sitio. dentro de las que nos interesan que son de productos etc.
el tema que esas paginas son muchas distintas en formato html y no me da para ir cmabiando cada una de ellas para que valla sumando en algun contador

 me interesaria saber si exite algun evento que pueda hacer general para cualquier usuario en el cual cada vez que entre en alguna pagina detro de x directorio pueda hacer lo que necesito.

se entiende mas o menos?...

El problema es que no se bien como encararlo quizas si me tiran una punta puedo empezar a investigar por ese lado.

o sea basicamente  "estoy en bolas" :(

Gracias a todos.
Pablo

3
Pascal / Ayuda Con Archivos, Nada Dificil
« en: Domingo 25 de Abril de 2004, 00:12 »
Bueno mi problema es que me tira:
error 100: Disk read Error en la linea read(db_socios,socio); que está casi al final.
y otra cosa, como hago para que me guarde los registros en forma de renglones?
porque haciendo wirteln(db_socios,socio) me tira "invalid filetype"

Gracias por todo y espero que me puedan ayudar
Saludos
Pablo
Código: Text
  1.  
  2. program prueba;
  3.  
  4. uses
  5.     crt,strings,dos;
  6.  
  7. type
  8.     socios = record
  9.     id_socio : word;
  10.     nombre : string[50];
  11.     apellido : string[50];
  12.     direccion : string [50];
  13.     telefono : string [14];
  14.     pedidos : word;
  15.     estado : boolean;
  16. end;
  17.  
  18. type
  19.     libros = record
  20.     id_libro : word;
  21.     nombre : string[80];
  22.     autor_nom : string[50];
  23.     autor_ape : string[50];
  24.     peticiones : word;
  25.     catidad : byte;
  26.     disponibles : byte;
  27. end;
  28.  
  29. type
  30.     prestamos = record
  31.     id_prestamo : word;
  32.     id_libro : word;
  33.     id_socio : word;
  34.     fecha_ret : datetime;
  35.     fecha_dev : datetime;
  36. end;
  37.  
  38. var
  39.    db_socios : file of socios;
  40.    socio,socio2 : socios;
  41.  
  42. begin
  43.      clrscr;
  44.      assign(db_socios,'c:\db_socios.txt');
  45.      rewrite(db_socios);
  46.      socio.id_socio := 1;
  47.      socio.nombre := 'Pedro';
  48.      socio.apellido := 'Caracciolo';
  49.      socio.direccion := 'Amenabar 881';
  50.      socio.telefono := '(011) 4784-0236';
  51.      socio.pedidos := 100;
  52.      socio.estado := FALSE;
  53.      write(db_socios,socio);
  54.      writeln;
  55.  
  56.      socio.id_socio := 2;
  57.      socio.nombre := 'PePona';
  58.      socio.apellido := 'Caracciolo';
  59.      socio.direccion := 'Amenabar 881';
  60.      socio.telefono := '(011) 4784-0236';
  61.      socio.pedidos := 100;
  62.      socio.estado := FALSE;
  63.      write(db_socios,socio);
  64.      {writeln(db_socios,socio);}
  65.     
  66.      read(db_socios,socio2);
  67.      writeln(socio2.id_socio);
  68.      writeln(socio2.nombre);
  69.      writeln(socio2.apellido);
  70.      writeln(socio2.direccion);
  71.      writeln(socio2.telefono);
  72.      writeln(socio2.pedidos);
  73.      writeln(socio2.estado);
  74.      close(db_socios);
  75. end.
  76.  
  77.  

4
Pascal / Mejor Opcion A La Hora De Hacer Abms
« en: Miércoles 21 de Abril de 2004, 02:07 »
Que tal ?, bueno mi intriga es saber cual es la mejor forma de hacer un sistema de altas bajas y modificiaciones. lo mejr que yo conozco para  Turbo Pascal 5.5 es archivos RAndom,
Pero bue qzuias haya cosas mejores, aunque dudo que se pueda usar SQL y cualqueir base de datos SQL server o ACces  (seria un seño hecho realidad :P)

Saludos y gracias a todos

5
JavaScript / Duda Sobre Onclik, Onsubmit
« en: Viernes 16 de Abril de 2004, 00:05 »
Bueno cree un funcion en javascript que valida que no haya induts vacios y que devuelva una boolean

alguien me peude explicar porque no funcina esto
uso un input del tipo sumbit

onsubmit ="return ValidaForm(this);"
onclick ="return ValidaForm(this);"

yo vi ejemplos en la web que usan el onsubmit  y niguno con onclick pero a mi me funciona el onclick y no el onsumit es como que en el onsubmit se saltea todo el script y va directamente al action del form

seguramente es porue toy haciendo algo mal :P algun fallo de conceptos etc.
GRacias a todos y saludos

6
ASP / Re: Problemas Con SQL y ASP
« en: Miércoles 12 de Noviembre de 2003, 21:04 »
Citar
Mensaje original de KidD
Mi probelma es que me tira error cuando quiero ejecutar la sentencia SQL en la pagina de borrar

Me tira este error
Tipo de error:
Microsoft JET Database Engine (0x80004005)
No se pudo eliminar nada en las tablas especificadas.
/borrar.asp, línea 20

Lei por ahi que podia ser algo de permisos de escritura pero busque cambie varios permisos(quizas hice alguna cagada)
y sigue sin funcionar
ALguien me peude ayudar?

Esta es la pagina que lista

 
Código: Text
  1.  
  2. <% @Language=VBScript%>
  3. <% Option Explicit %>
  4. <%
  5. Dim ObjConn
  6. Dim ObjRS
  7. Dim SQL
  8. %>
  9. <html>
  10.  
  11. <head>
  12. <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
  13. <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
  14. <meta name="ProgId" content="FrontPage.Editor.Document">
  15. <title>Pagina nueva 1</title>
  16. </head>
  17.  
  18. <body>
  19.  
  20.  
  21. <%
  22. SQL = "SELECT * FROM prueba"
  23. Set ObjConn = Server.CreateObject("ADODB.Connection")
  24. Set ObjRS = Server.CreateObject("ADODB.RecordSet")
  25. ObjConn.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("prueba.mdb"))
  26.  
  27.  
  28. ObjRS.Open SQL, ObjConn, 3, 3%>
  29. <form method="POST" action="borrar.asp">
  30. <table border="1" cellpadding="0" cellspacing="0" width="100%" bordercolor="#464646" style="font-family: Verdana; font-size: 8 pt">
  31. <TR>
  32.         <td width="6%" bgcolor="#CCCCCC" style="font-weight: bold" align="center"> </TD>
  33.         <td width="3%" bgcolor="#CCCCCC" style="font-weight: bold" align="center">ID</TD>
  34.         <td width="11%" bgcolor="#CCCCCC" style="font-weight: bold" align="center">Nombre</TD>
  35.         <td width="11%" bgcolor="#CCCCCC" style="font-weight: bold" align="center">Apellido</TD>
  36.         <td width="11%" bgcolor="#CCCCCC" style="font-weight: bold" align="center">DNI</TD>
  37.         <td width="11%" bgcolor="#CCCCCC" style="font-weight: bold" align="center">E-Mail</TD>
  38.         <td width="11%" bgcolor="#CCCCCC" style="font-weight: bold" align="center">Usuario</TD>    
  39.         <td width="11%" bgcolor="#CCCCCC" style="font-weight: bold" align="center">Contraseña</TD>
  40. </TR>
  41.  
  42. <%Do While NOT ObjRS.EOF%>
  43.    
  44.     <TR>
  45.         <td width="69%" bgcolor="#EEEEEE" colspan="8"></TD>
  46.     </TR>
  47.     <TR>
  48.         <TD width="6%" bgcolor="#EEEEEE" align="center">
  49.             <p><input type="checkbox" name="<%=ObjRS("id")%>" value="ON"></p>  
  50.         </TD>
  51.         <td width="3%" bgcolor="#EEEEEE" style="font-weight: bold" align="center"><%=ObjRS("id")%></TD>
  52.         <td width="10%" bgcolor="#EEEEEE" align="center"><%=ObjRS("nombre")%></TD>
  53.         <td width="10%" bgcolor="#EEEEEE" align="center"><%=ObjRS("apellido")%></TD>
  54.         <td width="10%" bgcolor="#EEEEEE" align="center"><%=ObjRS("dni")%></TD>
  55.         <td width="10%" bgcolor="#EEEEEE" align="center"><%=ObjRS("email")%></TD>
  56.         <td width="10%" bgcolor="#EEEEEE" align="center"><%=ObjRS("usuario")%></TD>
  57.         <td width="10%" bgcolor="#EEEEEE" align="center"><%=ObjRS("contraseña")%></TD>
  58.     </TR>
  59.     <%ObjRS.MoveNext%>
  60.  
  61. <%
  62. Loop
  63. ObjRS.Close
  64. ObjConn.Close
  65. Set ObjRS = Nothing
  66. Set ObjConn = Nothing
  67. %>
  68.     <TR>
  69.         <td width="69%" bgcolor="#EEEEEE" colspan="8"></TD>
  70.     </TR>
  71.    
  72.     <TR>
  73.         <td width="69%" bgcolor="#EEEEEE" colspan="8" align="center"><input type="submit" value="Borrar"></TD>
  74.         </td>
  75.     </TR>
  76. </TB>
  77. </table>
  78. </form>
  79. </body>
  80.  
  81.  


Este es la pagina que borra
 
Código: Text
  1.  
  2. <%@ Language = VBScript%>
  3. <%OPTION EXPLICIT%>
  4. <%
  5. Dim ObjConn
  6. Dim ObjRS
  7. Dim SQLSentence
  8. Dim elementos
  9.  
  10. SQLSentence = "DELETE * FROM prueba WHERE "
  11. SET ObjConn = Server.CreateObject("ADODB.Connection")
  12. SET ObjRS = Server.CreateObject("ADODB.RecordSet")
  13. ObjConn.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" + Server.MapPath("prueba.mdb"))
  14.  
  15. for elementos = 1 to Request.Form.Count
  16.     if Request.Form(elementos) = "ON" then
  17.         SQLSentence = SQLSentence & "id=" & elementos & " OR "
  18.     end if
  19. next
  20. SQLSentence = left(SQLSentence,Len(SQLsentence)-3)
  21. ObjConn.Execute SQLSentence
  22. Response.Redirect ("lista.asp")
  23. %>
  24.  
  25.  

Muchas gracias. KidD </b>
 

el campo id en la base de datos (acces) es autonumérico

7
Dudas informáticas / Imprimir libros de a varios
« en: Sábado 8 de Noviembre de 2003, 01:02 »
No se se me ocurrio ir tipo, no se, 50 personas que queira un libro bajado de inet y vamos a una mini imprenta e imprimimos
 quizas no sale mas barato, quizas estoy diciendo cualquiera no se:D

a alguien le interesarìa?

o es un simple suño que nunca voy a cumpli (el de pder leer comdamente en mi cama)

8
Dudas informáticas / Re: Soy nuevo, y otras cosas :D
« en: Jueves 23 de Octubre de 2003, 17:46 »
Bueno queria decir que Soy nuevo en este Foro ya hace varios dias que entro pero nucna habia posteado hasta ahora una cosa de c
http://foros.solocodigo.com/viewthread.php?tid=5463

Bueno ahora queria reportar un bug va mas que bug una sugerencia
la priemra vez que quice hacer el post de recien el de c. me habia confundid el password entonces quice aprentar en el boton volver del explorer y resulta que no me llevo al mensaje que estab aescribiendo sino al foro de c. (o sea se salteo la pgina de mi mensaje que habi estado escribiendo) quizas esto se solucione ahciendo un update del DevBB.
Saludos y epero que est foro crezca y se convierta en algo bueno para todos..(ahora empiezo a hacer propaganda).

Saludos a todos y Denme una buena bienevenida:P

9
C/C++ / Re: Multithreading en C/C++
« en: Jueves 23 de Octubre de 2003, 17:40 »
Mi intencion es hacer un scanner de puertos que scanee por ejemplo un rangode IPs  y que vaya scanenado de mmm lo que el usuario decida no se, 100 ips por vez..

o sea yo le pongo from IP to IP que scanee el puerto X y que vaya probando de por ej 100 IPs a la vez..  pense en recursividad. pero la recursividad hace de a una funcion por vez o sea una vez que llegue a la clausula de finalizacion va a ir cerrando las funciones de a una es lo mismo que hacerlo de forma iterativa. asi que no se espero que algun alma caritativa me ayude en mi duda..
GRacias a todos y Saludos
KidD

Esto vendira a ser como un reto porque vi que la mayoria de los scanners de puertos o scanners de seguridad hacen eso y nunca se me ocurrio una forma de hacerlo

Páginas: [1]