[VB6] Visualizzazione scorretta record Access (non ordinati)

[Magicolotto]

ciao raggazzi ho purtroppo notato che

quando aggiorno l'archivio
tramite programma esso aggiunge un nuovo record nell'archivio access

pero poi noto che questo record non viene visualizzato come nuovo record in ordine cronologico di immissione e di ID, ma il programma lo pone come 1° record

quindi per curiosita ho aperto access per vedere se effettivamente è il 1° record, ma nell'archivio è posto come ultimo record immesso

come mai il programma lo visualizza per primo e non per ultimo?

[power.mobile]

non è che nella select che fai gli dai anche order by?

[Magicolotto]

cioe'?

[power.mobile]

se per visualizzare i record usi un comando select con inclusa una clausola order by di ordinamento lui te la ordinerà in base alla clausola...

  "select id, nome from user order by nome"

la parte in neretto è l'ordinamento che do al risultato della select...

[Magicolotto]

Private Sub Form_Load()
  Dim db As Connection
  Set db = New Connection
  db.CursorLocation = adUseClient
  db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\magicolotto.mdb;"

  Set adoPrimaryRS = New Recordset
  adoPrimaryRS.Open "select Data,BA1,BA2,BA3,BA4,BA5,CA1,CA2,CA3,CA4,CA5,FI1,FI2,FI3,FI4,FI5,GE1,GE2,GE3,GE4,GE5,MI1,MI2,MI3,MI4,MI5,NA1,NA2,NA3,NA4,NA5,PA1,PA2,PA3,PA4,PA5,RO1,RO2,RO3,RO4,RO5,TO1,TO2,TO3,TO4,TO5,VE1,VE2,VE3,VE4,VE5,ID from archivio", db, adOpenStatic, adLockOptimistic

  Dim oText As TextBox
  'Associa le caselle di testo al fornitore di dati
  adoPrimaryRS.MoveLast 'ecco come ordino   For Each oText In Me.txtFields
    Set oText.DataSource = adoPrimaryRS
    
  Next
  

  mbDataChanged = False
End Sub

[Magicolotto]

nessuno mi suggerisce qualcosa? è importante

[oregon]

Se ti succede qualcosa di strano quando aggiorni l'archivio, devi mostrare il codice eseguito durante l'aggiornamento non quello della Form_Load ...

[Magicolotto]

si codice per upload l'archivio?

[Magicolotto]

Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
    "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
    ByVal szFileName As String, ByVal dwReserved As Long, _
    ByVal lpfnCB As Long) As Long
Dim errcode As Long
Dim url As String
Dim localFileName As String



Private Sub Download_Click()
MsgBox "se da errore allora chiudi tutte le finistre del programma e riprova "
FileCopy "C:\Programmi\magicolotto.net\magicolotto.mdb", "C:\Programmi\magicolotto.net\ultimosalvataggioarchivio.mdb" 'questo serve per fare un backup dell'archivio

Kill "C:\Programmi\magicolotto.net\magicolotto.mdb"  'questo serve per eiminare l'archivio prima del download
url = "http://www.magicolotto.net/software/metodi/magicolotto.mdb"
localFileName = "C:\Programmi\magicolotto.net\magicolotto.mdb"

errcode = URLDownloadToFile(0, url, localFileName, 0, 0)
If errcode = 0 Then
    MsgBox "Download ok"
Else
    MsgBox "Errore durante il trasferimento Riprova più tardi"
End If
End Sub

[oregon]

Dato che il database e' completamente sostituito, a meno che quello scaricato non contenga gia' un record in piu' (e non posso sapere se cio' e' vero), il problema sta da qualche altra parte ...