Accesso ad un database Microsoft Access

Access non nasce per essere utilizzato da Web. Comunque per siti web con pochi accessi e soprattutto per sola lettura, può essere comodo. Ovviamente è sempre meglio migrare a MySQL o MsSql visto che con l'hosting di serverweb.net una connessione è compresa anche nei piani base.

Ecco il codice di esempio

   1:  Protected Sub ButtonStart_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonStart.Click

   2:          ' Apri database

   3:          Dim cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("~/App_Data/testdb.mdb"))

4:

   5:          ' Controlla se ci sono record all'interno

   6:          Dim total As Long

   7:          Dim cmd As New OleDbCommand

   8:          cmd.Connection = cn

   9:          cmd.Connection.Open()

10:

  11:          cmd.CommandText = "SELECT COUNT(*) AS CC FROM TBL_TEST"

  12:          total = cmd.ExecuteScalar()

13:

  14:          ' Se non ci sono record inserirne almeno 100

  15:          If total < 100 Then

  16:              Dim i As Integer

  17:              cmd.CommandText = "INSERT INTO TBL_TEST (val) VALUES('EOS')"

  18:              For i = 1 To 100

  19:                  cmd.ExecuteNonQuery()

  20:              Next

  21:          End If

22:

  23:          ' Somma di tutti gli ID record il numero dei record

  24:          cmd.CommandText = "SELECT SUM(IDRECORD) AS CC FROM TBL_TEST GROUP BY VAL"

  25:          total = cmd.ExecuteScalar()

26:

  27:          ' Chiudi command e database

  28:          cmd.Dispose()

  29:          cn.Close()

30:

31:

  32:          ' Visualizza il risultato

  33:          Me.LabelMsg.Text = "Risultato query: " & total

34:

  35:      End Sub

Esegui esempio visualizzato