• Viernes 8 de Noviembre de 2024, 12:35

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 - 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 / 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:

3
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]