Sub SeEsiste(timestamp() As Byte, NomeTab As String) As Boolean
Dim tot As Int
tot=sqlpi.ExecQuerySingleResult2("Select count(*) FROM " & NomeTab & " WHERE timestamp = ?", _
Array As Object(timestamp))
If tot =0 Then
Return False
End If
Return True
End Sub