Søg
Avatar billede acw Nybegynder
17. september 2003 - 23:37 Der er 6 kommentarer og
1 løsning

må ikke indsætte hvis tomt felt

har følg. kode

____________


Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Mode = 3      '3 = adModeReadWrite
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/db/database.mdb")
Conn.Open DSN

strSQL = "Insert into medlemmer ("

strSQL = strSQL & "Navn, "
strSQL = strSQL & "Alder, "
strSQL = strSQL & "City, "
strSQL = strSQL & "Nick, "
strSQL = strSQL & "Status, "
strSQL = strSQL & "Kontakt, "
strSQL = strSQL & "Citat, "
strSQL = strSQL & "Favgun, "
strSQL = strSQL & "Favmap, "
strSQL = strSQL & "Occupation, "
strSQL = strSQL & "email) "

strSQL = strSQL & "values( "

strSQL = strSQL & "'" & Request.Form("Navn") & "',"
strSQL = strSQL &      Request.Form("Alder") & ","
strSQL = strSQL & "'" & Request.Form("City") & "',"
strSQL = strSQL & "'" & Request.Form("Nick") & "',"
strSQL = strSQL & "'" & Request.Form("Status") & "',"
strSQL = strSQL & "'" & Request.Form("Kontakt") & "',"
strSQL = strSQL & "'" & Request.Form("Citat") & "',"
strSQL = strSQL & "'" & Request.Form("Favgun") & "',"
strSQL = strSQL & "'" & Request.Form("Favmap") & "',"
strSQL = strSQL & "'" & Request.Form("Occupation") & "',"
strSQL = strSQL & "'" & Request.Form("email") & "')"

________

Min database tillader ikke tomme felter, så skal have lavet en if-løkke der checker alle felter igennem for så at skrive hvilke felter der mangler at blive udfyldt.

Kan sagtens få det til at virke, hvis alle felter er tomme....
Avatar billede medions Nybegynder
17. september 2003 - 23:40 #1
strError = True
For Each Item In Request.Form
  If Request.Form(Item) = "" Then
    strError = False
    Exit For
  End If
Next

If strError = True Then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Mode = 3      '3 = adModeReadWrite
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/db/database.mdb")
Conn.Open DSN

strSQL = "Insert into medlemmer ("

strSQL = strSQL & "Navn, "
strSQL = strSQL & "Alder, "
strSQL = strSQL & "City, "
strSQL = strSQL & "Nick, "
strSQL = strSQL & "Status, "
strSQL = strSQL & "Kontakt, "
strSQL = strSQL & "Citat, "
strSQL = strSQL & "Favgun, "
strSQL = strSQL & "Favmap, "
strSQL = strSQL & "Occupation, "
strSQL = strSQL & "email) "

strSQL = strSQL & "values( "

strSQL = strSQL & "'" & Request.Form("Navn") & "',"
strSQL = strSQL &      Request.Form("Alder") & ","
strSQL = strSQL & "'" & Request.Form("City") & "',"
strSQL = strSQL & "'" & Request.Form("Nick") & "',"
strSQL = strSQL & "'" & Request.Form("Status") & "',"
strSQL = strSQL & "'" & Request.Form("Kontakt") & "',"
strSQL = strSQL & "'" & Request.Form("Citat") & "',"
strSQL = strSQL & "'" & Request.Form("Favgun") & "',"
strSQL = strSQL & "'" & Request.Form("Favmap") & "',"
strSQL = strSQL & "'" & Request.Form("Occupation") & "',"
strSQL = strSQL & "'" & Request.Form("email") & "')"
End If

//>Rune
Avatar billede eagleeye Praktikant
17. september 2003 - 23:41 #2
Du kan sætte din database op til at acceptere tomme felter hvis du vil det??


Eller så det bare at lave en stor if sætning i starten af side:

if Request.Form("Navn") <> "" AND _
  Request.Form("Alder") <> "" AND _

  Request.Form("email") <> "" then
    'GEM I DATABASE


else
  Response.write "Du  mangler at udfylde et felt"
end if
Avatar billede acw Nybegynder
17. september 2003 - 23:44 #3
fint nok, den bygger jeg videre på...takker
Avatar billede acw Nybegynder
17. september 2003 - 23:45 #4
eagleeye, pointen er at der ikke skal være nogle tomme felter
Avatar billede medions Nybegynder
17. september 2003 - 23:46 #5
Fairnok ;o)
Thx 4 Poinz

//>Rune
Avatar billede eagleeye Praktikant
17. september 2003 - 23:46 #6
Ok,
Du kan også overveje at lave et Javascript client side som sikre alle form felterne er udfyldt inden formen bliver send.
Avatar billede acw Nybegynder
17. september 2003 - 23:49 #7
Nu virker det, så skal jeg bare have den til at skrive hvilke felter der mangler data....
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
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
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
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
I dag 21:00 Libre Office Impress Af Frank i Andre styresystemer
I dag 11:47 VB script Af Jenshentze i Word
I dag 11:21 Popup ved opstart Af mort1 i Windows
04/0918:50 Slet lokal konto Af ErikHg i Windows
04/0916:05 Ændre tal i en celle Af xvid i Excel
White papers
Flere white papers »