BUSCA NO BANCO DE DADOS
bom dia amigos!
eu quero trazer nas textbox os valores do banco, fazendo uma busca em um textbox,
textbox para o preenchimento com valores da tabela= codigo - descrição - valor
textbox = busca, até consigo de boa trazer os dados colocando o codigo exato.
coloco o codigo: 789225465280 e mostra o produto.
eu gostaria de saber como eu faço tipo se o codigo não existir, como eu faço esse SQL?
eu quero trazer nas textbox os valores do banco, fazendo uma busca em um textbox,
textbox para o preenchimento com valores da tabela= codigo - descrição - valor
textbox = busca, até consigo de boa trazer os dados colocando o codigo exato.
coloco o codigo: 789225465280 e mostra o produto.
eu gostaria de saber como eu faço tipo se o codigo não existir, como eu faço esse SQL?
Set rst = New ADODB.Recordset
sql = [Ô]Select CodBarra, Descricao_Produto, Vlr_Venda From Tbl_CadProdutos [Ô]
sql = sql & [Ô] Where CodBarra =[ô][Ô] & TxtCodBarra.Text & [Ô][ô][Ô]
rst.Open sql, Conexao, 3
If rst.EOF = True Then
MsgBox ([Ô]Produto não Cadastrado ou Código Inválido[Ô]), vbExclamation, [Ô]ATENÇÃO[Ô]
TxtCodBarra.Text = [Ô][Ô]
TxtCodBarra.SetFocus
TxtQuant.Text = [Ô]1,000[Ô]
Frm_ProdDiversos.Show [ô]Carrega o Formulário Produtos Diversos
Exit Sub
Else
LblDescricao.Caption = rst!Descricao_Produto
TxtVlr_Unit.Text = Format(rst!Vlr_Venda, [Ô]###,##0.00[Ô])
Dim Qtd As Double
Qtd = Format(CDbl(TxtVlr_Unit.Text) * TxtQuant.Text, [Ô]###,##0.00[Ô])
TxtVlr_PrecoTotal.Text = Format(CDbl(Qtd), [Ô]###,##0.00[Ô])
rst.Close
Set rst = Nothing
será que é isso que precisa ? adapite em sua necessidade..
sql = [Ô]Select CodBarra, Descricao_Produto, Vlr_Venda From Tbl_CadProdutos [Ô]
sql = sql & [Ô] Where CodBarra =[ô][Ô] & TxtCodBarra.Text & [Ô][ô][Ô]
rst.Open sql, Conexao, 3
If rst.EOF = True Then
MsgBox ([Ô]Produto não Cadastrado ou Código Inválido[Ô]), vbExclamation, [Ô]ATENÇÃO[Ô]
TxtCodBarra.Text = [Ô][Ô]
TxtCodBarra.SetFocus
TxtQuant.Text = [Ô]1,000[Ô]
Frm_ProdDiversos.Show [ô]Carrega o Formulário Produtos Diversos
Exit Sub
Else
LblDescricao.Caption = rst!Descricao_Produto
TxtVlr_Unit.Text = Format(rst!Vlr_Venda, [Ô]###,##0.00[Ô])
Dim Qtd As Double
Qtd = Format(CDbl(TxtVlr_Unit.Text) * TxtQuant.Text, [Ô]###,##0.00[Ô])
TxtVlr_PrecoTotal.Text = Format(CDbl(Qtd), [Ô]###,##0.00[Ô])
rst.Close
Set rst = Nothing
será que é isso que precisa ? adapite em sua necessidade..
valeu moreira deu certinho!
Tópico encerrado , respostas não são mais permitidas