Botao Pesquisar ID

[Wesley Dias 0]

Ola pessoal.

preciso de uma ajudinha sou novo no Visual Studio e estou programando uma webapplication para share point e utilizo controles em Vb

essa sub a seguir faz a pesquisa dos Códigos da tabela

 

 

tabela exemplo:

CÓDIGO- 1

nome - Wesley

senha- ******

data - 01/01/2011

 

 

porem não consigo criar uma maneira de quando o usuário inserir um "CÓDIGO" que não exista na base retorne um erro " Insira um Código valido"

 Protected Sub button2_click() Handles Button2.Click
 conn = New System.Data.SqlClient.SqlConnection()

        conn.ConnectionString = "Data Source=BRSPLDIAV02\SHAREPOINTBD;Initial Catalog=Qualidade;Integrated Security=True"

        conn.Open()
    
        cmd = New System.Data.SqlClient.SqlCommand("SELECT * from Tbl_Qualidade where CODIGO = '" & Me.TextBox1.Text & "'", conn)
     
        Dim dr As SqlDataReader = cmd.ExecuteReader


        dr.Read()
      


      


        TextBox30.Text = dr.Item("Obra")

        TextBox31.Text = dr.Item("Fornecedor")
        TextBox32.Text = dr.Item("Servico")
        TextBox33.Text = dr.Item("Avaliador")
        TextBox3.Text = dr.Item("nota1")
        TextBox4.Text = dr.Item("nota2")
        TextBox5.Text = dr.Item("nota3")
        TextBox6.Text = dr.Item("nota4")
        TextBox7.Text = dr.Item("nota5")
        TextBox8.Text = dr.Item("nota6")

        cmd.Connection.Close()
   End If
    

    End Sub
End Class

 

:pinch:

[KhaosDoctor 242]

Você vai executar um reader utilizando o SELECT FROM.

 

Faça a consulta da maneira que você fez, porém ao invés de dr.Read() use:

 

 

 

If dr.hasRows() Then


//Existem códigos


End If