none
Como puedo conectar mi aplicacion a SQL SERVER en otro equipo en red???....

    Question

  • Hola a todos, tengo una aplicacion vb.net con base de datos SQL SERVER EXPRESS 2005 y todo funciona correctamente el problema surge cuando intento abrir mi aplicacion desde otra pc que esta dentro de la misma red de trabajo...

    El mensaje de error es este:

     

    Error relacionado con la red o específico de la instancia mientras se establecía una conexión con el servidor SQL Server. No se encontró el servidor o éste no estaba accesible. Compruebe que el nombre de la instancia es correcto y que SQL Server está configurado para admitir conexiones remotas. (provider: Interfaces de red SQL, error: 26 - Error al buscar el servidor o instancia especificado)

     

    Mi idea es hacer una pequeña aplicacion que me levante el servidor y primeramente ejecutar esa desde la otra pc para que me conecte la bdd al equipo SERVIDOR y una vez conectado ahi si poder abrir mi programa y acceder a su bbd....algo asi como la imagen:

    como lo puedo hacer con codigo para establecer la conexion???......gracias de antemano


    • Edited by Joseph_jv Monday, January 23, 2012 6:01 PM
    • Moved by Enrique M. MontejoMVP Tuesday, January 24, 2012 4:57 PM consulta sobre conexión al servidor de SQL Server (De:Lenguaje VB.NET)
    Monday, January 23, 2012 5:44 PM

Answers

  • Espero te Sirva

                strConnect = "Data Source=" & gstrServername & ";Initial Catalog=" & gstrDBName & ";Integrated Security=True"
                My.Settings.Item("InventarioConnectionString") = ""
                My.Settings.Item("InventarioConnectionString") = strConnect
                My.Settings.Save()
                Dim cntDB As New SqlConnection(My.Settings.InventarioConnectionString)
                cntDB.Open()
                If Not EsUsuarioValido(txtUserName.Text, txtClave.Text) Then
                    MessageBox.Show("Acceso Denegado Usuario/Clave invalido favor intente de nuevo", cStrMensaje, MessageBoxButtons.OK,    MessageBoxIcon.Stop)
                    Exit Sub
                End If
                Me.Visible = False
                My.Forms.FrmMenuPrincipal.Show()
                cntDB.Close()

     

    Private Function EsUsuarioValido(ByVal Usuario As String, ByVal Clave As String) As Boolean
            '---Confirmamo si el usuario es valido
            Dim Nsql As String = "Select * From  dbo.[Usuarios] Where (Usuario=@Usuario) And (Clave=@Clave)"
            Dim Cn As New SqlConnection(My.Settings.InventarioConnectionString)
            Dim Comm As New SqlCommand(Nsql, Cn)
            Dim dr As SqlDataReader
            EsUsuarioValido = False
            Try
                Comm.Parameters.Add("@Usuario", SqlDbType.NVarChar).Value = Usuario
                Comm.Parameters.Add("@Clave", SqlDbType.NVarChar).Value = Clave
                Cn.Open()
                dr = Comm.ExecuteReader()
                If dr.Read Then
                    EsUsuarioValido = True
                End If
            Catch ex As Exception
                MessageBox.Show("Error--->" & ex.Message, cStrMensaje, MessageBoxButtons.OK, MessageBoxIcon.Error)
            Finally
                Cn.Close()
            End Try
            Return EsUsuarioValido
        End Function

     

    Denis Guido

    Tuesday, January 24, 2012 6:07 AM

All replies

  • hola

    este sql server 2005 es una distribucion express ?

    recuerda validar

    Enable Remote Connection on SQL Server 2008 Express

    para el 2005 deberia ser igual

     

    y que el firewall de windows no este bloqueando el acceso

    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina
    Monday, January 23, 2012 6:10 PM
  • siii Sql Studio Express, pero no se soluciona el problema el firewall esta desactivado mmm no se tal vez necesito instalar sql en cada pc que vaya a utilizar??...

    k codigo puedo insertar en el boton de conectar para establecer la conexion con la otra pc???...

    gracias

    Monday, January 23, 2012 9:00 PM
  • Espero te Sirva

                strConnect = "Data Source=" & gstrServername & ";Initial Catalog=" & gstrDBName & ";Integrated Security=True"
                My.Settings.Item("InventarioConnectionString") = ""
                My.Settings.Item("InventarioConnectionString") = strConnect
                My.Settings.Save()
                Dim cntDB As New SqlConnection(My.Settings.InventarioConnectionString)
                cntDB.Open()
                If Not EsUsuarioValido(txtUserName.Text, txtClave.Text) Then
                    MessageBox.Show("Acceso Denegado Usuario/Clave invalido favor intente de nuevo", cStrMensaje, MessageBoxButtons.OK,    MessageBoxIcon.Stop)
                    Exit Sub
                End If
                Me.Visible = False
                My.Forms.FrmMenuPrincipal.Show()
                cntDB.Close()

     

    Private Function EsUsuarioValido(ByVal Usuario As String, ByVal Clave As String) As Boolean
            '---Confirmamo si el usuario es valido
            Dim Nsql As String = "Select * From  dbo.[Usuarios] Where (Usuario=@Usuario) And (Clave=@Clave)"
            Dim Cn As New SqlConnection(My.Settings.InventarioConnectionString)
            Dim Comm As New SqlCommand(Nsql, Cn)
            Dim dr As SqlDataReader
            EsUsuarioValido = False
            Try
                Comm.Parameters.Add("@Usuario", SqlDbType.NVarChar).Value = Usuario
                Comm.Parameters.Add("@Clave", SqlDbType.NVarChar).Value = Clave
                Cn.Open()
                dr = Comm.ExecuteReader()
                If dr.Read Then
                    EsUsuarioValido = True
                End If
            Catch ex As Exception
                MessageBox.Show("Error--->" & ex.Message, cStrMensaje, MessageBoxButtons.OK, MessageBoxIcon.Error)
            Finally
                Cn.Close()
            End Try
            Return EsUsuarioValido
        End Function

     

    Denis Guido

    Tuesday, January 24, 2012 6:07 AM
  • GRACIAS, el codigo funciona muy bn para conectar desde el mismo equipo..pero cuando quiero conectar remotamente ingresando el nombre pc o ip me da error...no logro activar la configuracion remota de sql esees el problema como puedo hacerlo necesito ayuda...

    Acaso tengo que instalar el sql en la otra pc??

    gracias

    Wednesday, February 15, 2012 5:18 PM