Obrigadao Korn... Vou ver isso e depois digo qualquer coisa.

 

Para o ghost_jlp esse codigo deu erro e eu nao me sinto muito à vontade com a parte do do que à frente do like (cheio de aspas e plicas com percentagens), ainda nao arranjei ninguem que me ajuda-se  nisso e nao percebo o que aquilo faz e para que serve as aspas antes das cenas. Vou tentar ver.

É uma instrução SQL. Vc tem q usá-la assim:

Dim Rs as ADODB.Recordset
Dim Cnn as ADODB.Execute

Private Sub Text1_Change()
   Set Rs = ConexaoADO.Execute("Select Nome from Tabela where Nome Like '" & Text1 & "%'")

  if not rs.eof then  text1 = Rs(0) & ""
End Sub

 

Vc vai usar a expressão sql deste jeito. Vc vai consultar com o Like para pesquisar textos. Textos, em uma consulta sql, tem q ser utilizados  entre aspas simples " ' " . Utiliza-se o "%" depois da palavra para q a consulta busque o início do texto. Exemplo:

 

'J%' => voltará nomes como João, José, Janaína.
'Ja%' => voltará nomes como Janaína, Jair, etc.

 

 

Para pesquisar qualquer posição da palavra então usa-se assim:

 

'%L%' => voltará nomes como Paulo, Aloísio,Plinio,Luiz, Abel

 

 

Para pesquisar uma palavra exata usa-se assim:

 

'joao' => voltará joao apenas

Pra fazer o q vc quer precisa de uns ajustes mas é por ae...
O exemplo do Korn deve trazer algo assim.

 

qq ajuda q precisar é só postar

 

t+

ghost, é isso mesmo que queria dizer, é que copiei e colei aqui, mas nao colou, valeu pela atenção, t+

Eu fiz assim:

Private Sub txtExpedidor_Change()
   
    Dim Tabela As ADODB.Recordset
    Dim Pos As Integer
    If txtExpedidor.SelStart = 0 Then Exit Sub
    Set Tabela = "SELECT Expedidor FROM ClientesGlobal WHERE Expedidor Like  '" & txtExpedidor.Text & "%'"
    Pos = txtExpedidor.SelStart
    txtExpedidor.Text = Tabela("Expedidor")
    txtExpedidor.SelStart = Pos
    txtExpedidor.SelLength = Len(txtExpedidor)

End Sub

 

Só que dá erro naquele "&" a negrito e nao percebo porque?

Precisava mesmo disto a funcionar e nao estou a conseguir colocar isto a dar, no bocado de programa que o ghost deixou nao funcionam estas duas linhas:

 

Dim Cnn as ADODB.Execute

Set Rs = ConexaoADO.Execute(" ........

 

Cardoso eu percebi que o teu falhou e obrigado na mesma, o do korn ta muito fixe e funciona mas quando o aplico ao meu muitas instruçoes dao erradas.

Nunca tive tantas problemas em programacao como isto, e deve ser uma cena mesmo basica.

Se me pudessem ajudar agradeço,

 

Erro meu Pinho, falta de atenção... não é ADODB.Execute

É ADODB.Connection.

 

Vou reescrever: