none
tabla existente no es identificada por consulta sql en vb.net2008 RRS feed

  • Pregunta

  • Buenos dias mi problematica es la descrita en el titulo, poseo una base de datos llamada "sqlproductos" dentro de ella tengo una tabla "Logint", estoy haciendo un formulario de logueo, en la vista codigo aparentemente no hay un error, pero al tratar de ejecutarlo el siguiente error aparece: "Nombre de objeto invalido: "Logint"."

    alguna idea?

    este es el codigo con el que abro la conexion y realizo la busqueda:

    Dim StrCon As String = "data source=.\SQLEXPRESS; AttachDbFilename=C:\Users\Sawaa\Documents\programa2.6\sqlproductos.mdf;Initial Catalog=Logeo;Integrated Security=True;User Instance=True"
            Dim objSQLDataConnection As SqlConnection = New SqlConnection(StrCon)
            Dim objSqlCommand As New SqlCommand()
            Dim objSqlUpdateCommand As New SqlCommand()
            Dim objSqlUpdateLogCommand As New SqlCommand()
            objSqlCommand.Connection = objSQLDataConnection
            objSqlUpdateCommand.Connection = objSQLDataConnection
            objSqlUpdateLogCommand.Connection = objSQLDataConnection
            Dim strHostName As String
            Dim strIPAddress As String
            Try
                Dim MyLogged As Boolean
                Dim myActive As Boolean
                myActive = True
                MyLogged = True
                objSQLDataConnection.Open()
                Dim objDataAdepter As New SqlDataAdapter(objSqlCommand)
                Dim objDataTable As New DataTable()
                objSqlCommand.CommandText = "SELECT SUM(1) AS [vCount], [User_Name], [Password] From Logeo Where User_Name = @User_Name AND Password = @Password "
                objSqlCommand.Parameters.AddWithValue("@User_Name", Trim(Me.UsernameTextBox.Text))
                objSqlCommand.Parameters.AddWithValue(("@Password"), pwd)
                objDataAdepter.Fill(objDataTable)
                Dim vLoggedUSer As String = New String(Trim(UCase(Me.UsernameTextBox.Text)))

    saludos

    • Cambiado Alberto PoblacionMVP martes, 14 de mayo de 2013 5:41 Se mueve al foro de VB.NET desde el de SSRS por no tener nada que ver con SSRS.
    lunes, 13 de mayo de 2013 13:32

