%@LANGUAGE="VBSCRIPT"%>
<%
Dim rsCorso__IDCO
rsCorso__IDCO = "17"
If (Request.Querystring("IDCO") <> "") Then
rsCorso__IDCO = Request.Querystring("IDCO")
'Select Case rsCorso__IDCO
' Case 69
' rsCorso__IDCO = 99
' Case 66
' rsCorso__IDCO = 109
' Case 78
' rsCorso__IDCO = 96
' Case 71
' rsCorso__IDCO = 100
' Case 70
' rsCorso__IDCO = 98
' Case 59
' rsCorso__IDCO = 104
' Case 83
' rsCorso__IDCO = 84
' Case 80
' rsCorso__IDCO = 97
' Case 79
' rsCorso__IDCO = 83
' Case 72
' rsCorso__IDCO = 101
' 'Case 60 'Over 50 II Livello
' ' rsCorso__IDCO =
' 'Case 65 'Photoshop
' ' rsCorso__IDCO =
' Case 58
' rsCorso__IDCO = 103
' Case 57
' rsCorso__IDCO = 102
' Case 61
' rsCorso__IDCO = 105
' Case 62
' rsCorso__IDCO = 106
' Case 75
' rsCorso__IDCO = 87
' Case 76
' rsCorso__IDCO = 88
' Case 67
' rsCorso__IDCO = 93
' Case 68
' rsCorso__IDCO = 94
' Case 73
' rsCorso__IDCO = 85
' Case 74
' rsCorso__IDCO = 86
' Case 81
' rsCorso__IDCO = 79
' Case 63
' rsCorso__IDCO = 107
' Case 64
' rsCorso__IDCO = 108
' End Select
End If
%>
<%
Dim rsCorso
Dim rsCorso_numRows
Set rsCorso = Server.CreateObject("ADODB.Recordset")
rsCorso.ActiveConnection = MM_corsi_STRING
rsCorso.Source = "SELECT Corsi.ID_Corso, Corsi_Categorie.Nome, Corsi_Categorie.Foto, Corsi_Modello.Nome_Corso, Corsi_Modello.Descrizione, Corsi_Modello.File_Programma, Corsi_Modello.Prezzo, Corsi_Modello.Foto, Corsi_Date.Data, Corsi_Date.Ora_Inizio, Corsi_Date.Ora_Fine FROM ((Corsi_Categorie INNER JOIN Corsi_Modello ON Corsi_Categorie.ID_Categoria = Corsi_Modello.ID_Categoria) INNER JOIN Corsi ON Corsi_Modello.ID_Modello = Corsi.ID_Modello) INNER JOIN Corsi_Date ON Corsi.ID_Corso = Corsi_Date.ID_Corso WHERE (((Corsi.ID_Corso)=" + Replace(rsCorso__IDCO, "'", "''") + "));"
rsCorso.CursorType = 0
rsCorso.CursorLocation = 2
rsCorso.LockType = 1
rsCorso.Open()
rsCorso_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rsCorso_numRows = rsCorso_numRows + Repeat1__numRows
%>
Roma Corsi - Corso Access Aziendale
categoria: Corsi aziendali
Microsoft Access - Progettare con il database Access
"Costruire archivi di dati secondo l'esigenza dell'azienda -
Case history"
-------------------------------
Programma
I Database
- I Database Management System
- La progettazione
- I dati non sono informazioni
- I livelli di astrazione
- Il modello Entità/Relazioni
- Gli attributi
- La chiave primaria
- La teoria relazionale
- Ridondanza e Normalizzazione
- La prima forma normale
- La seconda forma normale
- La terza forma normale
Progettare e realizzare in maniera corretta
un database aziendale
- L’analisi
- la tabella è normalizzata?
- Il livello esterno e i tipi di relazione
- Chi relaziona cosa
- Implementare una relazione
Uso avanzato dei campi delle maschere
- I campi calcolati
- Formattare le caselle di testo
- Il generatore di espressioni
- Le funzioni
- Le caselle combinate
- Le sottomaschere
- I Report
Costruiamo un motore di ricerca
- Il modello dei dati
- La maschera del motore di ricerca
- La query per la ricerca dei dati
- Liste dinamiche
- I pulsanti e le azioni associate
La registrazione e l’organizzazione dei documenti
- L’applicazione
- Il modello dei dati
- La query
- L’interfaccia
- I pulsanti
Sostituire il registro cartaceo della corrispondenza
- La creazione delle tabelle
- La ricerca guidata
- La creazione della query
- Filtrare un determinato periodo
- Le maschere
- La cura dell’interfaccia
- Titoli ed etichette
- Funzionalità avanzate nelle maschere
- Le caselle combinate
- Ricerca per data registrazione
- I controlli ActiveX
<%
rsCorso.Close()
Set rsCorso = Nothing
Function GiornoSettimana(giorno)
Select Case giorno
Case 2
GiornoSettimana = "LUNEDI'"
Case 3
GiornoSettimana = "MARTEDI'"
Case 4
GiornoSettimana = "MECOLEDI'"
Case 5
GiornoSettimana = "GIOVEDI'"
Case 6
GiornoSettimana = "VENERDI'"
Case 7
GiornoSettimana = "SABATO"
Case 1
GiornoSettimana = "DOMENICA"
Case Else
GiornoSettimana = ""
End Select
end function
%>