Avatar billede software Nybegynder
04. april 2002 - 17:12 Der er 10 kommentarer og
1 løsning

Ens kolonner i access

Jag har to kolonner (tid og dato) i en tabel (tabel1). Jeg har lavet en side med en formular med to tekstfelter(tid og dato), som skal udfyldes.

Hvis der i de to kolonner f.eks står: 9:00 og 04-04-2002, og netop de to informationer indtastes i formularen, så skal der komme en meddelse, som siger at netop det tidspunkt på den dato er optaget.

Som jeg har lavet det nu, tilføjes det bare til databasen, så der står 9:00 og 04-04-2002 to gange.

Håber nogen kan hjælpe...
Avatar billede gryn Nybegynder
04. april 2002 - 17:18 #1
Bruger de "post" eller "get"?
Avatar billede software Nybegynder
04. april 2002 - 17:19 #2
Jeg bruger post
Avatar billede gryn Nybegynder
04. april 2002 - 17:20 #3
ok... kigger på det
Avatar billede gryn Nybegynder
04. april 2002 - 17:24 #4
Prøv med dette. OBS:Jeg har ikke testet det.
<%
Function DBhent(SQL, DBnavn)
Dim consub
Set consub = Server.CreateObject("ADODB.Connection")
consub.CommandTimeout = 30
consub.ConnectionTimeout = 20
consub.Open "DBQ=" & Server.Mappath(DBnavn) & ";Driver={Microsoft Access Driver (*.mdb)}"
Dim objDBhent
Set objDBhent = Server.CreateObject("ADODB.RecordSet")
objDBhent.Open SQL, consub, 3, 1
Set DBhent= objDBhent
Set objDBhent = Nothing
End Function
%>

<%
tid = request.form("tid")
dato = request.form("dato")
Set rs = DBhent("SELECT * FROM tabel1 WHERE dato = '" & dato & "' and tid = '" & tid & "' ", "dit_databasenavn")

if not rs.eof
response.redirect("fejl.HTML")
end if
%>
Avatar billede gryn Nybegynder
04. april 2002 - 17:25 #5
"dit_databasenavn" er uden .mdb
Avatar billede mickill Nybegynder
16. april 2002 - 10:37 #6
Hvis du ikke allerede har fået løst problemet, så prøv med dette:

strSQL = "SELECT * FROM tabel WHERE tid = '" & Request.Form("tid") & "' AND dato = '" & Request.Form("dato") & "';"
Set rs = connection.Execute(strSQL)
if rs.EOF OR rs.BOF then
 
  strSQL = "INSERT INTO tabel (tid,dato) VALUES ('" & Request.Form("tid") & "', '" & Request.Form("dato") & "');"
  Connection.Execute(strSQL)
else
  Response.Write "What ever"  ' eller hvad du nu kunne tænke dig
end if
Avatar billede software Nybegynder
16. april 2002 - 14:07 #7
Det virker kraftedeme....Hvad nogen point, mickill ??
Avatar billede software Nybegynder
16. april 2002 - 14:07 #8
med
Avatar billede software Nybegynder
13. maj 2002 - 14:18 #9
Du er nødt til at give et svar først.......
Avatar billede software Nybegynder
13. maj 2002 - 14:18 #10
svar
Avatar billede thomas_u Nybegynder
08. juli 2002 - 11:46 #11
Hej Mickill hva med at bruge hovedet det er jo pisse nemt
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