Checke database felt værdi inden \"insert to\"

ved å fyre av en SQL SELECT:

SQL = \"SELECT * FROM tabell WHERE kolonne LIKE \'Virksomhedsnavn\'\"
Set RS = Conn.Execute

if( RS.EOF ) then
  SQL = \"INSERT INTO ...\"
  Conn.Execute( SQL )
  response.write \"Ny post opprettet\"
else
  response.write \"Den finnes\"
end if

Du definerer databasefeltet til at være unikt. Der vil så opstå en datasbasefejl ved indsættelse af en værdi, som allerede eksisterer.
Så i tilfælde af fejl, kan du så udskrive din fejltekst.

nute:
\"WHERE kolonne\" ? Hvor kommer \"kolonne\" fra? (sorry, er lidt newbie)

kichian:
har du evt. koden til at udskrive fejlteksten i forbindelse med det unikke felt?

\'kolonne\' er navnet på din kolonne/dit felt i databasen. du har selv brukt ordet :

\"Hvordan får jeg den til at checke om det jeg indtaster i f.eks. \"Virksomhedsnavn\" allerede eksisterer i samme kolonne i databasen\"...

nute:
ah...så kolonne LIKE \'virksomhedsnavn\' =  kolonnenavnet (som er VIRK_NAVN) LIKE det navn som input formfeltet har, right?

men det skal da så ikke være i \' \' - eller?

her er min kode:

Dim myConn
Dim SQLStmt
Dim Stamdata

Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER=SQL Server;SERVER=servernavn;UID=user;PWD=kodeord;DATABASE=dbnavn;\"

SQLstmt = \"INSERT INTO Stamdata(Navn,adresse1,adresse2,postnr,Bynavn,Telefon,Telefax,Email,Kontaktperson,Brugernavn, Password) \"
SQLStmt = Sqlstmt & \"Values(\'\"&Request(\"Navn\")&\"\',\'\"&Request(\"Adresse1\")&\"\',\'\"&Request(\"Adresse2\")&\"\',\"&Request(\"Postnr\")&\",\'\"&Request(\"Bynavn\")&\"\',\'\"&Request(\"Telefon\")&\"\',\'\"&Request(\"Telefax\")&\"\',\'\"&Request(\"Email\")&\"\',\'\"&Request(\"Kontaktperson\")&\"\',\'\"&Request(\"Brugernavn\")&\"\',\'\"& pwd &\"\')\"

response.write sqlstmt
Set Stamdata = MyConn.Execute(SQLStmt)

if MyConn.Errors.Count > 0 then
myConn.Close

response.redirect \"fejl.asp\"
else
myConn.Close

---

vil sætte stor pris på hvis du kunne placere din kode ind i ovenstående kode (+10 points) :)

nei...

hvis din kolonne heter VIRK_NAVN, så skal din SQL se sånn ut:

SELECT * FROM tabell WHERE VIRK_NAVN LIKE \'Virksomhedsnavn\'

WHERE: et ord som forteller at man setter noen betingelser på sin SQL
VIRK_NAVN: den kolonnen du legger en betingelse på
LIKE: betyr at innholdet av kolonnen skal matche den streng som kommer etter LIKE, i dette tilfelle: \'virksomhedsnavn\'

det skal stå i \'\' fordi det er en streng...

jo, men \'virksomhedsnavn\' kan jo variere, alt efter hvad jeg indtaster i formfeltet \"navn\". Hvis jeg da indtaster \"Microsoft\" skal den jo tage den værdi og lede efter i kolonnen.

Dim myConn
Dim SQLStmt
Dim Stamdata

Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER=SQL Server;SERVER=servernavn;UID=user;PWD=kodeord;DATABASE=dbnavn;\"

SQLstmt = \"SELECT * FROM Stamdata WHERE Navn LIKE \'\" & Request(\"Navn\")& \"\'\"
Set RS = myConn.Execute( SQLstmt )

if( RS.EOF ) then

  SQLstmt = \"INSERT INTO Stamdata(Navn,adresse1,adresse2,postnr,Bynavn,Telefon,Telefax,Email,Kontaktperson,Brugernavn, Password) \"
  SQLStmt = Sqlstmt & \"Values(\'\"&Request(\"Navn\")&\"\',\'\"&Request(\"Adresse1\")&\"\',\'\"&Request(\"Adresse2\")&\"\',\"&Request(\"Postnr\")&\",\'\"&Request(\"Bynavn\")&\"\',\'\"&Request(\"Telefon\")&\"\',\'\"&Request(\"Telefax\")&\"\',\'\"&Request(\"Email\")&\"\',\'\"&Request(\"Kontaktperson\")&\"\',\'\"&Request(\"Brugernavn\")&\"\',\'\"& pwd &\"\')\"

  MyConn.Execute(SQLStmt)
else
  response.write Request(\"Navn\") & \" eksisterer i databasen\"
end if

/nute

Den returnerer desværre en errorpage :/

Skal måske lige sige at denne kode bliver udført på en seperat gem.asp side - hvor formkoden ligger på en login.asp side.

\"...kode bliver udført på en seperat gem.asp side - hvor formkoden ligger på en login.asp side\"...det er jo derfor du requester verdiene...

hvilken feilmelding får du ? hvilken linje henviser den til, og hva ligger det i den linje ?

Tror sgu det er et database problem - hold on

Nedenstående kode virker ikke - den opretter det samme virksomhedsnavn som er i kolonnen i forvejen :(
-----------------

SQLstmt = \"SELECT * FROM Stamdata WHERE VIRK_Navn LIKE \'\" & Request(\"Navn\")& \"\'\"
Set RS = myConn.Execute( SQLstmt )

if( RS.EOF ) then
                   
SQLstmt = \"INSERT INTO Stamdata(VIRK_Navn,adresse1,adresse2,postnr,Bynavn,Telefon,Telefax,Email,Kontaktperson,Brugernavn,Password) \"
SQLStmt = Sqlstmt & \"Values(\'\"&Request(\"VIRK_Navn\")&\"\',\'\"&Request(\"Adresse1\")&\"\',\'\"&Request(\"Adresse2\")&\"\',\"&Request(\"Postnr\")&\",\'\"&Request(\"Bynavn\")&\"\',\'\"&Request(\"Telefon\")&\"\',\'\"&Request(\"Telefax\")&\"\',\'\"&Request(\"Email\")&\"\',\'\"&Request(\"Kontaktperson\")&\"\',\'\"&Request(\"Brugernavn\")&\"\',\'\"& pwd &\"\')\"

MyConn.Execute(SQLStmt)

else

response.redirect \"fejl.asp\"
myConn.Close

end if

wait...my mistake - request(\"navn\") skulle være request(\"virk_navn\") - så virker det! :)

mange tak for besværet :)

oki...bytt ut denne linje:

if( RS.EOF ) then

med denne:

if( NOT RS.BOF OR RS.EOF ) then