Respuestas

  • Lo siento, no me fije en que foro lo autocatalogo la pagina :( despues vi que estaba en el equivocado gracias a Jose Barba, pero no encontre la opcion para cambiarlo de foro u.u 

    gracias de todas formas por quererme ayudar, pero ya solucione el problema haciendolo de una manera mas sencilla, la dejare a continuacion por si alguna persona llega a tener esta misma problematica

    'Boton para validar datos de logueo
    Private Sub Ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
            LogAttepts = LogAttepts + 1
            If LogAttepts = 4 Then
                MsgBox("Maximo de intentos alcanzado, el programa se cerrara por motivos de seguridad")
                End
            End If
            ' filtrar
            Dim ret As Integer = Filtrar_DataGridView("User_Name", UsernameTextBox.Text.Trim, LogintBindingSource1, LoginDataGridView)
            Dim ret2 As Integer = Filtrar_DataGridView("Password", PasswordTextBox.Text.Trim, LogintBindingSource1, LoginDataGridView)
            If ret = 0 Then
                MsgBox("Usuario no registrado")
                UsernameTextBox.Text = ""
                PasswordTextBox.Text = ""
            Else
                If ret = 1 Then
                    If ret2 = 1 Then
                        MsgBox("Datos correctos, Bienvenido al sistema")
                        Me.Hide()
                        Inicio.Show()
                    Else
                        MsgBox("Contraseña incorrecta")
                        UsernameTextBox.Text = ""
                        PasswordTextBox.Text = ""
                    End If
                End If
            End If
        End Sub
    
    'Funcion para realizar la busqueda
        Function Filtrar_DataGridView(ByVal Columna As String, ByVal texto As String, ByVal BindingSource As BindingSource, ByVal DataGridView As DataGridView) As Integer
            ' verificar que el DataSource no esté vacio
            If LogintBindingSource1.DataSource Is Nothing Then
                Return 0
            End If
            Try
                Dim filtro As String = String.Empty
                ' Seleccionar la opción 
                filtro = "like '" & texto.Trim & "%'"
                ' armar el sql
                If filtro <> String.Empty Then
                    filtro = "[" & Columna & "]" & filtro
                End If
                ' asigar el criterio a la propiedad Filter del BindingSource
                LogintBindingSource1.Filter = filtro
                ' enlzar el datagridview al BindingSource
                LoginDataGridView.DataSource = LogintBindingSource1
                ' retornar la cantidad de registros encontrados
                Return LogintBindingSource1.Count
                ' errores
            Catch ex As Exception
                MsgBox(ex.Message.ToString, MsgBoxStyle.Critical)
            End Try
            Return 0
        End Function


    • Marcado como respuesta Sawaa martes, 14 de mayo de 2013 13:15
    martes, 14 de mayo de 2013 13:14

Todas las respuestas

  • Hola este es el foro de Reporting Services te dejo el enlace del foro de VB.NET para que reformules tu pregunta o espero algún moderador pueda mover tu pregunta al foro correcto.

    VB.NET Foro



    Si se solucionó tu consulta no olvides marcar la respuesta. Saludos

    lunes, 13 de mayo de 2013 14:03
  • No hay nada en tu código que acceda a la tabla "Logint", solo hay una llamada a "Logueo". Si realmente ese es tu error, debe estarse produciendo en algún otro punto de tu código, y no en el fragmento aportado. En cualquier caso, no tiene nada que ver con Reporting Services, por lo que voy a mover tu consulta desde este foro de SSRS al foro de VB.NET.
    martes, 14 de mayo de 2013 5:41
  • Lo siento, no me fije en que foro lo autocatalogo la pagina :( despues vi que estaba en el equivocado gracias a Jose Barba, pero no encontre la opcion para cambiarlo de foro u.u 

    gracias de todas formas por quererme ayudar, pero ya solucione el problema haciendolo de una manera mas sencilla, la dejare a continuacion por si alguna persona llega a tener esta misma problematica

    'Boton para validar datos de logueo
    Private Sub Ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
            LogAttepts = LogAttepts + 1
            If LogAttepts = 4 Then
                MsgBox("Maximo de intentos alcanzado, el programa se cerrara por motivos de seguridad")
                End
            End If
            ' filtrar
            Dim ret As Integer = Filtrar_DataGridView("User_Name", UsernameTextBox.Text.Trim, LogintBindingSource1, LoginDataGridView)
            Dim ret2 As Integer = Filtrar_DataGridView("Password", PasswordTextBox.Text.Trim, LogintBindingSource1, LoginDataGridView)
            If ret = 0 Then
                MsgBox("Usuario no registrado")
                UsernameTextBox.Text = ""
                PasswordTextBox.Text = ""
            Else
                If ret = 1 Then
                    If ret2 = 1 Then
                        MsgBox("Datos correctos, Bienvenido al sistema")
                        Me.Hide()
                        Inicio.Show()
                    Else
                        MsgBox("Contraseña incorrecta")
                        UsernameTextBox.Text = ""
                        PasswordTextBox.Text = ""
                    End If
                End If
            End If
        End Sub
    
    'Funcion para realizar la busqueda
        Function Filtrar_DataGridView(ByVal Columna As String, ByVal texto As String, ByVal BindingSource As BindingSource, ByVal DataGridView As DataGridView) As Integer
            ' verificar que el DataSource no esté vacio
            If LogintBindingSource1.DataSource Is Nothing Then
                Return 0
            End If
            Try
                Dim filtro As String = String.Empty
                ' Seleccionar la opción 
                filtro = "like '" & texto.Trim & "%'"
                ' armar el sql
                If filtro <> String.Empty Then
                    filtro = "[" & Columna & "]" & filtro
                End If
                ' asigar el criterio a la propiedad Filter del BindingSource
                LogintBindingSource1.Filter = filtro
                ' enlzar el datagridview al BindingSource
                LoginDataGridView.DataSource = LogintBindingSource1
                ' retornar la cantidad de registros encontrados
                Return LogintBindingSource1.Count
                ' errores
            Catch ex As Exception
                MsgBox(ex.Message.ToString, MsgBoxStyle.Critical)
            End Try
            Return 0
        End Function


    • Marcado como respuesta Sawaa martes, 14 de mayo de 2013 13:15
    martes, 14 de mayo de 2013 13:14