|
è un prg per gestire gli appuntamenti di un ambulatorio
devo visualizzare gli appuntamenti per giorno e per medico
nel caso dell'ordinamento per giorno faccio un gruppo sulla data
nel caso del medico faccio un gruppo sul medico e ordino i suoi appuntamenti per data ed ora.
I campi sono IdMedico, DataApp e OraApp
If cFlRagg = "G" Then
cOrd = " order by DataApp AND OraApp"
Else
cOrd = " order by IdMedico AND DataApp AND OraApp"
End If
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("data/ambulatori.mdb")
Dim rsApp
Set rsApp = Server.CreateObject("ADODB.Recordset")
rsApp.Open "select * from Appuntamenti"&cOrd, conn
se mi sei di aiuto grazie tante
__________________
Mik BZ8
|