Array
(
)

Botao Pesquisar ID

Wesley Dias
   - 18 mar 2013

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"
#Código

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

Joel Rodrigues
   - 18 mar 2013

Após efetuar a consulta, você pode usar a propriedade dr.HasRows para verificar se a consulta retornou registros. Caso a propriedade esteja com valor falar, isso indica que não existe o registro procurado.
Boa sorte.

0
|
0

Wesley Dias
   - 19 mar 2013

muito obrigado ficou assim
#Código

        If dr.HasRows = True Then

            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()


        ElseIf dr.HasRows = False Then
            Mesgboxerro("ID nao existente tente outra")

        End If

0
|
0

Joel Rodrigues
   - 19 mar 2013

Show de bola. Que bom que deu certo.
Porém, o seguinte trecho nem é necessário:
#Código

ElseIf dr.HasRows = False Then


Bastaria um Else, pois essa propriedade ou retorna true, ou false. Então, se não é true, obrigatoriamente é false.

Nesse caso, estou encerrando o tópico.

Abraço.

0
|
0