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ódigoProtected 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