none
Erro: ERROR [42P01] ERRO: RELACAO "tb_cad_usuario" nao existe; Error while executing the query. RRS feed

  • Pergunta

  • Alguma sugestão?

    Ao fazer um breakpoint aparece o erro do título na linha Catch ex As Exception:


    Imports System.Data.Odbc

    Partial Public Class login
        Inherits System.Web.UI.Page
        Dim vsenha As String
        Dim con As New OdbcConnection
        Dim DataSet As New DataSet

        Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            If Not IsPostBack Then
                cargaDataset()
                gravaXML()
                Session.Add("DSS", DataSet)
            Else
                DataSet = Session.Item("DSS")
            End If
            Using con As New OdbcConnection()
                Try
                    con.ConnectionString = "Dsn=PostgreSQL30;uid=postgres;pwd=Brasil"
                    con.Open()
                    Dim selcom As New OdbcCommand()
                    selcom.Connection = con
                    selcom.CommandText = "SELECT senha FROM tb_Cad_Usuario WHERE usuario ='" & txtUsuario.Text & "'"
                    vsenha = selcom.ExecuteScalar
                    con.Close()
                Catch ex As Exception
                    MsgBox("Erro:" & ex.Message)
                End Try

            End Using
        End Sub

        Private Sub cargaDataset()
            DataSet.Tables.Clear()

        End Sub

        Private Sub gravaXML()
            DataSet.WriteXml(Server.MapPath("Output.xml"), XmlWriteMode.IgnoreSchema)
            DataSet.WriteXmlSchema(Server.MapPath("Output.xsd"))

        End Sub

        Protected Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btn_Entrar.Click
            If Me.IsValid() Then
                If vsenha = txtSenha.Text Then
                    If txtUsuario.Text = "SIADS" Then
                        FormsAuthentication.RedirectFromLoginPage(txtUsuario.Text, True)
                    End If
                    If txtUsuario.Text = "SIADS" Then
                        Response.Redirect("cad_Manutencao.aspx")
                    End If
                End If
            End If
            ErroLogin.Text = "Dados inválidos."
        End Sub

        Protected Sub btn_Limpar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btn_Limpar.Click
            txtUsuario.Text = ""
            txtSenha.Text = ""

        End Sub
    End Class 

    terça-feira, 19 de março de 2013 19:10

Todas as Respostas

  • No pgAdmin III em SQL pane tenho:

    -- Table: ´tb_Cad_Usuario´

    -- DROP TABLE ´tb_Cad_Usuario´;

    CREATE TABLE ´tb_Cad_Usuario´
    (
      ´ID_usu´ integer NOT NULL,
      nome character varying(255),
      sexo character varying(255),
      ´data_Nasc´ timestamp with time zone,
      interesse character varying(255),
      telefone character varying(255),
      ´UF´ integer,
      munic integer,
      email character varying(255),
      usuario character(15),
      senha character(10),
      CONSTRAINT ´tb_Cad_Usuario_pkey´ PRIMARY KEY (´ID_usu´)
    )
    WITH (
      OIDS=FALSE
    );
    ALTER TABLE ´tb_Cad_Usuario´
      OWNER TO postgres;

    terça-feira, 19 de março de 2013 19:51
  • Mudei o nome da Tabela para: tb_cad_usuario.

    Deparo-me com uma janela denominada Microsoft Visual Studio ! There is no source available for the current location.

    Show disassembly automatically.

    terça-feira, 19 de março de 2013 20:36
  • Mudei o nome da Tabela para: tb_cad_usuario.

    Deparo-me com uma janela denominada Microsoft Visual Studio ! There is no source available for the current location.

    Show disassembly automatically.

    Aldress: AjaxControlToolkit.tolkitScriptiManager.OnResolveScriptReference(System.Web.UI.ScriptReferenceEventArgs)

    terça-feira, 19 de março de 2013 21:33
  • :: Retirei o comando ToolkitScriptManager da pagina. Fazendo breakPoint no código vizualizo o usuario e senha corretamente conforme no banco, porém retorna com ´Dados inválidos.´
    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btn_Entrar.Click
            If Me.IsValid() Then
                If vsenha = txtSenha.Text Then
                    If txtUsuario.Text = ´siads´ Then
                        FormsAuthentication.RedirectFromLoginPage(txtUsuario.Text, True)
                    End If
                    If txtUsuario.Text = ´siads´ Then
                        Response.Redirect(´cad_Manutencao.aspx´)
                    End If
                End If
            End If
            ErroLogin.Text = ´Dados inválidos.´
    End Sub

    terça-feira, 19 de março de 2013 22:06