DTPicker vil ikke som jeg

Dim Dag As Single
Dim Mdr As Single
Dim Year As Single
Dag = DTPicker1.Day
Mdr = DTPicker1.Month
Year = DTPicker1.Year
Dato = Format$(Dag, "00") & Format$(Mdr, "00") & Format$(Year, "0000")

Benny.Tordrup>>
I virkeligheden bør udtrykket vel vendes om for altid at blive tolket korrekt:

Dato = Format$(Year, "0000") & Format$(Mdr, "00") & Format$(Dag, "00")

Eller er det kun SQL Server der oprerer med den syntaks?

Benny tordrup>> jeg takker for du gad at rette mine høcker koder
Men Jeg kan stadig ikke tilføje den til databasen, For stadiig fejlen

[Microsoft][ODBC Microsoft Access-driver] Datatypen stemmer ikke overens i kriterieudtrykket.

Prøv dette

Dato = Format$(Year, "0000") & "/" & Format$(Mdr, "00") & "/" & Format$(Dag, "00")

OCP. Jeg prøver lige

Men jeg ved ikke om i kan læse det ud af fejlmeddelsen, Men jeg bruger SQL mod min Access DB

MC

Hurraaaaa Og det var danmark og det ...... Godt så

Men nu virker det

Private Sub Command1_Click()
Dim Dag As Single
Dim Mdr As Single
Dim Year As Single
Dag = DTPicker1.Day
Mdr = DTPicker1.Month
Year = DTPicker1.Year
Dato = Format$(Year, "0000") & "/" & Format$(Mdr, "00") & "/" & Format$(Dag, "00")
Main.Label12 = Dato
Set MyConn = CreateObject("ADODB.Connection")
MdbFilePath = "c:\store\db.mdb"
MyConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";"
SQL_query = "Insert into Enhed (Kategori, Navn, Placering, Garenti, User, Kommentare, Indkobt) VALUES ('" + Combo1.Text + "','" + Text2.Text + "','" + Text3.Text + "','" + Text5.Text + "','" + Text6.Text + "','" + Text7.Text + "','" + Dato + "')"
MyConn.Execute (SQL_query)
Me.Hide
Main.Show

End Sub

Jeg vil mene at i skal dele pointene.
Hvad siger i til det
MC

mc.lucifer >> Det er kun SQL Server, der bruger den syntax (AFAIR). Desuden skal du have datokonstanter omkranset af #, når du bruger Access

Så skidt da ;-)

Benny>>> den forstod jeg ikke lige # Hvor

MC

Al min erfaring er, at datokonstanter (2002/11/15) skal omkranses af # således:

#2002/11/15#

Det er rigtigt nok hvad Benny siger, MEN det virker altså alligevel i dette tilfælde.

Fra Access' hjælpefil:

Date variables are stored as IEEE 64-bit (8-byte) floating-point numbers that represent dates ranging from 1 January 100 to 31 December 9999 and times from 0:00:00 to 23:59:59. Any recognizable literal date values can be assigned to Date variables. Date literals must be enclosed within number signs (#), for example, #January 1, 1993# or #1 Jan 93#.

Ja det virker
Men jeg kan ikke lige se hvor jeg skal smide de havelåger
Dato = #Format$(Year, "0000") & "/" & Format$(Mdr, "00") & "/" & Format$(Dag, "00")# <---- Her ???

MC

SQL_query = "Insert into Enhed (Kategori, Navn, Placering, Garenti, User, Kommentare, Indkobt) VALUES ('" + Combo1.Text + "','" + Text2.Text + "','" + Text3.Text + "','" + Text5.Text + "','" + Text6.Text + "','" + Text7.Text + "',#" + Dato + "#)"

Dato = "#" & Format$(Year, "0000") & "/" & Format$(Mdr, "00") & "/" & Format$(Dag, "00") & "#"

Ok, Fjong,

Takker mang gange for hjælpe

MC