data helper
E' efficiente creare una classe in cui mettere le azioni sul db,
soprattutto i lookup, che così vengono memorizzati in variabili sempre pronte all'uso (Prprietà Statiche)
per convenzione le variabili private cominciano con _ o m_ (m come memory)
Imports Microsoft.VisualBasic
Public Class DataHelper
Private Shared m_generi As Dati.GeneriDataTable
Public Shared ReadOnly Property LookupGeneri() As Dati.GeneriDataTable
Get
If m_generi Is Nothing Then
m_generi = New DatiTableAdapters.GeneriTableAdapter().GetData()
End If
Return m_generi
End Get
End Property
'''
''' svuota la memoria di tutte le proprietà statiche
'''
'''
Public Shared Sub InvalidaLookups()
m_generi = Nothing
End Sub
Public Shared Function GetUser(ByVal username As String, ByVal password As String) As Dati.UtentiRow
Dim Adapter As New DatiTableAdapters.UtentiTableAdapter()
Dim dt As Dati.UtentiDataTable
dt = Adapter.GetDataByUserAndPassword(username, password)
If dt.Count = 0 Then
Return Nothing
Else
Return dt(0)
End If
End Function
Public Shared Sub PrenotaLibro(ByVal user As String, ByVal libro As Integer)
Dim adapter As New DatiTableAdapters.CodaRichiesteTableAdapter()
' vogliamo aggiungere una riga, quindi la creiamo
Dim dt As Dati.CodaRichiesteDataTable
dt = New Dati.CodaRichiesteDataTable()
' poi la riempiamo
dt.AddCodaRichiesteRow(user, libro, Now(), Now().AddMonths(2))
' e infine la scriviamo
adapter.Update(dt)
End Sub
Public Shared Sub InserisciLibro(ByVal titolo As String, ByVal autore As String, ByVal genere As Integer, ByVal isbn As String, ByVal dataPubb As Date)
Dim adapter As New DatiTableAdapters.LibriTableAdapter()
Dim dt As New Dati.LibriDataTable()
dt.AddLibriRow(isbn, titolo, autore, genere, dataPubb)
adapter.Update(dt)
End Sub
End Class