Avatar billede hehlers Nybegynder
30. september 2003 - 10:03 Der er 3 kommentarer og
1 løsning

Dato igen igen

Hej

Jeg har et nyhedssystem i en SQL base. Jeg har bare et problem med dato konvertering. - For det fatter jeg ikke et klap af.

De stedet hvor nyhedssystemet bliver vist har jeg god tnok fået datoen til at stå som dd-mm-yyyy, men når jeg vil opdatere basen, så kommer den med følgende fejl:
________________________________________
Microsoft OLE DB Provider for SQL Server (0x80040E07)
The conversion of a char data type to a datetime data type resulted in an out-of-range datetime value.
/dwp/admin/news_action.asp, line 205
_______________________________________

Jeg synes jeg har prøvet og prøvet, men jeg kommer ingen vegne. Kan jeg få en af jer "hajer" til at rette i koderne for mig, så det virker. ;) - Der er både en opdateringskode samt en kode til indsætning.

På forhånd mange tak. ;)

Her er koden hvor jeg opdaterer en nyhed:
_________________________________________

<%

case 2
'format(dateUp, "mm-dd-yyyy") 
'format(dateUp, "yyyy-mm-dd") 
'format(dateDn, "mm-dd-yyyy") 
'format(dateDn, "yyyy-mm-dd")

rettxt = Replace(request.form("nyhedstekst"),"'","`")
        query = "update tblNews set headerTxt='"&request.form("overskrift")&"',footerTxt='"&request.form("overskrift2")&"',name='"&request.form("navn")&"',imageUrl='"&request.form("billedeurl")&"',dateUp='"&request.form("dateUp")&"',dateDn='"&request.form("dateDn")&"',bodyTxt='"&rettxt&"' WHERE ID=" & id
    DBConn.execute(Query)
Response.redirect("newslist.asp")   
case  3
    query = "delete from tblNews where ID = " & id
    DBConn.Execute(query)
  Response.redirect("newslist.asp")   
   
case 4
%>
________________________________________

Her er koden til at indsætte:
________________________________________
<%
case 5

      query = "insert into tblNews (headerTxt,footerTxt,bodyTxt,name,imageUrl,dateUp,dateDn) values ('"&request.form("overskrift_in")&"','"&request.form("overskrift2_in")&"','"&request.form("nyhedstekst_in")&"','"&request.form("navn_in")&"','"&request.form("billedeurl_in")&"','"&request.form("datoop_in")&"','"&request.form("datoned_in")&"')"
      DBConn.execute(Query)
    Response.redirect("newslist.asp")       
'case else
  'Response.write("Denne side kan ikke bruges denne måde")   
end select

%>
Avatar billede cesil Nybegynder
30. september 2003 - 10:15 #1
formattet på din dato skal være yyyymmdd når du arbejder med sql database.
Du kan bruge den her funktion til at få lavet det rigtige format.

Function ConvertToSqlDate(dato)
    dim SQLYear,SQLMonth,SQLDay
    SQLYear = Year(dato)
    SQLMonth = Month(dato)
    SQLDay = Day(dato)
    if SQLDay<10 then
        SQLDay = 0&SQLDay
    end if
    if SQLMonth<10 then
        SQLMonth = 0&SQLMonth
    end if
    ConvertToSqlDate = SQLYear&SQLMonth&SQLDay
End Function

fx
ConvertToSqlDate(request.form("dateUp"))
Avatar billede hehlers Nybegynder
30. september 2003 - 10:20 #2
Okey, - men da jeg jeg ikke er den store ørn synes jeg det virker lidt forvirrende. - Har du mulighed for at indsætte det i koden, så jeg kan se how et works? ;)
Avatar billede cesil Nybegynder
30. september 2003 - 10:40 #3
prøv det her

<%
Function ConvertToSqlDate(dato)
    dim SQLYear,SQLMonth,SQLDay
    SQLYear = Year(dato)
    SQLMonth = Month(dato)
    SQLDay = Day(dato)
    if SQLDay<10 then
        SQLDay = 0&SQLDay
    end if
    if SQLMonth<10 then
        SQLMonth = 0&SQLMonth
    end if
    ConvertToSqlDate = SQLYear&SQLMonth&SQLDay
End Function


case 2
'format(dateUp, "mm-dd-yyyy") 
'format(dateUp, "yyyy-mm-dd") 
'format(dateDn, "mm-dd-yyyy") 
'format(dateDn, "yyyy-mm-dd")

rettxt = Replace(request.form("nyhedstekst"),"'","`")
        query = "update tblNews set headerTxt='"&request.form("overskrift")&"',footerTxt='"&request.form("overskrift2")&"',name='"&request.form("navn")&"',imageUrl='"&request.form("billedeurl")&"',dateUp='"&ConvertToSqlDate(request.form("dateUp"))&"',dateDn='"&ConvertToSqlDate(request.form("datedn"))&"',bodyTxt='"&rettxt&"' WHERE ID=" & id
    DBConn.execute(Query)
Response.redirect("newslist.asp")   
case  3
    query = "delete from tblNews where ID = " & id
    DBConn.Execute(query)
  Response.redirect("newslist.asp")   
   
case 4
%>
________________________________________

Her er koden til at indsætte:
________________________________________
<%
case 5

      query = "insert into tblNews (headerTxt,footerTxt,bodyTxt,name,imageUrl,dateUp,dateDn) values ('"&request.form("overskrift_in")&"','"&request.form("overskrift2_in")&"','"&request.form("nyhedstekst_in")&"','"&request.form("navn_in")&"','"&request.form("billedeurl_in")&"','"&ConvertToSqlDate(request.form("dateop_in"))&"','"&ConvertToSqlDate(request.form("datoned_in"))&"')"
      DBConn.execute(Query)
    Response.redirect("newslist.asp")       
'case else
  'Response.write("Denne side kan ikke bruges denne måde")   
end select

%>
Avatar billede hehlers Nybegynder
30. september 2003 - 10:50 #4
Tusind tusind tak, - det var pænt af dig cesil. ;)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester