Preencher TextBox com Adodc

[NS-5 Without the 3 Law 0]

E ai pessoal!

 

Eu tava querend preencher uma text bos em um formulario conforme a text1 tivesse um valor se esse valor fosse igual o que tem na tabela ele preenche os outros campos

 

Exemplo:

 

Eu digito o telefone do cliente que tem na tabela e ele compara se tiver ele preenche os campos do formulario

 

Nome, endereço e etc.

 

 

Alguem sabe se tem como fazer isso com o adodc ou tem outra ferramenta?

 

 

Estou usando o Access e o VB6 =]

[Claudio Neto 3]

Sim, dá para você fazer isso utilizando o ADOCD, ou ainda criando sua conexão via código fazendo referência à biblioteca ADO 2.8.

 

Vou postar um exemplo de como ficaria:

 

1° Você precisa fazer sua consulta no SQL:

rs.open "select nome from tabela where teste = '" & text1.text & "'", cn

2° Você cria um loop e preenche sua text:

do until rs.eof
   text2.text = text2.text & rs("nome") & chr(10) & chr(13)
loop

Coloque sua text como multiline para que um valor fica embaixo do outro.

 

Se tiver dúvidas, poste ai.

[NS-5 Without the 3 Law 0]

Claudio.

 

Mas eu incluo o Adodc no formulário e ai conecto ele ao banco ?

 

 

Esse via código é só criar a conexão com o banco e depois utrilizar isso ai...

 

no do until eu posso adicionar quantas texts eu quiser ?

[Claudio Neto 3]

1 - Sim, você aidiciona o ADODC no projeto e nas propriedades dele você configura para conectar com o banco de quiser.

 

2 - Sim, basta criar a conexão via Código, agora eu pergunto: você sabe fazer? Caso não, dê uma procurada no fórum que tem bastante tópico ensinando.

 

3 - O textobox tem um propriedade que você limita a quantidade de caracteres. Desde que, o que você for colocar nela não ultrapasse essa quantidade, pode adicionar quantas vezes quiser.