ASP und SQL

Dieses Thema ASP und SQL im Forum "Webentwicklung, Hosting & Programmierung" wurde erstellt von Kornovum, 8. Mai 2005.

Thema: ASP und SQL Hallo! Ich habe ein WEB Formular und möchte die Daten die ich da eintrage in verschiedene Tabellen abspeichern. Wenn...

  1. Hallo!
    Ich habe ein WEB Formular und möchte die Daten die ich da eintrage in verschiedene Tabellen abspeichern. Wenn ich alle Daten in eine Tabelle abspeichern will ist das auch kein Problem, nur wenn ich sie in 3 verschiedene abspeichern will, macht er gar nix, deswegen denke ich mal ist irgendwas an meinem Quelltext falsch. Vielleicht könnt ihr mir ja weiterhelfen.
    Hier der quelltext

    ____________________

    Code:
    <%@ Language=VBScript %>
    
    <%
    
    myPatientenname = request.Form(Patientenname) 
    if myPatientenname <>  then
    
    myPatientenvorname = request.Form(Patientenvorname)
    if myPatientenvorname <>  then
    
    myGeburtsdatum = request.Form(Geburtsdatum)
    if myGeburtsdatum <>  then
    
    myIDNummerIIIMed = request.Form(IDNummerIIIMed)
    if myIDNummerIIIMed <>  then
    
    myIDNummerSAP = request.Form(IDNummerSAP)
    if myIDNummerSAP <>  then
    
    
    
    myHauptdiagnose = request.Form(Hauptdiagnose)
    if myHauptdiagnose <>  then
    
    mySpezifikation = request.Form(Spezifikation)
    if mySpezifikation <>  then
    
    myStadium = request.Form(Stadium)
    if myStadium <>  then
    
    myDatum = request.Form(Datum)
    if myDatum <>  then
    
    
    
    myAdenovirusIgG = request.Form(AdenovirusIgG)
    if myAdenovirusIgG <>  then
    
    myAdenovirusIgGDatum = request.Form(AdenovirusIgGDatum)
    if myAdenovirusIgGDatum <>  then
    
    myCMVIgG = request.Form(CMVIgG)
    if myCMVIgG <>  then
    
    myCMVIgGDatum = request.Form(CMVIgGDatum)
    if myCMVIgGDatum <>  then
    
    myEBVIgG = request.Form(EBVIgG)
    if myEBVIgG <>  then
    
    myEBVIgGDatum = request.Form(EBVIgGDatum)
    if myEBVIgGDatum <>  then
    
    myHSVIgG = request.Form(HSVIgG)
    if myHSVIgG <>  then
    
    myHSVIgGDatum = request.Form(HSVIgGDatum)
    if myHSVIgGDatum <>  then
    
    myVZVIgG = request.Form(VZVIgG)
    if myVZV <>  then
    
    myVZVIgGDatum = request.Form(VZVIgGDatum)
    if myVZVIgGDatum <>  then
    
    myantHBC = request.Form(antHBC)
    if myanHBC <>  then
    
    myantHBCDatum = request.Form(antHBCDatum)
    if myantHBCDatum <>  then
    
    myHBSAntigen = request.Form(HBSAntigen)
    if myHBSAntigen <>  then
    
    myHBSAntigenDatum = request.Form(HBSAntigenDatum)
    if myHBSAntigenDatum <>  then
    
    myHCVPCR = request.Form(HCVPCR)
    if myHCVPCR <>  then
    
    myHCVPCRDatum = request.Form(HCVPCRDatum)
    if myHCVPCRDatum <>  then
    
    myToxoplasmoseAntikoerper = request.Form(ToxoplasmoseAntikoerper)
    if myToxoplasmoseAntikoerper <>  then
    
    myToxoplasmoseAntikoerperDatum= request.Form(ToxoplasmoseAntikoerperDatum)
    if myToxoplasmoseAntikoerperDatum <>  then
    
    myandere = request.Form(andere)
    
    Connstr = application(DSN)-> greift auf die global.asa zu
    
    mySQLString = insert into Patientendaten (Patientenname, Patientenvorname, Geburtsdatum, IDNummerIIIMed, IDNummerSap) values (
    mySQLString = mySQLString &-> & myPatientenname &->,
    mySQLString = mySQLString &-> & myPatientenvorname &->,
    mySQLString = mySQLString &-> & myGeburtsdatum &->,
    mySQLString = mySQLString & myIDNummerIIIMed & ,
    mySQLString = mySQLString & myIDNummerSAP & , 
    
    mySQLString = insert into Hauptdiagnose (Hauptdiagnose, Spezifikation, Stadium, Datum) values (
    mySQLString = mySQLString &-> & myHauptdiagnose &->,
    mySQLString = mySQLString &-> & mySpezifikation &->,
    mySQLString = mySQLString &-> & myStadium &->,
    mySQLString = mySQLString &-> & myDatum &->,
    
    mySQLString = insert into Infektionsserologie (AdenovirusIgG, AdenovirusIgGDatum, CMVIgG, CMVIgGDatum, EBVIgG, EBVIgGDatum, HSVIgG, HSVIgGDatum, VZVIgG, VZVIgGDatum, antHBC, HBCDatum, HBSAntigen, HBSAntigenDatum, HCVPCR, HCVPCRDatum, ToxoplasmoseAntikoerper, ToxoplasmoseAntikoerperDatum, andere) values (
    mySQLString = mySQLString &-> & myAdenovirusIgG &->,
    mySQLString = mySQLString &-> & myAdenovirusIgGDatum &->,
    mySQLString = mySQLString &-> & myCMVIgG &->,
    mySQLString = mySQLString &-> & myCMVIgGDatum &->,
    mySQLString = mySQLString &-> & myEBVIgG &->,
    mySQLString = mySQLString &-> & myEBVIgGDatum &->,
    mySQLString = mySQLString &-> & myHSVIgG &->,
    mySQLString = mySQLString &-> & myHSVIgGDatum &->,
    mySQLString = mySQLString &-> & myVZVIgG &->,
    mySQLString = mySQLString &-> & myVZVIgGDatum &->,
    mySQLString = mySQLString &-> & myantHBC &->,
    mySQLString = mySQLString &-> & myantHBCDatum &->,
    mySQLString = mySQLString &-> & myHBSAntigen &->,
    mySQLString = mySQLString &-> & myHBSAntigenDatum &->,
    mySQLString = mySQLString &-> & myHCVPCR &->,
    mySQLString = mySQLString &-> & myHCVPCRDatum &->,
    mySQLString = mySQLString &-> & myToxoplasmoseAntikoerper &->,
    mySQLString = mySQLString &-> & myToxoplasmoseAntikoerperDatum &->,
    mySQLString = mySQLString &-> & myandere &->)
    
    set rsData = server.CreateObject(ADODB.RecordSet)
    rsData.Open mySQLString, Connstr
    
    set rsdata=nothing 
    response.Redirect TestEnde.html 
    'response.Write mysqlstring
    
    
    end if
    end if
    end if
    end if
    end if
    end if
    end if
    end if
    end if
    end if
    end if
    end if
    end if
    end if
    end if
    end if
    end if
    end if
    end if
    end if
    end if
    end if
    end if
    end if
    end if
    end if
    end if
    
    
    
    %>
    



    ______________________-


    Ich danke euch!!!!!!

    *Conny: Code-Tags gesetzt ;)*
     
  2. OK, ich bin nu nicht der absolute VB-Crack ;) aber mir kommt die Syntax des MySQL-Befehls etwas komisch vor ;)

    Sinngemäß sieht dein String in etwa so aus:
    Code:
    INSERT INTO tbl_name_1 (feld1, feld2, feld3) VALUES (Wert, Wert, Wert, 
    INSERT INTO tbl_name_2 (feld1, feld2, feld3) VALUES (Wert, Wert, Wert, 
    INSERT INTO tbl_name_3 (feld1, feld2, feld3) VALUES (Wert, Wert, Wert)
    
    Korrekt sollte dein MySQL String aber so aussehen:
    Code:
    INSERT INTO tbl_name_1 (feld1, feld2, feld3) VALUES (Wert, Wert, Wert);
    INSERT INTO tbl_name_2 (feld1, feld2, feld3) VALUES (Wert, Wert, Wert); 
    INSERT INTO tbl_name_3 (feld1, feld2, feld3) VALUES (Wert, Wert, Wert)
    

    gruss conny
     
  3. irgendwie funktioniert das so aber leider auch nicht.
    noch jemand eine ide???? :'(
     
  4. Kannste mal den SQL-String bevor er ausgeführt wird auf dem Bildschirm ausgeben und hier posten.
    Evtl. sieht man dann eher wo der Fehler steckt.

    Da du ja sagst, dass du die einzelnen Tabellen aktualisieren kannst, kann es theoretisch nur am String liegen.

    gruss conny
     
  5. mh...........das mag jetzt doof klingen, aber scheinbar funktioniert weiter oben schon etwas nicht, denn ich kann auch gar keinen sqlstring ausgeben...........shit.....sowas aber auch
     
  6. Wie gesagt, VB ist nicht so meine Lieblingsbeschäftigung, aber schau mal ob das bei dir funktioniert:

    Code:
    if(request.Form(Patientenname)) <>  then
      myPatientenname = request.Form(Patientenname)
    end if
    
    if(request.Form(Patientenvorname)) <>  then
      myPatientenvorname = request.Form(Patientenvorname)
    end if
    
    if(request.Form(Geburtsdatum)) <>  then
      myGeburtsdatum = request.Form(Geburtsdatum)
    end if
    
    if(request.Form(IDNummerIIIMed)) <>  then
      myIDNummerIIIMed = request.Form(IDNummerIIIMed)
    end if
    
    if(request.Form(IDNummerSAP)) <>  then
      myIDNummerSAP = request.Form(IDNummerSAP)
    end if
    
    mySQLString = insert into Patientendaten (Patientenname, Patientenvorname, Geburtsdatum, IDNummerIIIMed, IDNummerSap) values (
    mySQLString = mySQLString &-> & myPatientenname &->,
    mySQLString = mySQLString &-> & myPatientenvorname &->,
    mySQLString = mySQLString &-> & myGeburtsdatum &->,
    mySQLString = mySQLString &  & myIDNummerIIIMed & ,
    mySQLString = mySQLString &  & myIDNummerSAP & )
    
    response.Write(mySQLString)
    
    gruss conny
     
  7. ich habe das jetzt ausprobiert und auch dabei gibt er einfach gar nix aus....das kann doch nicht wahr sein oder............ :'(
    mensch was mach ich nur