• Viernes 8 de Noviembre de 2024, 10:38

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

Páginas: 1 [2]
26
Bases de Datos / Re: Problema con combobox
« en: Viernes 27 de Febrero de 2009, 00:35 »
Ya me di cuenta del error muchas gracias. Ahora no puedo probarlo, mañana por la mañana lo pruebo y comento lo que ocurre
Limpio los combobox por si existe algo simplemente para asegurarme.
Lo que hacia, metia los tres combobox y solo me cargaba el ultimo.

Muchas gracias.

27
Bases de Datos / [SOLUCIONADO]Problema con combobox
« en: Jueves 26 de Febrero de 2009, 19:11 »
Buenas estoy intentando cargar unos combobox, 3 en concreto y lo que me ocurre es que carga uno y el resto no, No se cual es el motivo


Código: Visual Basic
  1. Dim tablahispacientes As TableDef
  2. Dim registrohispacientes As Recordset
  3.  
  4. Dim tablaenfermedades As TableDef
  5. Dim registroenfermedades As Recordset
  6.  
  7. Dim tablatratamientos As TableDef
  8. Dim registrotratamientos As Recordset
  9.  
  10. Dim tablamedicos As TableDef
  11. Dim registromedicos As Recordset
  12.  
  13.  
  14. Private Sub Form_Load()
  15. Rem cargo los valores de la tabla hispacientes
  16.  
  17.  
  18.     Set tablahispacientes = dbclinica.TableDefs("Hispacientes")
  19.     Set registrohispacientes = tablahispacientes.OpenRecordset(dbOpenDynaset)
  20.     Rem cargo pacientes
  21.  
  22.              tbarhispacientes.Buttons(1).Enabled = False
  23.             tbarhispacientes.Buttons(2).Enabled = False
  24.             tbarhispacientes.Buttons(3).Enabled = False
  25.  
  26.  Rem cargo combo enfermedades
  27.     Dim slinea As String
  28.        
  29.     Set tablaenfermedades = dbclinica.TableDefs("Enfermedades")
  30.     Set registroenfermedades = tablaenfermedades.OpenRecordset(dbOpenDynaset)
  31.    
  32.     registroenfermedades.Sort = "[codeENF] Asc"
  33.    
  34.     If Not registroenfermedades.EOF Then
  35.         cbbenfermedades.Clear
  36.    
  37.        
  38.         While Not registroenfermedades.EOF
  39.             slinea = Format(registroenfermedades.Fields("codeENF")) & Space(1) & Left$(registroenfermedades.Fields("nomENF"), 50)
  40.            
  41.             cbbenfermedades.AddItem slinea
  42.            
  43.             registroenfermedades.MoveNext
  44.         Wend
  45.     End If
  46.     cbbenfermedades.Text = cbbenfermedades.List(0)
  47.     registroenfermedades.Close
  48.  
  49. Rem cargo combo tratamientos
  50. [b]Este es el unico que carga de todos[/b]
  51.    
  52.    Set tablatratamientos = dbclinica.TableDefs("Tratamientos")
  53.    Set registrotratamientos = tablatratamientos.OpenRecordset(dbOpenDynaset)
  54.    
  55.    
  56.     registrotratamientos.Sort = "[codtTRAT] Asc"
  57.    
  58.     If Not registrotratamientos.EOF Then
  59.         cbbenfermedades.Clear
  60.    
  61.        
  62.         While Not registrotratamientos.EOF
  63.             slinea = Format(registrotratamientos.Fields("codtTRAT")) & Space(1) & Left$(registrotratamientos.Fields("nomTRAT"), 50)
  64.            
  65.             cbbtratamientos.AddItem slinea
  66.            
  67.             registrotratamientos.MoveNext
  68.         Wend
  69.     End If
  70.     cbbtratamientos.Text = cbbtratamientos.List(0)
  71.     registrotratamientos.Close
  72.    
  73. Rem cargo el combo box de medicos
  74.  
  75.    Set tablamedicos = dbclinica.TableDefs("Medicos")
  76.    Set registromedicos = tablamedicos.OpenRecordset(dbOpenDynaset)
  77.    
  78.    registromedicos.Sort = "[codmMED] Asc"
  79.    
  80.     If Not registromedicos.EOF Then
  81.         cbbmedicos.Clear
  82.        
  83.        While registromedicos.EOF
  84.        
  85.         slinea = Format(registromedicos.Fields("codmMED")) & Space(1) & Left$(registromedicos.Fields("nomMED"), 50) & Space(1) & Left(registromedicos.Fields("apelMED"), 50)
  86.        
  87.         cbbmedicos.AddItem slinea
  88.        
  89.         registromedicos.MoveNext
  90.         Wend
  91.     End If
  92.     cbbmedicos.Text = cbbenfermedades.List(0)
  93.     registromedicos.Close
  94.    
  95.  
  96. End Sub
  97.  


