locked
{"Invalid column name 'ABWEB01'."} Urgente TCC RRS feed

  • Question

  • Pessoal, estou desenvolvendo um programa para pesquisar e cadastrar Alunos, Professores, Notas e Pagamentos.

    Desenvolvi o banco de dados em SQL e estou usando o VB.NET para programar.

     

    Tenho uma tabela criada de nome codigoProfessores cujo tipo é char(8) ou seja uma string de 8 caracteres alfa numericos

    Segue descrição da tabela em SQL

     

    create table tblProfessor -- Cria a tabela "professor"
    (codigoProfessor char(8) not null,
    nomeProfessor varchar(50) not null,
    enderecoProfessor varchar(80) not null,
    rgProfessor varchar(20) not null,
    cpfProfessor char(11) not null,
    primary key (codigoProfessor))

     

    Em seguida a tabela é populada da seguinte forma:

     

    insert into tblProfessor (codigoProfessor, nomeProfessor, enderecoProfessor, rgProfessor, cpfProfessor) values ('ABWEB01','ABELARDO BARBOSA','AV PRINCIPE DE GALES, 55 - JD NITEROI - CEP 05869800','33132989-0','91973465912')

     

    Até ai tudo bem, em seguida o banco de dados é importado para o VB.NET foram feitas algumas queryes etc...

    Existe um botao para pesquisar e outro para cadastrar.

    A pesquisa ja esta corretamente implementada numa ListBox

    Quando o usuário seleciona o nome do professor na ListBox e clica no botao CadastrarProfessor, existe uma Private Sub que faz essa verificação de seleção e em seguida deve dar o display do conteudo do campo em caixas de texto da parte de cadastro.

    Segue codigo da rotina para display nas textbox

     

     Private Sub carregaProfessores(ByVal codigoProfessor As String) 'PARTE DE BANCO DE DADOS
    
    
        Dim strConn As String = My.Settings.escola_dbConnectionString.ToString()
    
        Dim strSQL As String = "Select * from tblProfessor Where codigoProfessor = " & codigoProfessor
    
        Dim dr As SqlDataReader
    
    
        'define objeto connection e command
    
        Dim con As New SqlConnection(strConn)
    
        Dim cmd As New SqlCommand(strSQL, con)
    
    
        Try
    
          con.Open()
    
          dr = cmd.ExecuteReader
    
    
          If (dr.HasRows) Then
    
            dr.Read()
    
    
            TextBoxNomeProfessorCadastro.Text = dr("nomeProfessor").ToString
    
            TextBoxEnderecoProfessorCadastro.Text = dr("enderecoProfessor").ToString
    
            TextBoxRgProfessorCadastro.Text = dr("rgProfessor").ToString
    
            TextBoxCpfProfessorCadastro.Text = dr("cpfProfessor").ToString
    
            TextBoxCodigoProfessorCadastro.Text = dr("codigoProfessor").ToString
    
          End If
    
          'Catch ex As Exception
    
          'MsgBox("Erro ao obter dados dos clientes. Erro : " & ex.Message)
    
        Finally
    
          con.Close()
    
        End Try
    
      End Sub

     

    Em seguida existe o codigo do botão, que faz a chamada dessa rotina

     

     Private Sub ButtonCadastrarProfessor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonCadastrarProfessor.Click 
       
        TabControlProfessores.SelectedTab = TabCadastrarProfessor 
        If (ListBoxProfessores.SelectedValue.ToString() <> "System.Data.DataRowView") Then 
          carregaProfessores(Me.ListBoxProfessores.SelectedValue)        
    
        End If
      End Sub

    Acontece que o display não está sendo dado nas caixas de texto.

    Esta ocorrendo o seguinte erro:

     dr = cmd.ExecuteReader (TRAVA AQUI)
    
    E A MENSAGEM DE ERRO EXIBIDA É
    
    Invalid column name 'ABWEB01'.
    
    

    OBS: Esse valor ABWEB01 é o codigo do professor em questão.

    Mas se ja esta definido como string, por que não consegue dar o display corretamente?

    Porque fica dando esse erro de coluna invalida?

     

    Muito obrigado.

     

    Att

     

    Rodrigo Morelli

     

     

     

     

     

    Segue codigo do botão

    • Moved by Liliane Teng Monday, September 13, 2010 9:19 AM Please repost on appropriate forum for better support (From:Visual Basic General)
    Monday, September 6, 2010 2:15 PM

All replies

  • Hello Rodrigo,

    Welcome to MSDN forums.

    This is an English forum. Could you please translate your question into English? Or you need to repost it on appropriate forum for better and quicker support. Thanks for your understanding.

    Best regards,
    Liliane
    MSDN Subscriber Support in Forum
    If you have any feedback on our support, please contact msdnmg@microsoft.com


    Please mark the replies as answers if they help and unmark them if they provide no help. Welcome to the All-In-One Code Framework! If you have any feedback, please tell us. Thanks
    Tuesday, September 7, 2010 2:43 AM