USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Consulta SQL
Michaelsnts
SÃO BERNARDO DO CAMPO
SP - BRASIL
ENUNCIADA !
Postada em 22/02/2005 11:03 hs            
Como faco para uma consulta SQL me retornar o seguinte:
Em uma oficina ha carros para reparo. Cada carro tem um codigo (cliente).
O cliente solicitou X servicos e foram trocadas YY  números de peças.
 
Preciso de uma SQL q ao clicar no txt do numero do cliente (ou cmd) seja retornada todas as peças montadas no veículo do cliente.
 
No DB tenho : Codigo do veículo
                    Peças montadas
                    Data de montagem
 
Valeu

Michaelsnts
   
Rochª
Pontos: 2843 Pontos: 2843 Pontos: 2843
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 22/02/2005 12:19 hs            
Voce deve ter um arquivo com as pecas e o veiculo alem do cliente.
Seria algo assim.
 
Select * from cliente, peca, veiculo where
cliente.cod_cliente = " & txt_cod_cliente.text & " and cliente.cod_cliente = veiculo.cod_cliente and veiculo.cod_veiculo = peca.cod_veiculo
 
Nao sei como voce esta relacionando o arquivo de cliente com o de peca. Coloque pelo menos as chaves dos arquivos para ter uma ideia.

__________________________________________________________________________
Qualquer coisa post
 
Emoções
Rochª
   
Korn
Pontos: 2843
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 22/02/2005 16:34 hs            
Axo q nesse form tem q  ter campos para todos esse arquivos para que na hora de fazer a consulta vc possa fazela pelo codigo por exemplo do cliente e voltar todos esse dados junto com eles separados dos de + registros de clientes com suas respectivas peças montadas, eu uso pra consulta o option é assim minha consulta. Esero q seja isso
 
No botao Consultar
 
With rsNomedoSeuRecordset
If option1.Value = True Then .Filter = "Codigo Like " & TxtPesquisar 'Codigo
If option2.Value = True Then .Filter = "Nome Like '" & TxtPesquisar & "*'" 'nome
If option3.Value = True Then .Filter = PegaValor(TxtPesquisar) 'valor
MsgBox .RecordCount & " registro(s) encontrado(s)!", vbInformation
End With
 
Colocar num botao para retirar a consulta
'retira o filtro da pesquisa
rsnomedoseurecorset.Filter = 0
rsnomedoseurecorset.Requery
 
E se na sua consulta conter valor essa expressao vc coloca num modulo
 
Public Function PegaValor(valor As String) As String
'Corresponde ao Filtro para fazer consultas ao campo Valor
Dim i As Integer
Dim v1, v2 As String
valor = VBA.Trim(valor)
For i = Len(valor) To 1 Step -1
If VBA.Mid(valor, i, 1) <> " " Then
v1 = VBA.Mid(valor, i, 1) & v1
Else
v2 = v1
v1 = ""
End If
Next i
If v2 = "" Then v2 = v1
If CCur(v1) > CCur(v2) Then
PegaValor = "Valor >= " & Replace(CCur(v2), ",", ".") & " and Valor <= " & Replace(CCur(v1), ",", ".")
Else
PegaValor = "Valor >= " & Replace(CCur(v1), ",", ".") & " and Valor <= " & Replace(CCur(v2), ",", ".")
End If
End Function

 

Jesus Cristo é O Senhor!!!
TÓPICO EDITADO
 
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página