Søg
Avatar billede askeb Nybegynder
27. april 2003 - 21:07 Der er 8 kommentarer og
1 løsning

ASP og tidsrøveren

Hejsan. Fra et andet spm. her på E fik jeg at vide at jeg kunn lagre now() i min database (Mysql) på denne måde:

inset således:

Function MakeDate(Format)
      Format = Replace(Format, "dd", Day(Date))
      Format = Replace(Format, "mm", Month(Date))
      Format = Replace(Format, "yyyy", Year(Date))
      Format = Replace(Format, "hh", Hour(Time))
      Format = Replace(Format, "nn", Minute(Time))
      Format = Replace(Format, "ss", Second(Time))
      MakeDate = Format
End Function

Conn.Execute("Insert Into Tabel (Dato) Values ('" & MakeDate("yyyy-mm-dd hh:nn:ss") & "'")

- udtræk således:

Set rs = Conn.Execute("Select Date_Format(Dato, '%d/%m-%Y, kl. %T') As KorrektDato From Tabel")

Response.Write rs("KorrektDato")
----------
Nu har jeg problemet at første gang jeg lagrer datoen/tiden i min database så virker det fint nok men anden og 3. osv. bliver datoen det samme som nr. 1?

Jeg kan ikke se fejlen - kan du?
Avatar billede oasen Nybegynder
27. april 2003 - 21:11 #1
Ja, du udskriver den første record hver gang.
Avatar billede oasen Nybegynder
27. april 2003 - 21:13 #2
Set rs = Conn.Execute("Select Date_Format(Dato, '%d/%m-%Y, kl. %T') As KorrektDato From Tabel")

While Not rs.EOF
  Response.Write rs("KorrektDato") & "<br>"
  rs.MoveNext
Wend
Avatar billede fangel Nybegynder
27. april 2003 - 21:17 #3
(programere kun PHP, men MySQL er jo det samme...)

du mangler en løkke til at "køre gennem" rækkerne i din database... i PHP vil det se sådan her ud
---
$rs = mysql_query("Select Date_Format(Dato, '%d/%m-%Y, kl. %T') As KorrektDato From Tabel")
while($data = mysql_fetch_array($rs)){
  print $data['KorrektDato'];
}
---

Morten
Avatar billede oasen Nybegynder
27. april 2003 - 21:17 #4
<--Klip-->
JO...nu står der rigtignok: 27/04-2003, kl. 19:01:58 Men der skulle gerne stå 27. Marts 2003...?
<--Klip-->

Det gøres således:

Set rs = Conn.Execute("Select Date_Format(Dato, '%d. %M %Y, kl. %T') As KorrektDato From Tabel")
Avatar billede askeb Nybegynder
27. april 2003 - 22:55 #5
jeg mener ikke det er fejlen: Jeg kører recordsne igennem en løkke:

<%
SQLserveradr="******"
SQLdatabase="******"   
SQLlogin="******"
SQLpassword="******"
Set cnnConn = Server.CreateObject("ADODB.Connection")
cnnConn.Open "driver={MySql};server="& SQLserveradr &";database="& SQLdatabase &";uid="& SQLlogin &";pwd="& SQLpassword

StrSQL ="SELECT * from artikler"

set rs = cnnConn.Execute(strSQL)
Set dato = cnnConn.Execute("Select Date_Format(Dato, '%d. %M %Y, kl. %T') As Dato From artikler")

do while not rs.eof

response.write "<a href=""visartikel.asp?id=" & rs("ID") & """>" & rs("overskift") & "</a>" & " | " & dato("Dato") & " af " & rs("Navn") & " | " & "<a href=""sletartikel.asp?id=" & rs("ID") & """>" & "Slet" & "</a>" & "<br>"

rs.movenext
loop

cnnConn.Close
Set cnnConn = Nothing
%>
Avatar billede askeb Nybegynder
27. april 2003 - 23:02 #6
ja, selvfølgelig...jeg looper jo kun rs og ikke dato...til alle der kommer forbi - mit script er nu:

%
SQLserveradr="******"
SQLdatabase="******"   
SQLlogin="******"
SQLpassword="******"
Set cnnConn = Server.CreateObject("ADODB.Connection")
cnnConn.Open "driver={MySql};server="& SQLserveradr &";database="& SQLdatabase &";uid="& SQLlogin &";pwd="& SQLpassword

StrSQL ="SELECT * from artikler"

set rs = cnnConn.Execute(strSQL)
Set dato = cnnConn.Execute("Select Date_Format(Dato, '%d. %M %Y, kl. %T') As Dato From artikler")

do while not rs.eof
do while not dato.eof

response.write "<a href=""visartikel.asp?id=" & rs("ID") & """>" & rs("overskift") & "</a>" & " | " & dato("Dato") & " af " & rs("Navn") & " | " & "<a href=""sletartikel.asp?id=" & rs("ID") & """>" & "Slet" & "</a>" & "<br>"

rs.movenext
dato.movenext
loop
loop

cnnConn.Close
Set cnnConn = Nothing
%>
Avatar billede askeb Nybegynder
27. april 2003 - 23:02 #7
og det virker...points!
Avatar billede oasen Nybegynder
27. april 2003 - 23:35 #8
Tak, men kombinér de to forespørgsler sådan. Det er lidt mere elegant ;)


Set rs = cnnConn.Execute("Select ID, overskrift, Navn, Date_Format(Dato, '%d. %M %Y, kl. %T') As Dato From artikler")

do while not rs.eof

response.write "<a href=""visartikel.asp?id=" & rs("ID") & """>" & rs("overskift") & "</a>" & " | " & rs("Dato") & " af " & rs("Navn") & " | " & "<a href=""sletartikel.asp?id=" & rs("ID") & """>" & "Slet" & "</a>" & "<br>"

rs.movenext
loop
Avatar billede askeb Nybegynder
28. april 2003 - 15:43 #9
ok...tak...
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Persits.Upload Af bsn i ASP 8 17/09/202611:37 I går 10:39
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
18/0919:52 Libre office skriveprogram Af Frank i Office & Kontorpakker
17/0914:55 Hente WordPad til Windows 11 Af Strawberry i Andet software
17/0911:37 Persits.Upload Af bsn i ASP
16/0918:13 oprette et installationsmedie Af Malm i Windows
16/0913:11 Adapterstik stik på ladekabel til USB-C Af ErikHg i Andet software
White papers
Flere white papers »