timestamp

[ath]

Hallo,

wie schreibe und lese ich ein SQL-Datenbankfeld vom Typ timestamp. Eine Datentyp scheint es ja dafür in Purebasic nicht zu geben und der Schreibversuch mittels:

Code: Alles auswählen

statement.s = "UPDATE myTable set anldat = {ts '2010-11-11 00.00.00.000'} where key = " + chr(39) + myVar + chr(39)
DatabaseUpdate(1, statement)

funktioniert leider nicht. In der Managementkonsole (von SQL) funktioniert es.

Danke und Gruß
Andreas

[Bisonte]

vielleicht DatabaseQuery() nehmen ?

[ath]

vielleicht DatabaseQuery() nehmen ?

Hi,

zum schreiben eines timestamp Feldes? Wohl kaum. Das lesen eines timestamp Feldes mittels DatabaseQuery macht aber auch Schwierigkeiten bzw. das Übertragen in eine Variable. Es ist kein Blob, Double, Float, Long oder Quad. GetDatabaseString liefert ein leeres Element.

Gruß
Andreas

[ts-soft]

Es wird wohl ein Long sein! Zum lesen und schreiben dann die Date() Lib von PB nutzen.

Gruß
Thomas

[mk-soft]

Muss glaube ich noch in Rauten '#datum#' gesetzt werden...

Code: Alles auswählen

;-TOP
; Kommentar     : Formatumwandlung von Datum nach SQL Datum
; Author        : mk-soft
; Second Author :
; Datei         : DateHelper.pb
; Version       : 1.01
; Erstellt      : 2007.03.03
; Geändert      :
;
; Compilermode  :
;
; ***************************************************************************************

; Import "oleaut32.lib"
;  VarBstrFromDate(dblln.d, lcid.l, dwFlags.l, *pbstrOut)                                                 
;  VarDateFromStr(strIn.p-unicode, lcid.l, dwFlags, *pdateOut)
; EndImport

Structure udtDatum
  StructureUnion
    dblVal.d
    lVal.l[2]
  EndStructureUnion
EndStructure

Procedure.l VarBstrFromDate(dblln.d, lcid.l, dwFlags.l, *pbstrOut)
  Protected datum.udtDatum, low.l, hight.l
  
  datum\dblVal = dblln
  
  ProcedureReturn VarBstrFromDate_(datum\lVal[0], datum\lVal[1], lcid.l, dwFlags.l, *pbstrOut)
  
EndProcedure

Procedure VarDateFromStr(strIn.s, lcid.l, dwFlags, *pdateOut)
  ProcedureReturn VarDateFromStr_(strIn.s, lcid.l, dwFlags, *pdateOut)
EndProcedure

; ***************************************************************************************

Procedure.s SqlDateStrFromDate(date.d)

  Protected result.s, datum.s, *pbstrOut
 
  If VarBstrFromDate(date, $0407, #LOCALE_NOUSEROVERRIDE, @*pbstrOut) <> #S_OK
    ProcedureReturn "0000-00-00 00:00:00"
  EndIf
 
  result = PeekS(*pbstrOut,#PB_Any, #PB_Unicode)
  SysFreeString_(*result)
  If Len(result) <= 8
    ProcedureReturn "0000-00-00 00:00:00"
  EndIf
 
  datum = Mid(result, 7, 4) + "-"
  datum + Mid(result, 4, 2) + "-"
  datum + Mid(result, 0, 2) + "-"
  datum + Mid(result, 12, 8)
  If Len(datum) < 12
    datum + "00:00:00"
  EndIf
  ProcedureReturn datum
 
EndProcedure

; ***************************************************************************************

Procedure.s SqlDateStrFromDateStr(date.s)

  Protected datum.d, result.s

  VarDateFromStr(date, 0, #LOCALE_NOUSEROVERRIDE, @datum)
  Debug datum
  result = SqlDateStrFromDate(Datum)
  ProcedureReturn result
 
EndProcedure

; ***************************************************************************************

Procedure.d DateFromDateStr(date.s)

  Protected datum.d, result.s

  VarDateFromStr(date, 0, #LOCALE_NOUSEROVERRIDE, @datum)
  ProcedureReturn datum
 
EndProcedure

; ***************************************************************************************

; Test

datum.d = 23974.625

Debug SqlDateStrFromDate(datum) 
Debug SqlDateStrFromDateStr("8/20/65 3:00 PM")
Debug SqlDateStrFromDateStr("20.8.2009 15:00")
Debug SqlDateStrFromDateStr("20-08-65 15:00")
Debug DateFromDateStr("2009.08.20 15:00:00")

FF

[ts-soft]

Lt. Doku MySQL wird dasselbe Format wie PB oder Unix verwendet, oder bin ich da im Irrtum?

Der obrige Code bezieht sich wohl auf propitäres MS zeuchx?

[ath]

Der obrige Code bezieht sich wohl auf propitäres MS zeuchx?

Was meinst Du? Die {ts '...} Anweisung? Das ist Standard-SQL und funzt im MS-SQL genauso wie im MySQL.

Gruß
Andreas

[ts-soft]

Der obrige Code bezieht sich wohl auf propitäres MS zeuchx?

Was meinst Du? Die {ts '...} Anweisung? Das ist Standard-SQL und funzt im MS-SQL genauso wie im MySQL.

Gruß
Andreas

Ich meine den Code von mk-soft. Der ist doch Windows-Only. SQL ist aber IMHO plattformübergreifend.
Gibts aber anscheinend verschiedene Timestamps, gottseidank programmiere ich keine Datenbanken