Avatar billede l_otto Nybegynder
31. maj 2006 - 20:09 Der er 6 kommentarer og
1 løsning

check om record allerede findes

her opretter jeg en sluttid.. jeg skal bruge lidt kode der chekker om sluttiden allerede er oprettet.. det er så feltet "sluttid" som man skal chekke

Her er koden:

<%
if request.form("send") <> "" then


Set DataConn = Server.CreateObject("ADODB.Connection")
conStr = "driver={MySQL ODBC 3.51 Driver};"& _
"server="& SQLserveradr &";"& _
"database="& SQLdatabase &";"& _
"uid="& SQLlogin &";"& _
"pwd="& SQLpassword &";"& _
"OPTION=3"
DataConn.Open conStr



strSQL = "Insert into sluttider (sluttid) values('" & Request.Form("sluttid") & "')"
DataConn.Execute(strSQL)
Alert = "Sluttid er nu oprettet "
end if
%>



<form action="opretslut.asp" method="post">

<TABLE>
<TR>
    <TD>Sluttid:  </TD>
    <TD><input type="text"  name="sluttid" size="40"></TD>
</TR>

</TABLE>

<BR><BR><center>

<input type="submit" value="Opret sluttid" name="send" class="knap" >
</form>

<BR><BR>
<FONT COLOR="#ff0000"><%=Alert%></FONT>


</TD>
  </TR>
Avatar billede ffsoft Praktikant
31. maj 2006 - 22:00 #1
strSQL = "Select sluttid From sluttider Where sluttid = '" & Request.Form("sluttid") & "';"

set rst = Conn.Execute (strSQL)

if rst.bof and rst.eof then
' sluttid findes ikke
else
' sluttid findes
end if
Avatar billede l_otto Nybegynder
31. maj 2006 - 22:07 #2
sådan ?

nu siger den ikke noget ?

strSQL = "Select sluttid From sluttider Where sluttid = '" & Request.Form("sluttid") & "';"

set rst = DataConn.Execute (strSQL)

if rst.bof and rst.eof then
' sluttid findes ikke
else
' sluttid findes
end if

strSQL = "Insert into sluttider (sluttid) values('" & Request.Form("sluttid") & "')"
DataConn.Execute(strSQL)
Alert = "Sluttid er nu oprettet "
end if
%>
Avatar billede ffsoft Praktikant
31. maj 2006 - 22:29 #3
if rst.bof and rst.eof then
  strSQL = "Insert into sluttider (sluttid) values('" & Request.Form("sluttid") & "')"
  DataConn.Execute(strSQL)
  Alert = "Sluttid er nu oprettet "
else
  Alert = "Sluttid findes "
end if
Avatar billede l_otto Nybegynder
31. maj 2006 - 22:35 #4
strSQL = "Select sluttid From sluttider Where sluttid = '" & Request.Form("sluttid") & "';"

set rst = DataConn.Execute (strSQL)

if rst.bof and rst.eof then
  strSQL = "Insert into sluttider (sluttid) values('" & Request.Form("sluttid") & "')"
  DataConn.Execute(strSQL)
  Alert = "Sluttid er nu oprettet "
else
  Alert = "Sluttid findes "
end if

så vil den have en "end" nede ved min alert ?
Avatar billede ffsoft Praktikant
01. juni 2006 - 10:37 #5
else
  Alert = "Sluttid findes "
end if
end if
Avatar billede l_otto Nybegynder
01. juni 2006 - 10:51 #6
ja så laver den ingen fejl.. men den siger heller ikke Alert = "Sluttid findes
Avatar billede l_otto Nybegynder
01. juni 2006 - 10:52 #7
Undskyld jeg er stiv ! det virker takkkkkkkkkk
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