Home Page
Articoli
Tips & Tricks
News
Forum
Archivio Forum
Blogs
Sondaggi
Rss
Video
Utenti
Chi Siamo
Contattaci
Username:
Password:
Login
Registrati ora!
Recupera Password
Home Page
Stanze Forum
SQL Server 2000/2005/2008, Express, Access, MySQL, Oracle
Problemi conteggio record riferito ad un campo
mercoledì 28 luglio 2004 - 11.16
Elenco Threads
Stanze Forum
Aggiungi ai Preferiti
Cerca nel forum
bornslippy
Profilo
| Newbie
22
messaggi | Data Invio:
mer 28 lug 2004 - 11:16
ACCESS - VBA
NumRec = 0
Me.RecordsetClone.MoveFirst
Do
NumRec = NumRec + 1
Me.RecordsetClone.MoveNext
Loop Until Me.RecordsetClone.EOF = True
Queste righe di codice mi permettono di calcolare il numero di record contenuti in una tabella (vi è la certezza che vi sia almeno un record memorizzato, altrimenti non funziona). Il passo successivo è quello di contare anche i record sempre della stessa tabella che hanno un campo uguale ad una certa stringa.
In pseudocodifica dovrebbe essere qualcosa del genere:
NumRec = 0
NumELE = 0
Me.RecordsetClone.MoveFirst
Do
NumRec = NumRec + 1
Se il text del nomecampo = ELE allora
NumELE = NumELE + 1
End If
Me.RecordsetClone.MoveNext
Loop Until Me.RecordsetClone.EOF = True
Non funziona perchè innanzi tutto dovrei dare il focus a NomeCampo (giusto???), poi tramite una serie di controlli mi sono accorto che il record corrente rimane sempre il primo, a questo punto alzo le mani e confido in voi. GRAZIE.
bornslippy
Profilo
| Newbie
22
messaggi | Data Invio:
mer 28 lug 2004 - 14:31
decisamente, il problema è che non so come scrivere una istruzione SQL in VB
Brainkiller
Profilo
| Guru
7.999
messaggi | Data Invio:
mer 28 lug 2004 - 23:27
Se conosci poco i Database, poco VBA, SQL e DAO non vai molto lontano.
Io ti posso postare del codice di questo tipo spero tu lo capisca:
Dim strsql As String
Dim rs As DAO.Recordset
Dim strsql2 As String
Dim db As DAO.Database
Set db = CurrentDb
strsql = "SELECT * FROM TABELLA"
'Così apri e costruisci un Recordset
Set rs = db.OpenRecordset(strsql)
'Esegui uno statement SQL di inserimento
strsql2 = "INSERT INTO Tabella (Valore) VALUES (5)"
db.Execute strsql2
ciao
david
Torna su
Stanze Forum
Elenco Threads
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?
Dopo esserti registrato potrai chiedere
aiuto sul nostro
Forum
oppure aiutare gli altri
Consulta le
Stanze
disponibili.
Registrati ora !