ASP und SQL

  • #1
K

Kornovum

Neues Mitglied
Themenersteller
Dabei seit
08.05.2005
Beiträge
4
Reaktionspunkte
0
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
 
Thema:

ASP und SQL

ANGEBOTE & SPONSOREN

Neueste Themen

Statistik des Forums

Themen
113.840
Beiträge
707.963
Mitglieder
51.494
Neuestes Mitglied
Flensburg45
Oben