[VB6] Ordinamento alfabetico dei record tramite SQL

[mdnet]

Salve ragazzi sto portando avanti un piccolo progettino per un gestionale e mi sono bloccata davanti a questo problema

Recupero tramite sql tutte le voci di una tabella e metto in un combo solo cognome e nome, la stringa che utilizzo è la seguente:

sql = "SELECT * FROM Anagrafica where ID = " & Me.cboClienti.ItemData(Me.cboClienti.ListIndex)

vorrei fare in modo che però l'elenco mi venisse in ordine alfabetico, cosa che invece non fa.

Grazie.

[mdnet]

chiedo scusa per il doppio post, admin cancellatene pure uno, ci mancherebbe.

Grazir

[mardok30]

Devi aggiungere alla fine della Query:

ORDER BY CampoSecondoIlQualeVuoiOrdinare ASC/DESC

ASC = Ordine crescente
DESC = Ordine Decrescente

[mdnet]

sbaglierò sicuramente io ma purtroppo non mi funziona

[mdnet]

Metto il pezzetto di codice così da essere più chiaro

Io popolo il combo così:

Dim dbsDati As Database
Dim rstAnagrafica As Recordset
Dim sql As String
Dim Anagrafica As Recordset
Dim riga As Long


Set dbsDati = OpenDatabase(PathDatabase & "database\dati.mdb")
Set rstAnagrafica = dbsDati.OpenRecordset("Anagrafica")

Set dbsComuni = OpenDatabase(PathDatabase & "database\Comuni.mdb")
Set rstComuni = dbsComuni.OpenRecordset("Comuni")
rstComuni.Index = "COMUNI2L"



Do While Not rstAnagrafica.EOF = True
cboClienti.AddItem rstAnagrafica!Cognome & " " & rstAnagrafica!Nome
cboClienti.ItemData(cboClienti.ListCount - 1) = rstAnagrafica!ID
rstAnagrafica.MoveNext
Loop

Poi quando seleziono un nominativa nell'evento click del combo faccio:

sql = "SELECT * FROM Anagrafica where ID = " & Me.cboClienti.ItemData(Me.cboClienti.ListIndex)

Vorrei fare in modo che quando apro il combo la lista dei nominativi sia in ordine alfabetico.

Grazie

[michele79]

sql = "SELECT * FROM Anagrafica where ID = " & Me.cboClienti.ItemData(Me.cboClienti.ListIndex) ORDER BY nome_tuo_campo ASC


aggiungi la parte in grassetto,al posto di nome_tuo_campo metti il campo della tabella del db in base a cui fare l'ordinamento.

[wallrider]

Originariamente inviato da michele79
sql = "SELECT * FROM Anagrafica where ID = " & Me.cboClienti.ItemData(Me.cboClienti.ListIndex) & " ORDER BY nome_tuo_campo ASC "


aggiungi la parte in grassetto,al posto di nome_tuo_campo metti il campo della tabella del db in base a cui fare l'ordinamento.

[michele79]

a cosa servirebbe la tua risposta quotando la mia!?

[mdnet]

Ho fatto quello che mi ha scritto:

sql = "SELECT * FROM Anagrafica where ID = " & Me.cboClienti.ItemData(Me.cboClienti.ListIndex) ORDER BY Cognome ASC

Ma purtroppo mi restituisce questo errore:

Errore di sintassi.

Personalmente credo che il mio problema sta nella routine di carimento dei dati, questa:

Function RiempiComboPazienti()

Dim dbsDati As Database
Dim rstAnagrafica As Recordset
Dim sql As String
Dim Anagrafica As Recordset
Dim riga As Long


Set dbsDati = OpenDatabase(PathDatabase & "database\dati.mdb")
Set rstAnagrafica = dbsDati.OpenRecordset("Anagrafica")

Set dbsComuni = OpenDatabase(PathDatabase & "database\Comuni.mdb")
Set rstComuni = dbsComuni.OpenRecordset("Comuni")
rstComuni.Index = "COMUNI2L"


Do While Not rstAnagrafica.EOF = True
cboClienti.AddItem rstAnagrafica!Cognome & " " & rstAnagrafica!Nome
cboClienti.ItemData(cboClienti.ListCount - 1) = rstAnagrafica!ID
rstAnagrafica.MoveNext
Loop

End Function

Perchè già da qui carica le voci del database nel combo NON in ordine alfabetico.

Grazie per l'aiuto.

[mardok30]

Personalmente credo che il mio problema sta nella routine di carimento dei dati...

sicuramente, ho capito quello che vorresti ottenere, ma il problema non è solo nella funzione di caricamento della combo. La query va costruita così:

sql = "SELECT * FROM Anagrafica where ID = " & Me.cboClienti.ItemData(Me.cboClienti.ListIndex) & "  ORDER BY Cognome ASC"

altrimenti è normale che ti dia quell'errore!
Prova a vedere tra le proprietà di rstComuni se c'è una funzione "Sort"...
Ma la Combo nel VB6 non ha la proprietà "Sorted" o una cosa del genere?