hola, tengo un proyecto con visual express 2008 con varios formularios y una base de datos sql server guardada en la carpeta principal del proyecto. Mi pregunta es, ¿Como puedo generar el ejecutable teniendo en cuenta que en el módulo donde hago la conexion

Código:

Public Sub conectar()
        Dim cadena_conexion As String
        cadena_conexion = "data source=.\SQLEXPRESS;AttachDbFilename='F:\DAI 2º\DSP\Proyectos\bd_proyecto\bd_proyecto\bd_logistica.mdf';Integrated Security=True;Connect Timeout=30;User Instance=True"
        conexion = New SqlConnection(cadena_conexion)
    End Sub

la ruta esta en mi pincho y según el ordenador en que esté tengo que cambiar la letra de la unidad en la ruta?. Ayudadme por favor. Gracias.

Saludos:

Para ello puedes usar My.Application.Info.DirectoryPath que almacena el directorio de trabajo de la aplicacion. Se trabaja asi:

Dim MyPath As String
MyPath = My.Application.Info.DirectoryPath
' Por ejemplo C:\Programs Files\MyAplicacion

Despues en la cadena de conexion:

cadena_conexion = "data source=.\SQLEXPRESS;AttachDbFilename=" & MyPath & "\bd_proyecto\bd_proyecto\bd_logistica.mdf';Integr ated Security=True;Connect Timeout=30;User Instance=True"

Asi, sin importar en donde este el dirctorio de la aplicacion, siempre buscara en el subdiretorio bd_proyecto.

Eso bastaria. Espero ayude.


JOSE LUIS

hola de nuevo, he hecho lo que me dices pero me da error en la conexión, dale una mirada a ver si tu encuentras el error.

Código:

Public Sub conectar()
        Dim MyPath As String
        MyPath = My.Application.Info.DirectoryPath
        Dim cadena_conexion As String
        cadena_conexion = "data source=.\SQLEXPRESS;AttachDbFilename='" & MyPath & "\bd_proyecto\bd_proyecto\bd_logistica.mdf';Integrated Security=True;Connect Timeout=30;User Instance=True"
        conexion = New SqlConnection(cadena_conexion)
    End Sub

Iniciado por solilopi

hola de nuevo, he hecho lo que me dices pero me da error en la conexión, dale una mirada a ver si tu encuentras el error.

Código:

Public Sub conectar()
        Dim MyPath As String
        MyPath = My.Application.Info.DirectoryPath
        Dim cadena_conexion As String
        cadena_conexion = "data source=.\SQLEXPRESS;AttachDbFilename='" & MyPath & "\bd_proyecto\bd_proyecto\bd_logistica.mdf';Integrated Security=True;Connect Timeout=30;User Instance=True"
        conexion = New SqlConnection(cadena_conexion)
    End Sub

en la siguiente fi¡uncion es donde me da el error

Código:

Public Function Login(ByVal User As String, ByVal Password As String) As String
        Dim MyPath As String
        MyPath = My.Application.Info.DirectoryPath
        Dim cadena_conexion As String
        cadena_conexion = "data source=.\SQLEXPRESS;AttachDbFilename='" & MyPath & "\bd_proyecto\bd_proyecto\bd_logistica.mdf';Integrated Security=True;Connect Timeout=30;User Instance=True"
        Dim conexion As SqlConnection = New SqlConnection(cadena_conexion)
        Dim SQL As String = "Select * from users"
        Dim comando As SqlCommand = New SqlCommand(SQL, conexion)
        Dim lector As SqlDataReader
        Dim encontrado As Boolean
        Dim salir As Boolean
 
        conexion.Open()
        Try
            lector = comando.ExecuteReader()
            If User = "" Or Password = "" Then
                Return "ERROR"
            Else
                'ENCRIPTAMOS PASSWORD EXCEPTO PARA EL ADMINISTRADOR
                If (User <> "admin") Then
                    Password = Codificar(Password)
                End If
                encontrado = False
                salir = False
                While (encontrado = False And salir = False)
                    'EVALUO FUERA DEL WHILE PARA QUE NO CAMBIE DE FILA CUANDO ENCUENTRA EL USUARIO 
                    If lector.Read() = True Then
                        If (lector.Item("usuario") = User) Then
                            encontrado = True
                        End If
                    Else
                        salir = True
                    End If
                End While
 
                If encontrado = False Then
                    Return "ERROR"
                Else
                    If Password <> lector.Item("password") Then
                        Return "ERROR"
                    Else
                        If lector.Item("intentos") = 1 Then
                            guarda_nombre = User
                            filtro = lector.Item("tipo")
                            Return "CONTROL"
                        Else
                            filtro = lector.Item("tipo")
                            Return "OK"
                        End If
                    End If
                End If
            End If
            lector.Close()
        Finally
            conexion.Close()
        End Try
    End Function

espero que veas donde está el fallo. Gracias.

Saludos:

El unico error que puede ser es que la base de datos no este en el directorio. Verifica esto.


JOSE LUIS

Cuando dices directorio, ¿te refieres a la carpeta bin?