|
|||||||
|
|
|
![]() |
|
|
Strumenti |
|
|
#1 |
|
Senior Member
Iscritto dal: Feb 2003
Messaggi: 2817
|
[VB6] Conteggio record
Come si fa la sintassi COUNT per contare i record di una tabella
Set rsRecordSet = New ADODB.Recordset rsRecordSet.Open "SELECT * From [Esercizi]", CnConnessioni, adOpenStatic, adLockOptimistic Come va modificata???? Poi il risultato va visualizzato in esercizi.text Mi date la sintassi???? Ciao e grazieeeeeee
__________________
AMD 3700x --- ASUS X570 CROSSHEAR VIII HERO --- 4x 8GB Corsair Vengeance RGB PRO 3600 MHz --- SSD: Samsung 980Pro 1TBb --- EVGA RTX 2070 SUPER |
|
|
|
|
|
#2 |
|
Senior Member
Iscritto dal: May 2002
Città: Roma
Messaggi: 587
|
presupponendo che la connessione gia cel'hai e che sia gia aperta io faccio cosi
dim myrs as new adodb.recordset dim NumRec as integer set myrs = myconn.execute("SELECT count(*) from Tabella") if not myrs.EOF then NumRec=myrs(0) end if oppure dim myrs as new adodb.recordset dim NumRec as integer set myrs = myconn.execute("SELECT * from Tabella") myrs.movelast NumRec=myrs.recordcount myrs.movefirst potrei aver scritto qualche stupidagine, è un po che non uso le ado di vb6 e non cel'ho installato per provare qualche che ti ho scritto, in particolare non son sicuro del myrs.recordcount ma son sicuro esista qualcosa che ti dice la posizione del cursore. ciao
__________________
AMD Phenom II 965 Black Edition | Gigabyte 990XA-UD3 | Corsair 8GB DDR3 1666 | Intel SSD 320 160GB + WD Caviar Green 3TB | AsusGeForce GTX770 DC II| CoolerMaster 690 II | Philips 231e1sb |
|
|
|
|
|
#3 |
|
Senior Member
Iscritto dal: Feb 2003
Messaggi: 2817
|
Ok
Ok grazie
__________________
AMD 3700x --- ASUS X570 CROSSHEAR VIII HERO --- 4x 8GB Corsair Vengeance RGB PRO 3600 MHz --- SSD: Samsung 980Pro 1TBb --- EVGA RTX 2070 SUPER |
|
|
|
|
| Strumenti | |
|
|
Tutti gli orari sono GMT +1. Ora sono le: 03:21.



















