Keskustelu: Ohjelmointikysymykset: VB.NET: DateTimePicker:n käyttö? VB2008 + Access2007

Mitenköhän saisin DateTimePrickerin tallennettua oikein access-kantaan? Kannassa tietueen tyyppi on pvm/klo. Kun yritän siten, että määrittelen DTP:n date:ksi(nimennyt sen pvm:ksi) ja tallennan näin:

Dim pvm As Date

MyDataAdapter.SelectCommand = New OleDbCommand
MyDataAdapter.SelectCommand.Connection = MyConnection

MyConnection.Open() 'Avataan yhteys tietokantaan
Try
    MyCommand.Connection = MyConnection
    MyCommand.CommandText = "INSERT INTO Tekstit (teksti,pvm) values ('" & boksi1.Rtf & "',  '" & pvm & "' )"
    MyCommand.ExecuteNonQuery()

Näin tehtynä kantaan tallentuu päivämäärän kohdalle kuitenkin 0:00:00. Jos muutan date as String:ksi ja kannan tietueen tekstiksi niin päivämäärä tallentuu oikein. Mutta haluasin kuitenkin päivämäärän päivämäärä-tyyppisenä, jotta voisin käyttää tämän tietotyypin ominaisuuksia jatkossa hyväksi.

ps. jos jollain tietoa miten määritän SQL:llä esim. "hae yhden kuukauden aikana tallennetut tekstit" -lausekkeen, niin ottaisin tiedon miellellään vastaan. :)

Taisi muuten olla ensimmäinen kerta kun täältä ei tullut vastausta:) Sain ongelman ratkaistua näin(DateTimePicker nimetty dtp:ksi):

Dim value As Date
value = dtp.Value
dtp.Value = value


    MyCommand.Connection = MyConnection
    MyCommand.CommandText = "INSERT INTO Tekstit (teksti,pvm) values ('" & boksi1.Rtf & "', '" & value & "'  )"
    MyCommand.ExecuteNonQuery()

Mutta kuten olettaa saattaa ongelmat jatkuvat. Haluaisin nyt nämä molemmat tiedot samaan rtf-boksiin. Päivämäärä pitää käsitääkseni muuntaa teksti(tai rtf)-muotoon että sen voi sijoittaa tuohon rtf-laatikkoon.

Yritin tälläistä mutta ei pelitä.

Try

            MyDataSet.Clear() : MyDataAdapter.TableMappings.Clear() 'Tyhjennetään mahdolliset aikaisemmat tiedot
            MyDataAdapter.SelectCommand.CommandText = "SELECT * FROM Tekstit ORDER BY tunniste DESC"
            MyDataAdapter.Fill(MyDataSet, "Teksti") 'haetaan tiedot Teksti-nimiseen MyDataSet-tietojoukkoon
            Dim sb As New System.Text.StringBuilder
            For Each row As DataRow In MyDataSet.Tables("Teksti").Rows
                sb.Append(row.Item("pvm") + (",  "))
                sb.Append(row.Item("teksti") + (vbCrLf))
            Next
            boksi2.Rtf = sb.ToString()

Ilmoittaa, että tiedostomuoto on väärä. Ei ois kellään tähän jotain painavaa sanottavaa?