' Tramite la funzione OpenTable è possibile aprire una tabella sul database.
' La funzione restituisce un oggetto di tipo recordset QualiWare per la lettura oppure la scrittura di dati da o nel database.
' Parametri:
' DB -> Oggetto database
' SQL -> È necessario specificare l'esatta stringa SQL di lettura/scrittura. Eventualmente comprensiva di parametri per la selezione dei record (essi dovranno essere preceduti dal carattere ":" ed il nome utilizzato per la loro identificazione sarà case sensitive).
' PARAMETERS -> È un array associativo gestito per mezzo di un campo chiave il cui nome è il nome del parametro di selezione record da utilizzare ed il cui valore è appunto il valore da ricercare.
' ALL_RECORDS -> Di default è impostato a FALSE e così viene utilizzato nella maggior parte dei casi.
' Può essere impostato a TRUE nel caso in cui si voglia ottenere subito dopo l'esecuzione del comando
' "q.active = True" l'insieme completo di tutti i record di una tabella del DB; essa però DEVE ESSERE aperta esclusivamente per mezzo dell'SQL: "select * from TABELLA".
' IN_SCRITTURA -> Di default è impostato a FALSE e così viene utilizzato nella maggior parte dei casi.
' Se viene impostato a TRUE l'oggetto recordset QualiWare restituito sarà in grado di effettuare l'inserimento di nuovi record nella tabella, la modifica di record esistenti oppure la cancellazione di essi.
' ERRMSG -> Nel caso in cui si verificasse qualche errore, il testo di quest'ultimo sarebbe reperibile all'interno di questa variabile.
' Al termine dell'utilizzo la tabella deve essere chiusa con la primitiva CloseTable
Dim par As New AssocArray()
par("DATA") = Today()
Dim errmsg As String
Dim t As QWTable
t = OpenTable(DB, "SELECT CODICE FROM PERSON WHERE (DATAFINE>=:DATA)", par, false, false, errmsg)
If Empty(errmsg) Then
' Task da compiere con il recordset
Else
WriteLog(errmsg)
End If
CloseTable(t)