Gracias y perdonad de nuevo.

28
Bases de Datos / Re: Error 3021 No Hay Ningun Registro Activo
« en: Jueves 26 de Febrero de 2009, 18:08 »
Solucionado


Código: Visual Basic
  1. # Private Sub txtcodpaciente_LostFocus()
  2. #     Dim criterio As String
  3. #     Dim v As Integer
  4. #    
  5. #     v = Val(txtcodpaciente.Text)
  6. #  
  7. if not registrohispacientes.eof then
  8.  
  9. #     If txtcodpaciente.Text <> "" And v >= 1 And v <= 99999 Then
  10. #         criterio = "codpHIS = " & Val(txtcodpaciente.Text)
  11. #        
  12. #         registrohispacientes.FindFirst criterio
  13. #        
  14. #         If registrohispacientes.NoMatch Then
  15. #             txtcodpaciente.Text = registrohispacientes.Fields("codpHIS")
  16. #             txtnumcorre.Text = registrohispacientes.Fields("cohHIS")
  17. #             txtcodenfermedad.Text = registrohispacientes.Fields("codeHIS")
  18. #             txtcodmedico.Text = registrohispacientes.Fields("codmHIS")
  19. #             txtcodtratamiento.Text = registrohispacientes.Fields("codtHIS")
  20. #             txtfechahistorial.Text = registrohispacientes.Fields("fechaHIS")
  21. #             txtnotashistorial.Text = registrohispacientes.Fields("notaHIS")
  22. #             tbarhispacientes.Buttons(1).Enabled = False
  23. #             tbarhispacientes.Buttons(2).Enabled = True
  24. #             tbarhispacientes.Buttons(3).Enabled = True
  25. #         Else
  26. #             tbarhispacientes.Buttons(1).Enabled = True
  27. #             tbarhispacientes.Buttons(2).Enabled = False
  28. #             tbarhispacientes.Buttons(3).Enabled = False
  29. #    
  30. #     End If
  31. # End If
  32. else
  33.     rem botones. Dependera del proyecto
  34.    x=msgbox("No hay registros",vbokonly,"Clinica")
  35. end if
  36. # End Sub
  37. #  
  38. #  
  39.  

29
Bases de Datos / Re: Error 3021 No Hay Ningun Registro Activo
« en: Jueves 26 de Febrero de 2009, 17:27 »
Este es el codigo de la busqueda.

Código: Visual Basic
  1.  
  2. Private Sub txtcodpaciente_LostFocus()
  3.     Dim criterio As String
  4.     Dim v As Integer
  5.    
  6.     v = Val(txtcodpaciente.Text)
  7.  
  8.     If txtcodpaciente.Text <> "" And v >= 1 And v <= 99999 Then
  9.         criterio = "codpHIS = " & Val(txtcodpaciente.Text)
  10.        
  11.         registrohispacientes.FindFirst criterio
  12.        
  13.         If registrohispacientes.NoMatch Then
  14.             txtcodpaciente.Text = registrohispacientes.Fields("codpHIS")
  15.             txtnumcorre.Text = registrohispacientes.Fields("cohHIS")
  16.             txtcodenfermedad.Text = registrohispacientes.Fields("codeHIS")
  17.             txtcodmedico.Text = registrohispacientes.Fields("codmHIS")
  18.             txtcodtratamiento.Text = registrohispacientes.Fields("codtHIS")
  19.             txtfechahistorial.Text = registrohispacientes.Fields("fechaHIS")
  20.             txtnotashistorial.Text = registrohispacientes.Fields("notaHIS")
  21.             tbarhispacientes.Buttons(1).Enabled = False
  22.             tbarhispacientes.Buttons(2).Enabled = True
  23.             tbarhispacientes.Buttons(3).Enabled = True
  24.         Else
  25.             tbarhispacientes.Buttons(1).Enabled = True
  26.             tbarhispacientes.Buttons(2).Enabled = False
  27.             tbarhispacientes.Buttons(3).Enabled = False
  28.    
  29.     End If
  30. End If
  31. End Sub
  32.  
  33.  
  34.  

