if noget findes så skriv den findes

er "prodcode" ikke primær nøgle ?? så skulle den jo ikke kunne gode det..

nej det er den ikke og det skal den heller ikke være.

okay, så må du ind og og lede efter prodcode før du ligger denne ind...

Altså først et DB kald med "Select * From prodList where prodcode =" & Request.form("prodcode")....

også
if(rs == null) // eller hvordan man nu tjekker om der findes noget i det recordset,kan ikke lige huske VB længere, men hvis der ikke er noget i recordsettet går du ind og rs.addNew...

hmm den må jeg have lidt mere ud i pap (text)

det nemmeste er vel at rette feltet til unikt i access...

if not RS.EOF then
    response.write ("Findes allerede")
end if

steffan ??

hvis jeg skriver en prodcode som findes får jeg en fejl.

De ønskede ændringer af tabellen blev ikke gennemført, fordi de ville give dublerede værdier i indekset, den primære nøgle eller relationen. Rediger dataene i det eller de felter, der indeholder dublerede data, fjern indekset, eller omdefiner indekset, så dublerede indtastninger tillades, og forsøg igen.

<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db.mdb") & ";UID=admin;PWD=;"

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From prodList where prodcode =" & Request.form("prodcode")    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic   
   
if RS.EOF then

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From prodList"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic   
      rs.AddNew
      rs("prodcode") = Request.form("prodcode")
      rs("prodname") = Request.form("prodname")
      rs("proddesc") = Request.form("proddesc")
      rs("prodprice") = Request.form("prodprice")
        rs.Update

    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing
else
Response.Write("Findes alledere :)")
end if
%>

den skal checke om den prodcode som kommer fra formen, findes, hvis den gør, så sig det.

noget i den stil der.. jeg er ikke så skide go til VB

Slut på sætning var ventet
/flamingo_asp/prodadd1.asp, line 24, column 81
strSQL = "Select * From prodList where prodcode =" & Request.form("prodcode") rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic


linie 24
strSQL = "Select * From prodList where prodcode =" & Request.form("prodcode")    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

ja du skal nok lige klikke enter så den kommer ned på en ny linie....


strSQL = "Select * From prodList where prodcode =" & Request.form("prodcode")

rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][ODBC Microsoft Access-driver] Datatyperne stemmer ikke overens i kriterieudtrykket.
/flamingo_asp/prodadd1.asp, line 25

linie 25 er rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

ja nu står det 2 steder :) ... er prodcode et tal eller tekst ?

tekst

strSQL = "Select * From prodList where prodcode ='" & Request.form("prodcode") & "'"

sådan ........nice

dvs det virker ?

jeg har den samme bare i delete, hvis jeg hæver point, er du så frisk på den også?

ja, det gjorde

kom bare med den her... sidder her kun for at fordrive tiden... fuck de points :).. men jeg er altså ikke skide godt til asp, arbejder mest med C# asp.net

ok her kommer en prodcode fra en form, hvor efter den bliver slettet i den kode du ser her.
den skal så sige hvis den koden man har skrevet ikke findes.

<%
  Dim Conn, dbDelete, rs
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db.mdb") & ";UID=admin;PWD=;"    
    dbDelete= "DELETE from prodlist where prodcode = '" & (Request.Form("prodcode"))& "' "         
    Set rs = Conn.Execute(dbDelete)

%>

hmmm vi gør det bare på samme lidt latterlige måde .. jeg ved nemlig ikke om rs. som en executenonquery i C# har en metode der returnerer rows affected. .... hold on..

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db.mdb") & ";UID=admin;PWD=;"

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From prodList where prodcode ='" & Request.form("prodcode")&"'"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic   
   
if RS.EOF then

  Dim Conn, dbDelete, rs
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db.mdb") & ";UID=admin;PWD=;"   
    dbDelete= "DELETE from prodlist where prodcode = '" & (Request.Form("prodcode"))& "' "         
    Set rs = Conn.Execute(dbDelete)

else
Response.Write("Findes ikke :)")
end if
%>

tæt på

måtte smide disse i toppen

Const adOpenKeyset = 1
Const adLockOptimistic = 3
dim strSQL

men den gør det ommvendt, hvis den findes, skrive den "Findes ikke :)"
og hvis den ikke findes, så sletter den (ikke noget)

skriv lige den nye kode så..

<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
dim strSQL


Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db.mdb") & ";UID=admin;PWD=;"

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From prodList where prodcode ='" & Request.form("prodcode")&"'"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic   
   
if RS.EOF then
Response.Write("Findes ikke :)") 
else
Dim Conn, dbDelete, rs
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db.mdb") & ";UID=admin;PWD=;"   
    dbDelete= "DELETE from prodlist where prodcode = '" & (Request.Form("prodcode"))& "' "         
    Set rs = Conn.Execute(dbDelete)


end if
%>

ryd selv lidt op i det det :)

yes yes nice.....virker

takker for hjælpen

så lidt :)