CONSULTA SQL

USUARIO.EXCLUIDOS 22/11/2006 12:06:02
#185758 
If txtCodProduto <> "" Then
    SQLString = "SELECT NOM_PRODUTO FROM PRODUTO WHERE COD_PRODUTO = " & txtCodProduto & " AND COD_EMPRESA = " & vEmpresa
    Debug.Print SQLString
    rst.Open SQLString, adoConn
    If rst.EOF = False Then
        txtDescProduto = rst("NOM_PRODUTO")
        txtCodInterno.SetFocus
    Else
        txtDescProduto = "Produto não encontrado"
        txtCodProduto = ""
    End If
    rst.Close


galera preciso selecionar alem de NOM_PRODUTO o campo PROD_CODINT e o campo PROD_MATERIAL como as mesmas condiçoes... Onde o codProduto = txtcodProduto....qual o jeito mais pratico de se fazer isso? eu pensei num jeito aqui mas nao sei se ta certo, prefiro pidir opnioes! vlw!
LIONHEART 22/11/2006 12:19:15
#185762 Resposta escolhida
Cara... é só vc adicionar no SQL

A condição é a mesma, então não precisa validar 3 vezes..
Uma só basta.





If txtCodProduto <> "" Then
SQLString = "SELECT NOM_PRODUTO, PROD_CODINT, PROD_MATERIAL FROM PRODUTO WHERE COD_PRODUTO = " & txtCodProduto & " AND COD_EMPRESA = " & vEmpresa
Debug.Print SQLString
rst.Open SQLString, adoConn
If rst.EOF = False Then
txtDescProduto = rst("NOM_PRODUTO")
txtDescProduto = rst("PROD_MATERIAL")
txtDescProduto = rst("COD_PRODINT")
txtCodInterno.SetFocus
Else
txtDescProduto = "Produto não encontrado"
txtCodProduto = ""
End If
rst.Close
end if
USUARIO.EXCLUIDOS 22/11/2006 14:07:22
#185784
pode cree lion

vlw ai amoree
Tópico encerrado , respostas não são mais permitidas
Voltar