Postada em 14/02/2014 14:23 hs
Ola pessoal to de novo aqui hehehe.
Bom eu estou precisando carregar em uma combox os nomes dos meus clientes para que a pessoa possa selecionar quem ele quer consultar. O problema e que minha base de cadastro de clientes tem clientes de varias cidades e quando eu clico no combox ele traz todos os clientes da base. Eu tenho 2 combox uma com a cidade que ele quer procurar e outra com o nome dele então quando o cliente selecionasse a cidade o combox teria que filtrar os clientes na base pela cidade que ele escolheu.
codigo que uso no form para trazer os nomes dos clientes para o combox.
'BUSCA CLIENTES CADASTRADOS
Dim db As Database
Dim query As String
Dim dyn As Recordset
Set db = OpenDatabase("c:sistemaCadastro.Mdb", False, False, ";PWD=senha")
query = "Select * From Cliente order by NOME"
Set dyn = db.OpenRecordset(query, dbOpenDynaset)
While Not dyn.EOF
Combox.AddItem dyn("nome") & ""
dyn.MoveNext
Wend
db.Close
|
