-- Moved from [aspgerman] to [aspdedatabase] by [EMAIL PROTECTED] 
<[EMAIL PROTECTED]> --

This is a multi-part message in MIME format.

------=_NextPart_000_005B_01C1DC96.D680E0A0
Content-Type: text/plain;
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Hallo Liste,

Sorry das ich als ASP-Anf=E4nger hier poste, aber das folgende Problem =
nervt mich seit zwei Tagen und das Listenarchiv hat mich auch nicht so =
richtig weitergebracht.

Hier mein Problem:
Ich habe eine Dbase Datenbank (mit mehreren Tabellen) und eine Access =
2000 Datenbank. Alle Tabellen, die ich abfragen will, haben mehr oder =
weniger den gleichen Prim=E4rschl=FCssel - es l=E4uft aber immer darauf =
hinaus, dass die Artikelnummer in allen Tabellen als Prim=E4rschl=FCssel =
stehen.

Ich habe es auch geschafft, zwei Tabellen aus der Dbase-Datenbank =
abzufragen (als Argument ein Querystring, der =FCber die URL mitgegeben =
wird; also:Der User macht eine Eingabe und bekommt das Ergebnis auf der =
n=E4chsten Seite als Abfrageergebnis in einer Tabelle ausgeworfen)
Nur die MENGE aus AUF_POST kriege ich einfach nicht ausgegeben. Die =
scheint auch nicht=20

Hier der Code der Empf=E4nderdatei:

<%@ Language=3D"VBScript" %>
<% Option Explicit %>
<%
Dim strShapeCmd, cn, rs
Dim chapter, theDate

strShapeCmd =3D "SHAPE { SELECT AUFTRAGSNR,ARTIKELBEZ,ARTNR,MENGE FROM =
AUF_POST WHERE AUFTRAGSNR=3D'"&REQUEST.QUERYSTRING("AUFTRAGSNR")&"' }  "
strShapeCmd =3D strShapeCmd & "APPEND ({ SELECT =
HAUPTGRUPP,ARTNR,ART_GRUPPE,KENNZEICH FROM ARTIKEL } "
strShapeCmd =3D strShapeCmd & "RELATE ARTNR TO ARTNR) AS rsArticles"

Set cn =3D CreateObject("ADODB.Connection")
Set rs =3D CreateObject("ADODB.Recordset")
cn.Provider =3D "MSDataShape"
cn.Open "DSN=3Dartikel"

'---Dann folgt der Tabellanaufbau zur Ausgabe
'---Dann folgt:

rs.Open strShapeCmd, cn
Response.Write "<table border=3D1><colgroup><col width=3D'50'><col =
width=3D'350'><col width=3D'50'><col width=3D'80'></colgroup>"
While Not rs.EOF
    Set chapter =3D rs("rsArticles").Value
    While Not chapter.EOF
      theDate =3D chapter("HAUPTGRUPP")                        =
HAUTPGRUPP=3DArtikelnummer in den Dbase-Tabellen
      Response.Write "<td align=3Dcenter>"
      Response.Write chapter("HAUPTGRUPP")
      Response.Write "</td><td>"
      Response.Write chapter("KENNZEICH")                   =
KENNZEICH=3DArtikelbeschreibung/Kurztext
      Response.Write "&nbsp;"
      Response.Write "</td><td align=3Dcenter>"
      Response.Write chapter("ART_GRUPPE")               =
ART_GRUPPE=3DWarengruppe
      Response.Write "</td>"

'---Soweit klappt es auch
'---Aber ab hier ist mein Problem

    Response.Write "<td align=3Dcenter>"
    Response.Write chapter("Menge")                            MENGE aus =
AUF_POST scheint nicht im chapter zu sein - wieso???
    Response.Write "</td>"

'---Ab hier ist wieder alles in Ornung

      chapter.MoveNext
    Wend
    rs.MoveNext
    Response.Write "</tr>"
Wend

Function ZeroPad(theString)
    If Len(theString) =3D 1 Then
        theString =3D "0" & theString
    End If
    ZeroPad =3D theString
End Function

Response.Write "</table></font>"
Response.Write "</html>
| [aspdedatabase] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdedatabase/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdedatabase.asp
</BODY>"
%>

Wie bekomme ich es hin, das auch MENGE aus AUF_POST im chapter =EDst? =
Muss ich daf=FCr ein eigenes machen? Und wenn, wie krieg ich dann die =
Relation zur Auftragsnummer (Eingabe des Users welche =FCbergeben wird?)
Vielen Dank schon mal!
Gru=DF
Andr=E9

