[VB6]: Individuare l'ultimo record...

[vr-claudio]

Ciao ragazzi
rieccomi con i miei problemi di connessione con le tabelle di access, arrivo subito al dunque;
Io utilizzo questo codice per connettermi ad una tabella.mdb:

Dim rst1 As Recordset, DB1 As Database
Set DB1 = OpenDatabase("C:\...\DB.mdb")
Set rst1 = DB1.OpenRecordset("SELECT PARTITAIVA FROM P_IVA")
Do While Not rst1.EOF
PARTITAIVA.text = rst1.Fields("PARTITAIVA").Value
rst1.MoveNext
Loop
rst1.Close

Poi ho un'altra textbox chiamata TXT_ID e dovrei far visualizzare l'ultimo record di quella tabella all'interno di essa...come faccio?
spero di essere stato chiaro, grazie in anticipo...vrclaudio

[oregon]

Con quel ciclo inserisci tutte le partite IVA nello stesso textbox con il risultato che vedrai l'ultima ...

(Ma perche' non usi ADO, tra l'altro)

[vr-claudio]

Hai perfettamente ragione oregon, scusa tanto, infatti quello è un codice che utilizzo a pescare solamente un record in una tabella, vi posto l'altro:

sRagSoc = Replace(List1.text, "'", "''")
Set DB1 = OpenDatabase("C:\...\DB.mdb")
Set rst1 = DB1.OpenRecordset("SELECT * FROM ID_AZIENDE where RAGIONESOCIALE ='" & sRagSoc & "'")
Do While Not rst1.EOF

TXT_NOME.text = rst1!RAGIONESOCIALE
TXT_INDIRIZZOFATTURA.text = rst1!INDIRIZZO
TXT_CITTA1.text = rst1!CITTA
TXT_PROVINCIAFATTURA.text = rst1!PROVINCIA
TXT_CAP1.text = rst1!CAP
rst1.MoveNext
Loop
rst1.Close
DB1.Close

...chiaramente con questo codice pesco un record alla volta da una list1.
Dato che sto creando un programma di fatture mi serve che in una determinata textbox io riesca a visualizzare il numero dell'ultima fattura emessa.
Grazie, vrclaudio

[oregon]

Continuo a non capire perche' usi un ciclo per visualizzare le informazioni di una sola società ...

Probabilmente il tuo database non e' organizzato correttamente ...

[vr-claudio]

per rinfrescare un po' tutto, ho già detto che il codice che ho mandato lo utilizzo solamente per trovare un'azienda o un dato in particolare, da una List1. Non centra nulla con quello che ho richiesto, ma è solo il mio modo di programmare, tutto qui, io utilizzo questo sistema...se poi ci sono altri sistemi di cui io possa studiarne la funzionalità sono a tutt'occhi.
Grazie, vrclaudio

[oregon]

Originariamente inviato da vr-claudio
... il codice che ho mandato lo utilizzo solamente per trovare un'azienda o un dato in particolare, da una List1 ...

E avevo capito. Tu cerchi dei dati a partire da una 'ragione sociale'.

Quello che non ho capito e' perche' utilizzi un loop e un movenext ...

... io utilizzo questo sistema...

Ma e' un modo sbagliato. Se cerchi i dati della "società x" e questi sono nella tabella indicata (e sarebbe bene capire anche se il db e' organizzato bene o no ...), allora dovrai scrivere

If Not rs1.Eof Then
  TXT_NOME.text = rst1!RAGIONESOCIALE
  TXT_INDIRIZZOFATTURA.text = rst1!INDIRIZZO
  TXT_CITTA1.text = rst1!CITTA
  TXT_PROVINCIAFATTURA.text = rst1!PROVINCIA
  TXT_CAP1.text = rst1!CAP
End If

[vr-claudio]

Ciao oregon, in base a quello che mi hai risposto ho fatto solo una piccola modifica, dagli un'occhiata e dimmi se puo' andare bene, non mi da' errori, ti posto l'intero codice:

On Error Resume Next
Set rs = New ADODB.Recordset
Dim strSQL As String

strSQL = "SELECT TXT_CODICE FROM ID_ARTICOLI ORDER BY TXT_CODICE;"
rs.Open strSQL, conn, adOpenKeyset, adLockReadOnly

If Not rs.EOF Then
rs.MoveLast
TXT_ULTIMOCODICE.text = rs!TXT_CODICE
End If

...cosi' facendo lo obbliga a posizionarsi sull'ultimo record
vrclaudio