• Viernes 8 de Noviembre de 2024, 12:52

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 - ghr

Páginas: [1]
1
Visual Basic 6.0 e inferiores / Contador!!!
« en: Domingo 11 de Marzo de 2007, 07:41 »
buenas dias amigos, otra vez por aqui tratado de arreglar un problema que tengo, mieren lo que pasa es que tengo una tabla en la que tengo continfor y contsist y lo que quiero hacer es que que al seleccionar una de las dos opciones que tengo en un combo se incremente el contador dependiendo de la opcion que se escoja, como tengo el codigo es asi:


Código: Text
  1. Private Sub cmbCarrera_LostFocus()
  2.             Dim db As String
  3.             Dim con As Connection
  4.             Dim rstEsp As Recordset
  5.    
  6.             db = App.Path & "\encuesta.mdb"
  7.    
  8.             Set con = New ADODB.Connection
  9.             Set rstEsp = New ADODB.Recordset
  10.    
  11.     Select Case cmbCarrera.Text
  12.         Case "INFORMATICA"
  13.             con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & db
  14.             rstEsp.Open "SELECT continfor FROM contadores", cnn, adOpenDynamic, adLockOptimistic
  15.            
  16.             If Not (rstEsp.EOF) Then
  17.                 varcg = rst.Fields("continfor")
  18.                 varcg = varcg + 1
  19.                 rstEsp!continfor = varcg
  20.                 rstEsp.Update
  21.                 rstEsp.Close
  22.                 txtXp.Text = "INFORMATICA" & varcg
  23.                 txtNombre.SetFocus
  24.             End If
  25.                  
  26.         Case "SISTEMAS"
  27.             con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & db
  28.             rstEsp.Open "SELECT contsist FROM contadores", cnn, adOpenDynamic, adLockOptimistic
  29.            
  30.             If Not (rstEsp.EOF) Then
  31.                 varlp = rstEsp.Fields("contsist")
  32.                 varlp = varlp + 1
  33.                 rstEsp!contsist = varlp
  34.                 rstEsp.Update
  35.                 rstEsp.Close
  36.                 txtXp.Text = "SISTEMAS" & varlp
  37.                 txtNombre.SetFocus
  38.             End If
  39.         Case Else
  40.             Beep
  41.             mensaje = MsgBox("Debe escoger una CARRERA para poder        continuar", vbOKOnly)
  42.             cmbCarrera.SetFocus
  43.     End Select
  44. End Sub
  45.  

se supone que despues de que cerramos el Recordset quiero concatenar (dependiendo el que se escoja en el combo) "SISTEMAS & 1", quedando SISTEMAS1 y luego se guarda y si lo vuelvo a ejecutar despues que fuera "SISTEMAS2, etc" pero asi como lo tengo no me hace nada: una no se incrementa en la base, dos: no me respeta el setfocus del txtNombre y tres tampoco se pone en el txtXp el dichoso "SISTEMAS1, ect.

si alguien me puediera decir en que parte del codigo puediera estar mal, o que es lo que me falta....  (las variales varcg y carlp las tengo declaradas como integer) :(

2
Visual Basic 6.0 e inferiores / Re: Select Case!!!
« en: Domingo 11 de Febrero de 2007, 20:25 »
ya probe las recomendaciones que me hicieron y las dos resultaron buenas, aunque como la intención siempre es de optimizar las lineas de codigo que manejamos deje el codigo como sigue

Código: Text
  1. Private Sub Form_Load()
  2.     Combo1.Visible = False
  3.         For k = 55 To 135
  4.             Combo2.AddItem k
  5.         Next
  6. End Sub
  7.  
  8.  

Código: Text
  1. Private Sub Combo2_Click()
  2.     Combo1.Visible = True
  3.      Select Case Combo2.Text
  4.         Case 55
  5.             For cm = 56 To 89
  6.                 Combo1.AddItem cm
  7.             Next
  8.         Case 56
  9.             For cm = 56 To 89
  10.                 Combo1.AddItem cm
  11.             Next
  12.         Case 104
  13.             For cm = 59 To 125
  14.                 Combo1.AddItem cm
  15.             Next
  16.         Case 105
  17.             For cm = 59 To 127
  18.                 Combo1.AddItem cm
  19.             Next
  20.         Case 106
  21.             For cm = 59 To 127
  22.                 Combo1.AddItem cm
  23.             Next
  24.         Case 126
  25.             For cm = 62 To 127
  26.                 Combo1.AddItem cm
  27.             Next
  28.         Case 127
  29.             For cm = 62 To 127
  30.                 Combo1.AddItem cm
  31.             Next
  32.         Case 128
  33.             For cm = 62 To 127
  34.                 Combo1.AddItem cm
  35.             Next
  36.       .
  37.       .
  38.       .
  39.      End Select
  40. End Sub
  41.  
  42.  

todo sale tal y como necesito, gracias...   :)

 :comp:

