|
|
Postada em 17/08/2004 18:57 hs
Tenho uma tabela com 75.000 registros na tabela DADOSPLANILHA.
Fiz uma consulta para filtrar tudo que comeca com SL ai o sistema mostra o seguinte:
SLD490754
SLV875955
entre outros codigos sendo assim eu mando gravar os codigos acima na tabela COINCIDENTE campo Codigo.
Eu preciso do seguinte:
- Pegue o codigo da TABELA COINCIDENTE apartir da 4 posicao (490754) e procure na tabela DADOSPLANILHA se existe algum coincidente, se existir grave na TABELA COINCIDENTE Campo Coincidente, senao va pra o proximo registro.
Eu sei que existem coincidentes mas nao estou conseguindo acertar o codigo.
Aguardo ajuda dos colegas... .
Grato !
|
|
|
|
|
|
Keyo
|
CURITIBA
PR - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 18/08/2004 10:51 hs
Não testei mas acho que a logica e essa do while not rs.eof rs1.open "select * from coincidente where codigo like '" & mid(rs!codigo, 4, Len(rs!codigo)) & "%'",conexao,, msgbox rs1!codigo rs1.movenext loop Qualque coisa poe o codigo ai! |
|
|
|
|-tom-|
|
CATANDUVA
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 18/08/2004 11:00 hs
tenta assim vc quer pegar os 4 ultimos caracteres faz assim : wCodigo = SLD490754 text1.text = Mid (wCodigo, 4, 5)
------------------------------------------------------------------------------------------------------------------------------------------------------------------------- tom -Catanduva/SP Analista Sistemas - Visual Basic 6 - VB.NET "Confiai perpetuamente no Senhor, porque o Senhor Deus é uma Rocha Eterna" Isaías 26:4 
|
|
|
|
