Keskustelu: Ohjelmointikysymykset: VB.NET: Päivämäärä ja kellonaika (VB 2005)

Imports System
Imports System.Data
Imports System.Data.Odbc
Imports System.Drawing
imports Microsoft.VisualBasic
Imports System.Windows.Forms

'...
'...

Private Sub Button1Click(sender As System.Object, e As System.EventArgs)

  'oletetaan, että tietokannassa nimeltä tietokanta on
  'taulu nimeltä taulu jossa on 4 saraketta joiden nimiöt
  'ovat: nro, pvm_klo, pvm ja klo ja joiden datatyypit ovat:
  'laskuri (AutoNumber), PäivämääräAika (DateTime),
  'Teksti (Text) ja Teksti

  Dim pvm_klo As DateTime = Now()
  Dim splitti() as string = pvm_klo.ToString.split(" ")
  Dim pvm As String = splitti(0)
  Dim klo As String = splitti(1)
  Erase splitti

  Dim yhteys As OdbcConnection

  'mikäli kyseessä On MS-Access tietokanta ja oletetaan,
  'että c: aseman juuressa on tietokanta nimeltä tietokanta.mdb
  'eikä tietokantaa ole suojattu niin ...
  yhteys = New OdbcConnection("Driver={Microsoft " & _
  "Access Driver (*.mdb)}; Dbq=C:\tietokanta.mdb;Uid=Admin;Pwd=;")

  'mikäli kyseessä on MS-SQL Tietokanta ja oletetaan, että on olemassa
  'tietokanta nimeltään tietokanta eikä tietokantaa ole suojattu niin...
  'yhteys = New OdbcConnection("Driver={SQL Server};Server=localhost;" _
  '& "Trusted_Connection=True;Database=Tietokanta")

  'mikäli kyseessä on jokin muu tietokantatyyppi tai halutaan käyttää
  'erityyppistä metodia yhteydenluomiseksi tai tarvitaan muuta infoa...
  'katso http://www.dofactory.com/Connect/Connect.aspx

  Dim jono As String
  Dim komento As OdbcCommand = New OdbcCommand
  komento.Connection = yhteys

  'jos kantaan lisätään uusi tietue niin...
  jono = "INSERT INTO Taulu (pvm_klo, pvm, klo) " & _
  "Values('" & pvm_klo & "','" & pvm & "','" & klo & "')"
  komento.CommandText = jono
  yhteys.Open()
  komento.ExecuteNonQuery()
  yhteys.Close() '.

  'jos kannassa päivetetään yksittäisen tietueen, esim. viimeisen
  'tietueen (on 1.tietue jos tietueita on vain yksi), kenttiä niin...

  'Dim lukija As OdbcDataReader
  'yhteys.Open()
  'jono = "select count(*) FROM Taulu WHERE [pvm_klo]"
  'komento.CommandText = jono
  'lukija = komento.ExecuteReader

  'While lukija.Read()> 0
    'lukija.Read()
  'End While

  'dim cnt As Long = lukija.Item(0)
  'lukija.Close()
  'lukija = Nothing
  'jono = "UPDATE Taulu Set pvm_klo='" & _
  'pvm_klo & "', pvm='" & pvm & "',klo='" & _
  'klo & "' WHERE nro=" & cnt
  'komento.CommandText = jono
  'komento.ExecuteNonQuery()
  'yhteys.Close() '...

  komento = Nothing
  yhteys = Nothing

End Sub