Botao Pesquisar ID
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
Curtidas 0
Respostas
Joel Rodrigues
18/03/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.
Boa sorte.
GOSTEI 0
Wesley Dias
18/03/2013
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
GOSTEI 0
Joel Rodrigues
18/03/2013
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.
GOSTEI 0