DUVIDA EM CONSULTAS SQL

SACOFRITO 17/06/2011 09:38:19
#377076
Bom dia galera, estou com um problema com uma consulta sql.

Seguinte, passou certinho na query.. mas nao sei com oretornar os dados da sql para preencher uma combo

Set sncli = db.OpenRecordset([Ô]select razao from clientes order by razao union select cliente from orcamentos[Ô], dbOpenSnapshot)
If sncli.RecordCount <> 0 Then
Do While Not sncli.EOF
cliente.AddItem IIf(IsNull(sncli!cliente), [Ô][Ô], sncli!cliente)
sncli.MoveNext
Loop
End If

mas da item nao encontrado na colecao

algm me ajuda?
ROBIU 17/06/2011 09:54:48
#377079
Você verificou se o recortCount está retornando o valor correto?
para garanti, coloca isso antes de abrir o sncli:

sncli.CursorLocation = adUseClient


Tenta tirar o if ... end if.

Testa esse código no GotFocus da combo:

Private Sub Cliente_GotFocus()
    Set sncli = db.OpenRecordset([Ô]select razao from clientes order by razao union select cliente from orcamentos[Ô], dbOpenSnapshot)
    Do While Not sncli.EOF
        cliente.AddItem sncli!cliente
        sncli.MoveNext
    Loop
End Sub
SACOFRITO 17/06/2011 09:58:21
#377080
este select que eu fiz ira filtrar eventuais duplicidades(nao lembro qual dos 2 faz essa funcao.. union ou union all).. pois meu cliente nao quer ficar cadastrando todos clientes.. mas tambem nao quer
cadstrar apenas um como [ô]consumidor[ô]
entao tera possibilidades de ter orcamento para um cliente cadastrado
SACOFRITO 17/06/2011 10:09:41
#377084
bom gente, consegui.. o campo de retorno tem que ser o mesmo do primeiro select do union. no caso o campo razao
retornou todos dados certinho...


ROBIU, sua sugestao nao resolveu, mas obrigado !
Tópico encerrado , respostas não são mais permitidas
Voltar