Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Datum in tabel  (gelezen 3540 keer)

0 leden en 1 gast bekijken dit topic.

Offline slimpie

  • Lid
  • *
  • Berichten: 97
Datum in tabel
« Gepost op: 03 januari 2016, 14:55:59 »
Ik heb een tabel met een datumveld. Het invullen doe ik via schermen die gemaakt zijn met VB2013, dat werkt allemaal goed behalve voor het datumveld. Dat moet zijn in de vorm van dd/mm/jjjj. In mijn schermen is dat allemaal ok maar als dat naar de tabel geschreven wordt dan wordt dat in eens mm/dd/jjjj. Ik denk dat de fout zit in de eigenschappen van het datumveld. Kan daar eens iemand naar kijken aub?
Windows 10 Home   NLD 64bit
Intel(R) Pentium(R) CPU G3240 @ 3.10GHz 3100
NVIDIA GeForce GTX 750 1024MB 1680 x 1050
NVIDIA High Definition Audio
AV: Avast free
FW: Windows Firewal Enabled: True

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.282
  • I've Upped my standards,now,up yours!
Re: Datum in tabel
« Reactie #1 Gepost op: 03 januari 2016, 17:06:11 »
Mij overkomt dat ook vaak. Daarom geef ik een datum in lange datumnotatie door bij het wegschrijven.
Hoe schrijf jij je datum weg?
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline slimpie

  • Lid
  • *
  • Berichten: 97
Re: Datum in tabel
« Reactie #2 Gepost op: 03 januari 2016, 17:34:41 »
dizzl bedankt voor je reactie.

Uiteindelijk wordt er sql aangemaakt zoals deze:

UPDATE t_betalingen SET t_betalingen.datum = #2/10/2015#, bedrag=575.33 WHERE id=130

Die wordt uitgevoerd en in de tabel staat dan als datum 10/02/2015. Ik zal ook eens een lange datumnotatie gebruiken, ben benieuwd.
Windows 10 Home   NLD 64bit
Intel(R) Pentium(R) CPU G3240 @ 3.10GHz 3100
NVIDIA GeForce GTX 750 1024MB 1680 x 1050
NVIDIA High Definition Audio
AV: Avast free
FW: Windows Firewal Enabled: True

Offline slimpie

  • Lid
  • *
  • Berichten: 97
Re: Datum in tabel
« Reactie #3 Gepost op: 03 januari 2016, 17:41:10 »
Nee, gewoon in de tabel wijzigen heeft geen effect, hoe en waar doe jij het precies?
Windows 10 Home   NLD 64bit
Intel(R) Pentium(R) CPU G3240 @ 3.10GHz 3100
NVIDIA GeForce GTX 750 1024MB 1680 x 1050
NVIDIA High Definition Audio
AV: Avast free
FW: Windows Firewal Enabled: True

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.282
  • I've Upped my standards,now,up yours!
Re: Datum in tabel
« Reactie #4 Gepost op: 03 januari 2016, 18:13:00 »
Private Sub cmdUpdateRecord_Click()
   Dim strSQL As String
   'strSQL = "UPDATE t_betalingen SET t_betalingen.datum = #2/10/2015#, bedrag=575.33 WHERE id=130"
   'Wordt:
   strSQL = "UPDATE t_betalingen SET t_betalingen.datum = #" & ConverteerNaarLang("2/10/2015") & "#, bedrag=575.33 WHERE id=130"
End Sub


Private Function ConverteerNaarLang(pDatum As String) As String
'2/10/2015
  Dim Dag, Maand, Jaar As String
  Dim PlaatsVanDeSlash As Integer
  Dim LangeMaand As String
  PlaatsVanDeSlash = InStr(1, pDatum, "/")

  Dag = Left(pDatum, PlaatsVanDeSlash - 1)
  Maand = Mid(pDatum, PlaatsVanDeSlash + 1, 2)
  Jaar = Mid(pDatum, PlaatsVanDeSlash + 4, 4)

 
  Select Case Maand
    Case 1
        LangeMaand = "Jan"
    Case 2
        LangeMaand = "Feb"
    Case 1
        LangeMaand = "Mar"
    Case 1
        LangeMaand = "Apr"
    Case 1
        LangeMaand = "May"
    Case 1
        LangeMaand = "Jun"
    Case 1
        LangeMaand = "Jul"
    Case 1
        LangeMaand = "Aug"
    Case 1
        LangeMaand = "Sep"
    Case 1
        LangeMaand = "Oct"
    Case 1
        LangeMaand = "Nov"
    Case 1
        LangeMaand = "Dec"
       
  End Select
   ConverteerNaarLang = Dag & "/" & LangeMaand & "/" & Jaar
 
 
End Function
« Laatst bewerkt op: 03 januari 2016, 19:00:46 door dizzl »
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline slimpie

  • Lid
  • *
  • Berichten: 97
Re: Datum in tabel
« Reactie #5 Gepost op: 05 januari 2016, 11:54:08 »
dizzl bedankt voor je oplossing, het is gelukt.

Ik heb wel enkele aanpassingen moeten doen:
VB2013 kent LEFT niet, ik heb het moeten vervangen door: Dag = pDatum.Substring(0, PlaatsVanDeSlash - 1)
En keer "Case 1" was genoeg geweest, was dat om te controleren of ik het wel gebruikte? Ik heb ondertussen de maanden ook in het Nederlands gezet want ik gebruik een Nederlandse ACCESS. Ik heb wel niet gecontroleerd of Engelse maanden ook werkte.

Nog eens fel bedankt.
Windows 10 Home   NLD 64bit
Intel(R) Pentium(R) CPU G3240 @ 3.10GHz 3100
NVIDIA GeForce GTX 750 1024MB 1680 x 1050
NVIDIA High Definition Audio
AV: Avast free
FW: Windows Firewal Enabled: True

 


www.combell.com