FILTRAR POR FORNECEDOR

MAXDECODO 19/06/2011 13:38:44
#377190
alguem pode me dizer como faço para filtrar por fornecedor meu banco de dados é sql gostaria de filtrar numa combox por fornecedor do estoque
JESUEL.OLIVEIRA 19/06/2011 14:03:25
#377192
Amigo, use,

 select * from fornecedor where campo da pesquisa =  combo.text
MAXDECODO 19/06/2011 15:16:08
#377194
gostaria de fazer uma implementação num código em vb6 alguém pode entrar em contato eu pago o serviço
NETMANIA 19/06/2011 15:26:19
#377195
Ola, podemos conversar.
MAXDECODO 19/06/2011 15:28:58
#377197
companheiro tenho um sistema mais não tou conseguindo implementar para filtrar pelo fornecedo
MAXDECODO 19/06/2011 15:30:38
#377198
msn maxstudiocodo@hotmail.com me adicione
EDERMIR 19/06/2011 18:22:44
#377206
MAXDECODO

Este forum é para esclarecer dúvidas de programação, lógica e/ou linguagem. Qual a sua dúvida?

Citação:

:
alguem pode me dizer como faço para filtrar por fornecedor meu banco de dados é sql gostaria de filtrar numa combox por fornecedor do estoque


O comando SQL que poderá solucionar esta dúvida é:
Citação:

:
Amigo, use,

 select * from fornecedor where campo da pesquisa =  combo.text


JESUEL.OLIVEIRA 28/06/2011 22:21:04
#377986
Amigo, como disse o amigo acima aqui resolve problemas eu não quero receber poste o que você esta em dúvida. vou postar um código que possa resolver.

   
Dim rs_Empresa As Recordset
Set rs_Empresa = CONN.Execute([Ô]Select * From cadempresa WHERE EMP_DESCRICAO = [Ô] & combo.text)


Amigo, poste o que você tem, não da simplesmente eu adivinhar como esta seu código.

este código funciona perfeitamente.
ANAMOREIRA 29/06/2011 08:21:53
#377997 
 Private Sub Combo1_Click()
data1.Refresh

Timer2.Interval = 10
End Sub   



 Private Sub Timer2_Timer()
data2.Refresh
List1.Clear
List2.Clear
List3.Clear
List4.Clear
List5.Clear
List6.Clear

Do While (data2.Recordset.EOF = False)
If Label8 = Combo1.Text Then
    List1.AddItem (Label3)
    List2.AddItem (Label4)
    List3.AddItem (Label5)
    List4.AddItem (Label6)
    List5.AddItem (Label7)
    List6.AddItem (Label8)

    data2.Recordset.MoveNext
ElseIf Label8 <> Combo1.Text Then
    data2.Recordset.MoveNext
End If
Loop

Timer2.Interval = 0
End Sub   



 Private Sub Form_Load()
data1.Refresh
 Do While data1.Recordset.EOF = False

    Combo1.AddItem (Label1)
    data1.Recordset.MoveNext
 Loop

data2.Refresh
End Sub





ve se entende ai o codigo, senao te arrnjo em projeto
Tópico encerrado , respostas não são mais permitidas
Voltar