Salve, ho una tabella in una db sql dove sono presenti circa 5000 record, ogni record è formato da più campi, uno di questi è iD che funziona anche da chiave. Questo data base viene aggiornato inserendo nuovi record e di conseguenza su ogni record aggiunto la chiave Id aumenta di una unità.
Ho bisogno tramite una routine di conoscere il valore massimo di id.
In vbnet uso il seguente codice ma in vb6 come utilizzo la funzione select top 1 ?
Grazie
CNN.Open()
Dim StrCon As String = "SELECT TOP 1 ID FROM AProva ORDER BY Id DESC"
Dim Cmd As New SqlCommand(StrCon, CNN)
Dim Dr As SqlDataReader = Cmd.ExecuteReader
Dr.Read()
Dim PosDato As Integer = 0
If Dr.HasRows = True Then PosDato = Dr("ID")
Dr.Close()
CNN.Close()
Ultima modifica effettuata da piter123 il 18/01/2013 alle 14:03 |