Omet navegació

3.3 Tipus especials

 

Hi ha d'altres tipus molt especials, que són objectes (de programació orientada a objectes) que ens serviran per fer consultes SQL sobre les taules de la B.D. D'entre tots anem a triar-ne 2 per la seua importància:

DATABASE és un tipus que fa referència a un Base de Dades

RECORDSET (conjunt de registres) és un tipus que podrà inicialitzar-se amb un conjunt de registres provinent d'una taula o una consulta SQL. Ens permetrà manipular les dades a nivell de registre.

Per a posar un valor a una variable d'aquestos tipus s'utilitza la sentència Set.

El següent exemple trau el nombre d'empleats.

Function QuantsEmpleats()
    Dim BD As Database 'defineix una variable DataBase
    Dim rs As Recordset 'defineix una variable RecordSet
    Set BD = CurrentDb 'inicialitza BD a l'actual
    Set rs = BD.OpenRecordset("Empleat") 'inicialitza el rs com la taula Empleat
    rs.MoveLast 'se'n va a l'últim registre
    MsgBox ("Hi ha " & rs.RecordCount & " empleats") 'trau el nombre de registres en rs
End Function

I el següent el nombre d'empleats del departament 5

Function QuantsDel5()
    Dim BD As Database
    Dim rst As Recordset
    Set BD = CurrentDb
    Set rst = BD.OpenRecordset("SELECT * FROM EMPLEAT WHERE departament=5")
    rst.MoveLast
    MsgBox ("Hi ha " & rst.RecordCount & " empleats")
End Function

Exercici 3.7

Copiar les dues funcions anteriors i provar-les.