Gracias.

30
Bases de Datos / [SOLUCIONADO] Error 3021 No Hay Ningun Registro Activo
« en: Miércoles 25 de Febrero de 2009, 20:11 »
Ola buenas, perdonad.
Me aprece un mensaje que no entiendo porque cuando voy a realizar una busqueda de un registro en access.

Lo que aparece es eso: Error 3021 No Hay Ningun Registro Activo

No consigo entender el porque.

Muchas gracias de nuevo.

31
Bases de Datos / Re: Problema con conexion a Base de datos
« en: Lunes 23 de Febrero de 2009, 19:47 »
Gracias sinceramente por vuestro tiempo.

Cuando necesiteis algo pa eso estamos.

32
Bases de Datos / Re: Problema con conexion a Base de datos
« en: Lunes 23 de Febrero de 2009, 17:32 »
Premio, un error resuelto.

Solucion:
Os descargais la DAO 3.6


La debeis pegar en esta ruta:

%systemdrive%Archivos de programaArchivos comunesMicrosoft SharedDAO

Ir a VB 6, Quitar la referencia a la 3.51 que en este caso es la que tenia yo y agregar la nueva.


Otro problema
Tras la desesperacion y el chute me aprece otro mensaje. Este es el codigo. Lo que estoy haciendo es un login casero para mi programa. En la base de datos hay una tabla llamada USUARIOS.
Ahora lo que me aparece es error
Error 3370 Microsoft JET  no reconoce yo como un nombre de campo o expresion validos
Dim criterio As String
 Dim sw As Boolean
 Dim x As Integer
 Dim contador As Integer
 
 Do Until contador = 3
 sw = False
    criterio = "nomUSER =" & txtusuario.Text

    registrousuarios.FindFirst criterio rem El error me lo da aqui.

    If Not registrousuarios.NoMatch Then
        criterio = "passUSER =" & txtusuario.Text
        registrousuarios.FindFirst criterio
            If Not registrousuarios.NoMatch Then
                sw = True
            Else
                x = MsgBox("Contraseña no es correcto", vbOKOnly, "Clinica Login")
            End If
           
    Else
      x = MsgBox("Usuario no es correcto", vbOKOnly, "Clinica Login")

    End If
    If sw = True Then
        frmlogin.Show
    Else
       
        contador = contador + 1
         
    End If
    Loop
    Unload Me

33
Bases de Datos / Re: Problema con conexion a Base de datos
« en: Domingo 22 de Febrero de 2009, 22:58 »
Instale el SP6 lo mismo. No hay que activar ningun control?.

Me dice no puedo encontrar el origen de datos. Me da el error 440.
Stoy desesperao ya no se ni que hacer 2 horas y media y nada sigue igual.

34
Bases de Datos / Re: Problema con conexion a Base de datos
« en: Domingo 22 de Febrero de 2009, 16:26 »
Volvi a instalar MS Office y no funciono.Puedes ser por VB 6?
Algun componente que falte o que este mal instalado?

35
Bases de Datos / Re: Problema con conexion a Base de datos
« en: Domingo 22 de Febrero de 2009, 13:32 »
No se lo que pasa, pero es una base de datos de prueba con dos tablas muy sencilla, es de prueba. Yo la abro con access normal y corriente pero es esa linea que me da error.
Para ver si fuese problema de esa base de datos, cree otra igual y lo probe de nuevo con el mismo error y ahi sigo.


Muchas gracias.

36
Bases de Datos / Problema con conexion a Base de datos
« en: Sábado 21 de Febrero de 2009, 16:36 »
Hola buenas, soy principiante en esto de vb y bases de datos.

Tengo una base de datos en access 2003. TEngo un problema a la hora de conectar por DAO.


Pongo la linea

Set dbclinica = DBEngine.Workspaces(0).OpenDatabase("C:pruclinica.mdb")

y me da el siguiente error cuando carga el formulario

"No se reconoce el formato de la base de datos"

Cuando lo hago en otro pc si que se puede.

Gracias por vuestro tiempo.

Páginas: 1 [2]