Hallo Leute!
Frohes Neues.

Ich habe die folgende Zwei TAbellen .



$query="SEELECT Tabelle1.ID,Tabelle1.NEID , Tabelle2.REfID,Tabelle2.NEID From Tabelle1 Left JOIN On Tabelle1.ID= Tabelle2.REfID"
$sth = $dbh->prepare($query) or die "Querry Error prepare: $DBI::errstr\n";
$ds = $sth->execute or die "Querry Error execute: $DBI::errstr\n";
if (($newdata ->{ID}) eq ($newdata->{Data_RefID}))
{
if (($newdata->{NEID}) eq ($newdata-->{$NEID})){
print "Update\n";

der problem ist beim Vergleich von der Datei " NEID " von Beiden Tabellen in der Letzte Zeile oen gezeigt !!!!
Kann ich vielleicht an Tabelle1.NEID eine Variable Zuweisen , die ich vielleicht weiter im Code nutze??

Hat jemand eine idee?

Danke im Voraus
}

[sql]SELECT Tabelle1.ID,Tabelle1.NEID , Tabelle2.REfID,Tabelle2.NEID AS NEID2 From Tabelle1 Left JOIN On Tabelle1.ID = Tabelle2.REfID[/sql]

Hallo,

ich bekomme die folgende Fehler
[CODE]
#Bareword "NEID1" not allowed while "strict subs" in use at ./test2.pl line 82.

ich weiss ja nicht woran es liegt.

Danke.

Hm, du machst einen Execute in der Datenbank, machst damit nachher aber nichts mehr?
Verstehe ich dich richtig, dass du NEID aus dem Ergebnis deiner Datenbankabfrage haben willst?

PS: Kleine Bitte am Rande: bitte setz deinen Code in Code-Tags, dann wirds leichter lesbar und übersichtlicher ;)

Hm, also NEID1 sehe ich in dem geposteten Code überhaupt nicht. Du solltest schon den passenden Ausschnitt posten, damit wir sehen, was du genau machst...

ich ím SQL Statement eine von den Beiden NEIDS umbenenen "AS NEID1" und ich will gneau nach Execute Beide NEIDs"TAbelle1.NEID" und Tabelle2:NEID" VErgleichen und zwar wie Folgend:
[CODE]
if (($newdata->{NEID}) eq (NEID1)){
#print "Update\n";
}

aber es liefer mir die obeigen Fehler !!

Danke

der genauere Skript ist wie Folgend
------------------------------------------------------------
[CODE]
$query="SEELECT Tabelle1.ID,Tabelle1.NEID , Tabelle2.REfID,Tabelle2.NEID AS NEID1 From Tabelle1 Left JOIN On Tabelle1.ID= Tabelle2.REfID"
$sth = $dbh->prepare($query) or die "Querry Error prepare: $DBI::errstr\n";
$ds = $sth->execute or die "Querry Error execute: $DBI::errstr\n";
if (($newdata ->{ID}) eq ($newdata->{Data_RefID}))
{
if (($newdata->{NEID}) eq ($newdata-->{NEID1})){



DANKE
print "Update\n";

Das SQL ist unabhängig von Perl. Das heißt, Du kannst im SQL-Statement soviel "AS"'s haben, um Variablen für Dein Perl-Programm musst Du Dich selbst kümmern...

nour, du musst den code nicht zweimal posten! noch dazu mit dem SEELECT!
das ist kein gültiges SQL. vielleicht gibst du dir einfach mal ein bisschen mühe,
wenn du hier hilfe haben willst.
ich habe dir die lösung als SQL gepostet, und wenn du nicht weisst, wo du
das einbauen sollst, dann zweifle ich, ob du überhaupt kapierst, was dein script macht.

zudem ist der vergleich if (($newdata ->{ID}) eq ($newdata->{Data_RefID}))
ziemlich hirnig, denn du machst darauf ja einen JOIN. vertraust du
deiner datenbank nicht oder was?