none
Puxar dados do banco de dados para um form RRS feed

  • Pergunta

  • Pessoal, estou com muitas duvidas em questao de criação do meu trabalho, uma delas é fazer com que eu puxe informações gravadas de um bando de dados para meu form por exemplo

    Cadastrei um produto com descrição e seu codigo

    seu codigo é: 123

    eu quero assim, quando eu digitar por exemplo codigo do produto "txtproduto.text" se esse produto não existir no banco de dados exibir uma menssagem por exemplo " este produto nao existe" a mesma coisa para "txtgalpao.text" e " txtrua.text".

    Conto com a ajuda de vcs para resolver esse problema.

    o meu codigo está abaixo

          Conecta.ConnectionString = aStrConexao
            Dim asql As String
            Dim con As New SqlConnection(aStrConexao)


            asql = "Insert into Armazenamento (cod_armazenamento, serie, cod_galpao, cod_rua, produto, quantidade) values (" + lblCodigo.Text + "," + TxtSerie.Text + "," + txtGalpao.Text + "," + TxtRua.Text + ",'" + TxtProduto.Text + "'," + TxtQuantidade.Text + ")"

            Dim cmd As New SqlCommand(asql, con)
            Try
                con.Open()
                cmd.ExecuteNonQuery()
                MsgBox("Armazenamento concluido com sucesso")
            Catch ex As Exception
                MsgBox(ex.Message)

            End Try
            Dim Da As SqlDataAdapter = New SqlDataAdapter("select * from Armazenamento", Conecta)
            Dim dados As DataSet = New DataSet
            Da.Fill(dados, "Produtos")

     End Sub

    domingo, 2 de setembro de 2012 20:56

Respostas