Algunas preguntas simples - VB-MUNDO

Ref · #1 (**permalink**) 16-04-2006, 19:51:49

Bueno la primer pregunta es si hay alguna manera buscar dentro de un proyecto las conexiones y los recordset que tenga abiertos, esto lo quiero hacer para cerrar cualquier conexión a la base de datos y poder hacer tanto un backup y un restore de la misma. Después si existe el puntero ese que tiene como una mano y el dedo apuntando como si fuera un hipervínculo, se que en vb.net esta pero no lo encuentro en vb 6.0
y la ultima es como hago para encontrar la versión del proyecto que tengo, yo se que cada vez que genero un .exe me crea una versión, mi pregunta es puedo ver esa versión por código, ósea puedo mostrarla en algún label?.

Bueno desde ya muchas gracias, Saludos
Fernando

acalanto · #2 (**permalink**) 16-04-2006, 20:34:57

La primera pregunta no la comprendo. Si has generado el proyecto, conocerás los recordsets y bases de datos que has dimensionado y abierto.. ¿Digo yo?.

De todas maneras puedes usar el inspector de objetos del proyecto pulsando -F2-

La versión se guarda en las variables de entorno App.MajorVerion y App.MinorVersion

Espero que te resulte útil.

J.M.Movilla · #3 (**permalink**) 16-04-2006, 23:01:59

Para tu primera pregunta, depende de qué tipo de conexión estés utilizando. Prueba a ver si te sirve el siquiente código

Código:

    Dim ws As Workspace
    Dim db As Database
    Dim rs As Recordset

    ' Cierra todos los recordset, databases y espacios de trabajo
    For Each ws In Workspaces
        For Each db In ws.Databases
            For Each rs In db.Recordsets
                rs.Close
                Set rs = Nothing
            Next
            db.Close
            Set db = Nothing
        Next
        ws.Close
        Set ws = Nothing
    Next

Ref · #4 (**permalink**) 16-04-2006, 23:40:13

Buenooo, gracias por el codigo de seguro le encuentro uso!! no sabia como buscar en todo el proyecto, y seguro q esa variable workspace sirve para eso :smt023 .

De todas maneras recapacite sobre lo que dijo acalanto y encontre las conexiones abiertas que me dejaban la base open.

Mil gracias por la rapida respuesta. Saludos
Fernando