• Sábado 20 de Abril de 2024, 11:34

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.


Mensajes - nicagus

Páginas: [1]
1
Bases de Datos / consulta select sql con 2 condiciones where
« en: Lunes 22 de Agosto de 2011, 04:30 »
hola les cuento que estoy haciendo un programa en visual basic 6.0 que se relaciona con access y tengo una duda, necesito hacer una consulta SQL que tenga 2 condiciones, y no se como escribirlo.
 
Código: Visual Basic
  1. Private Sub Combo1_Click()
  2.  Data1.RecordSource = "SELECT * FROM Pagos WHERE Nombre_de_actividad='" & Combo1 & "'" And "where Numero_de_cliente=" & Val(Text3.Text)
  3.  Data1.Refresh
  4.  End Sub

O sea lo que quiero hacer es que cuando doy click en el combobox, en el ke están cargadas todas las actividades, ke solo me muestre las actividades que realiza un determinado cliente. Esos 2 campos los tengo en la misma consulta que se llama "Pagos". El código que puse arriba se que esta mal pero es para ke entiendan como lo quiero hacer y ke me digan por favor cual es la sintaxis correcta, desde ya muchas gracias.

2
Visual Basic 6.0 e inferiores / Duda programa gimnasio
« en: Viernes 5 de Agosto de 2011, 17:09 »
Hola, amigos, les cuento que estoy haciendo un programa en visual basic 6 para administrar un gimnasio para un proyecto del colegio y tengo 2 dudas:

1.Necesito inscribir a los socios en las actividades que realizan pero no se me ocurre como hacerlo, tengo una base de datos en access con una tabla "socios" y otra "actividades", y estaba pensando hacer otra tabla "socios por actividades". Tengo un formulario en el que se pueden agregar, eliminar o editar los datos de los socios y en otro hago lo mismo con las actividades. Para mayor informacion uso el control data para conectarme con access. ¿Cómo podría hacer para inscribir a un socio "x" en salsa y aerobics por ejemplo y después poder ver todas las actividades que realiza cada socio?

2. Tengo que colocar 4 cámaras ip para seguridad en el gimnasio y por lo que tengo entendido se visualizan a través del navegador web colocando su Ip, lo que quiero hacer es colocar 4 navegadores web en un formulario para ver todas las cámaras y que luego la ip de las camaras se guarden en la base de datos para no tener que volver a escribirla cada vez (esto si creo que se hacer, jaja). Mi duda es que no se si tengo que crear mi propio navegador web si o si con el control webbrowser y todo eso, o si hay algun componente para poder agregar el navegador internet explorer por ejemplo, esto seria lo mas conveniente ya que realmente no me importa mucho el código del navegador, solo tiene que conectarse a una ip, no necesita nada complicado, jajaja. Si solo se puede hacer con el control webbrowser, ¿me podrían dar una guia de como hacerlo?, no estoy muy seguro de saber hacerlo, jaja.

Bueno esas son mis 2 dudas, espero que puedan responderme, si necesitan que publique alguna parte del código solo pidamenlo, no subo el programa entero porque supuestamente es bastante extenso y supuestamente es un proyecto secreto, jajaja, prometo que una vez que lo termine y me califiquen voy a subirlo, para ayudar a quien lo necesite. Desde ya, muchas gracias.

3
Visual Basic 6.0 e inferiores / Problema con select from en base de datos access
« en: Lunes 4 de Julio de 2011, 03:45 »
Hola, es la primera vez que escribo en este foro asi que disculpen si cometo errores, hice un formulario para buscar registros en una base de datos de access y mostrar en un msflexgrid a los que coincidan con los criterios de búsqueda, el problema es que cuando quiero buscar un cliente segun el número de cliente me tira el siguiente error:  " Error 3075 en tiempo de ejecución: Error de sintaxis (falta operador)  en la expresión de consulta 'Número de cliente = 1 '.
El código es el siguiente:
Código: Visual Basic
  1.  
  2. Private Sub Command1_Click()
  3. If Option1 = True Then
  4. Data1.RecordSource = "select * from Socios where Apellido = '" & Text1 & "'"
  5. Data1.Refresh
  6.  
  7. If Data1.Recordset.EOF Then
  8. MsgBox "El apellido : '" & Text1 & "'" & " No está en la Base de Datos", vbExclamation, "¡Por Favor Revisa el apellido!"
  9. Text1 = ""
  10. Text1.SetFocus
  11. End If
  12.  
  13. ElseIf Option2 = True Then
  14. Data1.RecordSource = "select * from Socios where Número de cliente = " & Val(Text1)
  15. Data1.Refresh
  16.  
  17. If Data1.Recordset.EOF Then
  18. MsgBox "El número de cliente : '" & Text1 & "'" & " No está en la Base de Datos", vbExclamation, "¡Por Favor Revisa el número de cliente!"
  19. Text1 = ""
  20. Text1.SetFocus
  21. End If
  22.  
  23.  
  24. Private Sub Option1_Click()
  25. If Option1 = True Then
  26. Label2.Visible = True
  27. Label2.Caption = "Introduce el apellido que buscas"
  28. Text1.Visible = True
  29. Text1 = ""
  30. Text1.SetFocus
  31. End If
  32. End Sub
  33.  
  34. Private Sub Option2_Click()
  35. If Option2 = True Then
  36. Label2.Visible = True
  37. Label2.Caption = "Introduce el número de cliente que buscas"
  38. Text1.Visible = True
  39. Text1 = ""
  40. Text1.SetFocus
  41. End If
  42. End Sub
  43.  
  44.  
  45. Private Sub Form_Load()
  46. MSFlexGrid1.ColWidth(0) = 300
  47. MSFlexGrid1.ColWidth(1) = 800
  48. MSFlexGrid1.ColWidth(2) = 2100
  49. MSFlexGrid1.ColWidth(3) = 2500
  50. MSFlexGrid1.ColWidth(4) = 1000
  51. Label2.Visible = False
  52. Text1.Visible = False
  53.  
  54. End Sub
  55.  
  56.  
  57.  
El programa funciona de esta forma: Yo selecciono si busco según el número de cliente o el apellido del socio mediante los option button, una vez que los seleccione tengo que escribir en el text1 lo que deseo buscar y presionar el botón buscar (command1), al hacer esto me tienen que aparecer en el msflexgrid los registros que coinciden con lo que escribi en el text1.
El problema lo tengo al seleccionar el option 1 y buscar el número de cliente (que es un campo tipo número), pero si busco según el apellido (campo tipo texto) no tengo ningun problema. ¿Estoy cometiendo algún error de sintaxis al buscar el número de cliente?. Espero que puedan ayudarme, desde ya se los agradezco.

Páginas: [1]