Visualizzazione dei risultati da 1 a 6 su 6
  1. #1

    [vb6 access 200] Ordinamento campi

    Il mio problema è questo:
    Io mi connetto al database dove ci sono dei clienti
    i quali poi li vedo raccolti in un listbox attraverso il campo "nome"
    Poi faccio una modifica ad un cliente con (myrecord.update) e mi succede questo
    Prima erano così
    Tizio
    Caio
    Sempronio
    Io modifico "Tizio" e succede questo.
    Caio
    Sempronio
    Tizio
    Io non vorrei che questo succedesse e cioè vorrei che mi aggiungesse sempre in coda se salvo un cliente nuovo e poi quando vado a modificarli vorrei che non cambiasse l'ordine.
    Ringrazio in antipo tutti ciao.

  2. #2
    Ciao !
    Non ho ben chiaro il tuo problema: modifichi un campo e questo viene spostato in cosa a tutti gli altri ???
    Potresti associare ad ogni nome utente un ID, da usare per ordinare i record ogni volta che estrai i dati dal DB.

    ID = 1 NOME = Tizio
    ID = 2 NOME = Caio
    ID = 3 NOME = Sempronio

    modifichi Tizio e il DB si presenta così:

    ID = 2 NOME = Caio
    ID = 3 NOME = Sempronio
    ID = 1 NOME = Tizio

    da VB estrai facendo:
    codice:
    rs.Source = "SELECT Nome From Table Order By ID"
    e sei a posto.

  3. #3
    Ti Ringrazio comunque simone ma non è la risposta al mio Problema

  4. #4
    messa cosi' sembra proprio che hai inserito una query sql o un indice.

    VB6 nn mette in ordine alfabetico se nn lo "indicizzi" tu, quindi se guardi nelle proprità con visualmanager o nei dataenviroment se li hai creati ti basta eliminare la query.

    Ma se posti il codice penso sia meglio....

    Php4ever!

  5. #5
    Mi spiego meglio:
    codice:
    Private Sub Form_Load()
    Set mydata = OpenDatabase(App.Path + "\" + "DBclienti.mdb")
        Set myrecord = mydata.OpenRecordset("clienti")
          If myrecord.EOF Then
            MsgBox "Nessun Cliente nel database. Il database verrà creato ora!", vbInformation, "DBcalc"
        Else
            myrecord.MoveFirst
        Do Until myrecord.EOF
            lstboxclient.AddItem myrecord.Fields("nome")
            myrecord.MoveNext
        Loop
       End If
       mydata.Close
    E così popolo il mio listbox che apparirà così
    Tizio
    Caio
    Sempronio
    Io modifico "Tizio"
    codice:
    Private Sub cmdmodifica_Click()
    If MsgBox(" Modificare il preventivo? ", vbYesNo + vbQuestion, "DBcalc") = vbNo Then
       'Trasferisce lo stato attivo al campo textnomeindirizzo
       textindirizzo.SetFocus
       'esce dalla procedura senza cancellare
       Exit Sub
    End If
    Timer1.Enabled = True
     Set mydata = OpenDatabase(App.Path + "\" + "DBclienti.mdb")
        Set myrecord = mydata.OpenRecordset("clienti")
            Do Until myrecord.EOF
                If lstboxclient.Text = myrecord!nome Then
                    lstboxlient.RemoveItem (lstclient.ListIndex)
                    lstboxclient.AddItem txtf.Text
                    With myrecord
                        .Edit
            !nome = Trim(txtf.Text)
            !indirizzo = Trim(textindirizzo.Text)
            !cont = Trim(txtcont.Text)
            !Data = Trim(txtdata.Text)
            !pagina = Trim(txtpag.Text)
                        .Update
                    End With
                End If
                myrecord.MoveNext
            Loop
            mnusalva.Enabled = False
         cmdsalva.Enabled = False
    End Sub
    Ed ora il listboxclient appare così
    Caio
    Sempronio
    Tizio
    Mi mette tizio davanti, domanda come fare x non far succedere questo?

  6. #6
    Grazie lo stesso raga ho risolto così, ho inserito una routine
    codice:
    Public Sub listbox()
     lstboxclient.Clear
    Set mydata = OpenDatabase(App.Path + "\" + "DBclienti.mdb")
        Set myrecord = mydata.OpenRecordset("clienti")
    
        Do Until myrecord.EOF
            lstboxclient.AddItem myrecord.Fields("nome")
            myrecord.MoveNext
        Loop
       End If
       mydata.Close
    End Sub

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.