3
Visual Basic 6.0 e inferiores / Select Case!!!
« en: Domingo 11 de Febrero de 2007, 03:43 »
hola amigos, vengo aki para si alguien me puede ayudar en una duda que tengo. bueno lo ke pasa es ke tengo un procedimiento en el que tengo  lo siguiente:

con este codigo empiezo a agregar al combo los valores que aqui se muestran
Código: Text
  1.  
  2. Private Sub Form_Load()
  3.     Combo1.Visible = False
  4.     For k = 1 To 81
  5.        Combo2.AddItem Choose(k, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, _
  6.        66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, _
  7.        85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, _
  8.        103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, _
  9.        118, 119, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, _
  10.        133, 134, 135)
  11.     Next
  12. End Sub
  13.  
  14.  

luego se abre otro combo en el que se agregan otros datos en ese combo que se abre dependiendo del CASE toma unos valores diferentes al otro, todo va bien hasta el CASE 126 ahi me muestra Procedimiento demasiado largo, del 126 en adelante los tengo comentados porque si no me marca este error aunque escogiera el 55, si alguien me puede ayudar en esta duda.

Código: Text
  1. Private Sub Combo2_Click()
  2.     Combo1.Visible = True
  3.      Select Case Combo2.Text
  4.         Case 55
  5.             For cm = 1 To 34
  6.                 Combo1.AddItem Choose(cm, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, _
  7.                 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, _
  8.                 83, 84, 85, 86, 87, 88, 89)
  9.             Next
  10.         Case 56
  11.             For cm = 1 To 34
  12.                 Combo1.AddItem Choose(cm, 60, 61, 62, 63, 64, 65, _
  13.                 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, _
  14.                 83, 84, 85, 86, 87, 88, 89, 90, 91, 93, 94)
  15.             Next
  16.         Case 57
  17.          .
  18.           .
  19.            .
  20.         ' Case 126
  21.         '  .
  22.         '  .
  23.     End Select
  24. End Sub
  25.  


espero y me puedan ayudar para resolver este problema
 :unsure:

4
Visual Basic 6.0 e inferiores / Re: Ayuda Con Un Calendario!!!
« en: Domingo 12 de Marzo de 2006, 07:42 »
poke no puedo adjuntar un image.jpg

5
Visual Basic 6.0 e inferiores / Re: Ayuda Con Un Calendario!!!
« en: Domingo 12 de Marzo de 2006, 06:23 »
:blink: oie cpmario, se me cerro la cabeza, no se por donde empezar, no se si me puedas dar mas pistas, para poder hacerle esa modificacion al calendario, porke la vd no se ni ke onda!!! , ya que los select si los se manejar, pero para el calendario, no veo como le pueda hacer:(

6
Visual Basic 6.0 e inferiores / Re: Ayuda Con Un Calendario!!!
« en: Jueves 9 de Marzo de 2006, 03:32 »
Gracias por la respuesta cpmario... pero ahora me kedo otra duda, ke para poner  o ir recorriendo los meses, se hace mediante codigo?, ya que  en la propiedad max y min solo ser permiten numeros, habria que me diante codigo tome un valor del mes, dependiendo del mes al que le correponda el numero se vaya recorriendo?
no se si me explique
thanks
 ;)

7
Visual Basic 6.0 e inferiores / Ayuda Con Un Calendario!!!
« en: Jueves 9 de Marzo de 2006, 01:23 »
hola, compañeros de solocodigo... soy nuevo por aqui en estos rumbos de visual basic y me recomendaron mucho este sitio, ya que ando tratando de empezar hacer alguna aplicaciones en visual basic. bueno miren, mi duda es la siguiente, tengo un calendario, que hace las funciones que yo quiero, pero!!! hay un problema... bueno lo que quiero hacer es que el calendario tenga debajo de el un barra?? el cual me pueda desplazar, hacia los meses ya sea anteriores o futuros, porke la opcion que trae por default es de seleccionar el mes (de un combo) al igual que el año, y para el usuario final, se me hace que noes muy practico, si tuvieran algun comentario o sugerencia, por favor haganmela saber, please

Páginas: [1]