VB 6 - ordinare una ricerca

[optime]

e allora quel campo non c'e' o l'hai scritto male....

[angelicab]

non sto mica dormendo... il nome del campo è giusto... :master:

[optime]

proviamo a barare...

strSQL = "SELECT * , contratti.cod_cliente AS MyCodCli"
strSQL = strSQL & " FROM contratti, clienti "
strSQL = strSQL & " Where Clienti.cod_contratto1 = contratti.codice_contratto "
strSQL = strSQL & " AND Int(contratti.Cod_cliente) = Clienti.contatore "
strSQL = strSQL & " ORDER BY Clienti.ragione_sociale"

poi usi

rscontratti!MyCodCli

[angelicab]

se.. provo a barare... si blocca il programma...

[optime]

Originariamente inviato da angelicab
se.. provo a barare... si blocca il programma...

???? spiega

[angelicab]

allora... il fatto che si bloccava era colpa mia, però facendo questa query

    strSQL = "SELECT * , contratti.cod_cliente AS MyCodCli, contratti.contatore as mycon "
    strSQL = strSQL & " FROM contratti, clienti "
    strSQL = strSQL & " Where Clienti.cod_contratto1 = contratti.codice_contratto "
    strSQL = strSQL & " AND Int(contratti.Cod_cliente) = Clienti.contatore "
    strSQL = strSQL & " ORDER BY Clienti.ragione_sociale"

pur essendoci in archivio circa 90 contratti me ne mostra solo 10 .. però ordinati...

[optime]

io toglierei

Clienti.cod_contratto1 = contratti.codice_contratto

[angelicab]

FUNZIONA!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! :metallica :mavieni:

GRAZIE MILLE X L'AIUTO!!!!!!!!!!!!

[optime]

lascia la solita birra pagata