------=_NextPart_000_005B_01C1DC96.D680E0A0
Content-Type: text/html;
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.50.4912.300" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV>
<DIV><FONT face=3DArial size=3D2>Hallo Liste,</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>Sorry das ich als ASP-Anf=E4nger hier =
poste, aber das=20
folgende Problem nervt mich seit zwei Tagen und das Listenarchiv hat =
mich auch=20
nicht so richtig weitergebracht.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>Hier mein Problem:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Ich habe eine Dbase Datenbank (mit =
mehreren=20
Tabellen) und eine Access 2000 Datenbank. Alle Tabellen, die ich =
abfragen will,=20
haben mehr oder weniger den gleichen Prim=E4rschl=FCssel - es l=E4uft =
aber immer=20
darauf hinaus, dass die Artikelnummer in allen Tabellen als =
Prim=E4rschl=FCssel=20
stehen.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>Ich habe es auch geschafft, zwei =
Tabellen aus der=20
Dbase-Datenbank abzufragen (als Argument ein&nbsp;Querystring, der =
=FCber die URL=20
mitgegeben wird; also:Der User macht eine Eingabe und bekommt das =
Ergebnis auf=20
der n=E4chsten Seite als Abfrageergebnis in einer Tabelle=20
ausgeworfen)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Nur die MENGE aus AUF_POST kriege ich =
einfach nicht=20
ausgegeben. Die scheint auch nicht </FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>Hier der Code der =
Empf=E4nderdatei:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>&lt;%@ Language=3D"VBScript" =
%&gt;<BR>&lt;% Option=20
Explicit %&gt;<BR>&lt;%<BR>Dim strShapeCmd, cn, rs<BR>Dim chapter,=20
theDate</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>strShapeCmd =3D "SHAPE { SELECT=20
AUFTRAGSNR,ARTIKELBEZ,ARTNR,MENGE FROM AUF_POST WHERE=20
AUFTRAGSNR=3D'"&amp;REQUEST.QUERYSTRING("AUFTRAGSNR")&amp;"' }&nbsp;=20
"<BR>strShapeCmd =3D strShapeCmd &amp; "APPEND ({ SELECT=20
HAUPTGRUPP,ARTNR,ART_GRUPPE,KENNZEICH FROM ARTIKEL } "<BR>strShapeCmd =
=3D=20
strShapeCmd &amp; "RELATE ARTNR TO ARTNR) AS rsArticles"</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>Set cn =3D =
CreateObject("ADODB.Connection")<BR>Set rs=20
=3D CreateObject("ADODB.Recordset")<BR>cn.Provider =3D =
"MSDataShape"<BR>cn.Open=20
"DSN=3Dartikel"</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>'---Dann folgt der Tabellanaufbau zur=20
Ausgabe</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>'---Dann folgt:</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>rs.Open strShapeCmd, =
cn<BR>Response.Write=20
"&lt;table border=3D1&gt;&lt;colgroup&gt;&lt;col width=3D'50'&gt;&lt;col =

width=3D'350'&gt;&lt;col width=3D'50'&gt;&lt;col=20
width=3D'80'&gt;&lt;/colgroup&gt;"<BR>While Not =
rs.EOF<BR>&nbsp;&nbsp;&nbsp; Set=20
chapter =3D rs("rsArticles").Value<BR>&nbsp;&nbsp;&nbsp; While Not=20
chapter.EOF<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; theDate =3D=20
chapter("HAUPTGRUPP")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbs=
p;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp=
;&nbsp;&nbsp;=20
HAUTPGRUPP=3DArtikelnummer in den =
Dbase-Tabellen<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Response.Write "&lt;td =
align=3Dcenter&gt;"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Response.Write chapter("HAUPTGRUPP")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
Response.Write "&lt;/td&gt;&lt;td&gt;"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =

Response.Write=20
chapter("KENNZEICH")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp=
;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
KENNZEICH=3DArtikelbeschreibung/Kurztext<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp=
;=20
Response.Write "&amp;nbsp;"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
Response.Write=20
"&lt;/td&gt;&lt;td align=3Dcenter&gt;"<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =

Response.Write=20
chapter("ART_GRUPPE")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbs=
p;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
ART_GRUPPE=3DWarengruppe<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
Response.Write=20
"&lt;/td&gt;"</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>'---Soweit klappt es auch</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>'---Aber ab hier ist mein =
Problem<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp;&nbsp; Response.Write =
"&lt;td=20
align=3Dcenter&gt;"<BR>&nbsp;&nbsp;&nbsp; Response.Write=20
chapter("Menge")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nb=
sp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbs=
p;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
MENGE aus&nbsp;AUF_POST scheint nicht im chapter zu sein -=20
wieso???<BR>&nbsp;&nbsp;&nbsp; Response.Write "&lt;/td&gt;"</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>'---Ab hier ist wieder alles in =
Ornung</DIV>
<DIV><BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; =
chapter.MoveNext<BR>&nbsp;&nbsp;&nbsp;=20
Wend<BR>&nbsp;&nbsp;&nbsp; rs.MoveNext<BR>&nbsp;&nbsp;&nbsp; =
Response.Write=20
"&lt;/tr&gt;"<BR>Wend</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>Function =
ZeroPad(theString)<BR>&nbsp;&nbsp;&nbsp;=20
If Len(theString) =3D 1 =
Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
theString =3D "0" &amp; theString<BR>&nbsp;&nbsp;&nbsp; End=20
If<BR>&nbsp;&nbsp;&nbsp; ZeroPad =3D theString<BR>End =
Function</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>Response.Write=20
"&lt;/table&gt;&lt;/font&gt;"<BR>Response.Write=20
"&lt;/html&gt;&lt;/body&gt;"<BR>%&gt;</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>Wie bekomme ich es hin, das auch MENGE =
aus AUF_POST=20
im chapter =EDst? Muss ich daf=FCr ein eigenes machen? Und wenn, wie =
krieg ich dann=20
die Relation zur Auftragsnummer (Eingabe des Users welche =FCbergeben=20
wird?)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Vielen Dank schon mal!</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>Gru=DF</FONT></DIV>
<DIV><FONT face=3DArial =
size=3D2>Andr=E9</FONT></DIV></DIV>
| [aspdedatabase] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdedatabase/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdedatabase.asp
</BODY></HTML>

------=_NextPart_000_005B_01C1DC96.D680E0A0--


Antwort per Email an