Botao Pesquisar ID
18/03/2013
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"
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
Wesley Dias
Curtir tópico
+ 0
Responder
Posts
18/03/2013
Joel Rodrigues
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.
Boa sorte.
Responder
19/03/2013
Wesley Dias
muito obrigado ficou assim
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
Responder
19/03/2013
Joel Rodrigues
Show de bola. Que bom que deu certo.
Porém, o seguinte trecho nem é necessário:
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.
Porém, o seguinte trecho nem é necessário:
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.
Responder
Clique aqui para fazer login e interagir na Comunidade :)
