Keskustelu: Ohjelmointikysymykset: VB.NET: Database

Imports ADOX 'COM-Referenssi: Microsoft ADO Ext. 2.8 for DDL and Security
Imports System
Imports System.Data
Imports System.Data.OleDb

Public Class Form1

   Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

      'asettaan muuttujan 'dbPath' arvoksi polku siihen kansioon,
      'jossa ohjelma sijaitsee fyysisesti ja lisätään tiedostonimi
      Dim dbPath As String = Application.StartupPath + "\tietokanta.mdb"

      'Mikäli muuttujan osoittaman tiedostopolun tiedostoa ei löydy
      If Dir(dbPath) = String.Empty Then
         'Alustetaan uusi ADOOX.Catalog objekti
         Dim cat As New ADOX.Catalog()
         'Luodaan uudsi tyhjä tietokanta
         cat.Create("Provider=Microsoft.Jet.OLEDB.4.0; " + _
         "Data Source=" + dbPath + ";Jet OLEDB:Engine Type=5")
         'tuhotaan ADOOX.Catalog objekti
         cat = Nothing
      End If

      'Alustetaan muuttuja 'connstr' ja asetetaan arvoksi
      'Microsoft Access Jet.OLEDB yhteys ja datalähde...
      Dim connstr As String = _
      "PROVIDER=Microsoft.Jet.OLEDB.4.0;" + "Data Source =" + dbPath

      'Alustetaan uusi OleDbConnection objekti
      'ja asetetaan objektin yhteysmerkkijono
      Dim conn As OleDbConnection = New OleDbConnection(connstr)

      'Alustetaan DataTable objekti
      Dim testTable As New DataTable
      'Asetetaan merkkijonomuuttujan arvo
      Dim tableName As String = "Testitaulu"

      Try
         'Avataan tietokantayhteys
         conn.Open()

         'haetaan yhteyden SchemaTable objektin
         'taulukkotiedot 'testTable' objektiin
         testTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, _
         New Object() {Nothing, Nothing, tableName, "TABLE"})

         'Alustetaan tyhjä OleDb komento objekti
         Dim command As OleDbCommand = Nothing

         'Jos testTable objekti ei sisällä yhtään tietokantataulukkoa...
         If testTable.Rows.Count = 0 Then
            'asetetaan kommennon arvoksi taulukon
            'luova OleDb komento saraketietoineen
            command = New OleDbCommand( _
            "CREATE TABLE [" + tableName + "]" + _
            "([ID] INT IDENTITY(1, 1), " + _
            "[Etunimi] TEXT(20) NOT NULL, " + _
            "[Sukunimi] TEXT(20) NOT NULL, " + _
            "[Osoite] MEMO NOT NULL, " + _
            "[Postinumero] TEXT(10) NOT NULL, " + _
            "[Postitoimipaikka] TEXT(50) NOT NULL, " + _
            "[Puhelin] TEXT(15), " + _
            "[Sähköposti] MEMO, " + _
            "[Merkinnät] MEMO, " + _
            "CONSTRAINT [pk_ID] PRIMARY KEY (ID))", conn) 'esim.
            'Suoritetaan komento
            command.ExecuteNonQuery()
         End If
         'Tuhotaan testi objekti
          testTable = Nothing
         'Asetetaan muuttujan 'query' arvoksi SQL-lause
         Dim query As String = "SELECT * FROM " + tableName
         'Alustetaan uusi DataSet objekti
         Dim ds As New DataSet
         'Asetetaan OleDb datasovittimelle kyselylause ja yheysobjekti
         Dim da As New OleDbDataAdapter(query, conn)
         'lisätään datasovittimen avulla DataSet objektiin
         'kyselylauseen osoittama tietokantataulu
         da.Fill(ds, tableName)

         'Jos DataSet objektiin tuotu tietokantataulu ei sisällä tietoa
         If ds.Tables(tableName).Rows.Count = 0 Then

            'Asetetaan uusi OleDb komento
            command = New OleDbCommand("INSERT INTO [" + tableName + "]" + _
            "([Etunimi], [Sukunimi], [Osoite], [Postinumero], " + _
            "[Postitoimipaikka], [Puhelin], [Sähköposti], " + _
            "[Merkinnät]) VALUES('Matti','Mainio','Matinkatu 1'," + _
            "'12121','Kotikaupunki','041-1234567'," + _
            "'matti.mainio@kotiposti.fi','Melkoisen viisas mies')", conn)   'esim.
            'Suoritetaan komento
            command.ExecuteNonQuery()
            'tuodaan taulukkotiedot  uudelleen DataSet objektiin
            da.Fill(ds, tableName)
         End If

         'Asetetaan DataGridView1 objektin dataläheeksi
         'DataSet objektin datataulun tableName tiedot
         DataGridView1.DataSource = ds.Tables(tableName)

         'Suljetaan tietokantayhteys
         conn.Close()
      Catch ex As Exception
         MsgBox(ex.Message) : Exit Sub
      End Try

   End Sub

End Class