tutorials.de Buch-Aktion 05/2012
ERLEDIGT
NEIN
ANTWORTEN
3
ZUGRIFFE
584
EMPFEHLEN
  • An Twitter übertragen
  • An Facebook übertragen
AUF DIESES THEMA
ANTWORTEN
  1. 10.03.05 16:52 #1
    zille zille ist offline Mitglied
    Registriert seit
    Mar 2005
    Beiträge
    14
    Hallo...ich nochmal.
    Was mache ich bei der Ausgabe bloß falsch...mir fällt es nicht auf

    <%

    Public strConn, strTabelle, objConn, objRS, sql
    strConn = "xxx"
    Set objConn = Server.CreateObject ("ADODB.Connection")
    objConn.Open strConn

    Set objRS = Server.CreateObject("ADODB.Recordset")

    sql = "select Tabellenname.Spaltenname from Tabellenname Where Spaltenname = '1'"
    objRS.Open sql, strConn, 0, 1

    Response.Write("<table border = 1 cellpadding=2 cellspacing=2>")
    Response.Write("<tr>">
    Response.Write("<th>Strasse</th>")
    Response.Write("<tr>")
    Response.Write("<td>"& rs.Fields("Strasse").Value </td>)
    Response.Write("</table>")

    objRS.Close
    Set objRS = Nothing

    objConn.Close
    Set objConn = Nothing
    %>

    Grüsse,
    Dennis
     
    Zitieren Zitieren
  2. 10.03.05 17:34 #2
    Avatar von Luzie
    Luzie Luzie ist offline
    Registriert seit
    Aug 2003
    Ort
    Arnsberg, Germany, Germany
    Beiträge
    1.066
    Hallo Dennis,

    es ist einfacher, der Sache auf den Grund zu gehen, wenn man eine Fehlermeldung hat.
    Wichtig ist auch, dass das Select-Statement gepostet wird, was nicht funktioniert.

    Setz hier mal die Variable zum Connection-String ein

    objRS.Open sql, objConn, 0, 1
     
    liebe Grüße, die Luzie
    Zitieren Zitieren
  3. 19.12.05 19:28 #3
    bankplayer bankplayer ist offline Grünschnabel
    Registriert seit
    Mar 2004
    Beiträge
    3
    Code :
    1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146

    conn.inc
<%
Dim CONN_STRING
Dim CONN_USER
Dim CONN_PASS
 
CONN_STRING = "Provider=SQLOLEDB;Data Source=bkrupp2;" _
    & "Initial Catalog=mesonic;Connect Timeout=15;" _
    & "Network Library=dbmssocn;"
 
CONN_USER = "meso"
CONN_PASS = "meso"
%>
 
table.inc
<%
Dim table, table2
table ="04we"
table2 ="04bu"
%>
 
 
date.inc
 
<%
Dim date
date="2004"
%>
 
 
 
ergebnis.asp
<BODY>
<!--#include file="./includes/conn.inc"-->
<!--#include file="./includes/date.inc"-->
<!--#include file="./includes/table.inc"-->
<%
 
Dim strSQL          'SQL command to execute
Dim objPagingConn   'The ADODB connection object
Dim objPagingRS     'The ADODB recordset object
 
 
strSQL1="(SELECT a.Guv as Guv, a.Was as Was, a.Wer as Wer, a.kto as Kto, d.c003 AS KtoBez, a.Budget as bud,a.BudgetVJ as vj, b.C015 AS Haben, b.C016 AS Soll, b.C017/1000 AS Saldo, c.C017/1000 AS SaldoVJ FROM T052"&table&" as b left  join  T052"&table2&" c on  b.c000 = c.c000 INNER JOIN Budget2003 AS a ON b.C000 = a.Kto inner join T055"&table&" d on a.kto = d.c002 where a.Guv='"& Request.QueryString("id") &"' )"
 
strSQL="SELECT c.Guv as Guv, c.Was as Was, c.Wer as Wer,c.Kto as kto, c.KtoBez as KtoBez, Sum(bud) AS bud1, Sum(vj) as budvj, Sum(Saldo) AS Saldo0, sum(SaldoVJ) SVJ FROM "&strSQL1&" AS c GROUP BY c.Guv, c.Was, c.Wer, c.kto, c.KtoBez order by a.Guv"
 
strSQL2="SELECT Sum(bud) AS bud2, Sum(Saldo) AS Saldo1, Sum(VJ) as BVJ, Sum(SaldoVJ) as SVJ  FROM "&strSQL1&" AS c "
 
' Now we finally get to the DB work...
' Create and open our connection
Set objPagingConn = Server.CreateObject("ADODB.Connection")
objPagingConn.Open CONN_STRING, CONN_USER, CONN_PASS
set objPagingRS1 = objPagingConn.Execute(strSQL2)
 
%>
 
<h3><center>Budget <%=date%> Einzeldarstellung <%=Request.QueryString("id")%> auf Kontenbasis</h3></center>
<br>
<table border='0' cellpadding='-2' width='100%' class='bcgu1 bso bw1 bgud'>    
<tr>
    <td width="12%"></td>
    <td width="26%"></td>
    <td width="8%" class='fsize8 bcgu0 bsor bw1'></td>
        <td width="10%" class='fsize8 bcgu0 bsor bw1' cellpadding='-2'><center>Budget</center></td>
        <td width="10%" class='fsize8 bcgu0 bsor bw1' cellpadding='-2'><center>Saldo</center></td>
        <td width="11%" class='fsize8 bcgu0 bsor bw1' cellpadding='-2'><center>%</center></td>
        <td width="10%" class='fsize8 bcgu0 bsor bw1' cellpadding='-2'><center>Budget VJ</center></td>
        <td width="7%" class='fsize8 bcgu0 bsor bw1' cellpadding='-2'><center>Saldo</center></td>
        <td width="10%" class='fsize8' cellpadding='-2' ><center>%</center></td>
    </tr>
<tr>
</tr>
    <tr>
    <td width="12%"></td>
    <td width="26%"></td>
    <td width="8%" class='fsize8 bcgu0 bsor bw1'></td>
        <td width="10%" class='fsize8 bcgu0 bsor bw1'><center><%=formatnumber(objPagingRS1("bud2"),1)%></center></td>
        <td width="10%" class='fsize8 bcgu0 bsor bw1'><center><%=formatnumber(objPagingRS1("Saldo1"),1)%></center></td>
    <td width="11%" class='fsize8 bcgu0 bsor bw1'><center><%if formatnumber(objPagingRS1("bud2"),2) <> 0 then response.write formatnumber(((formatnumber(objPagingRS1("Saldo1"),2)/formatnumber(objPagingRS1("bud2"),2))*100),1) else response.write formatnumber(objPagingRS1("Saldo1"),1)%> %</center></td>
        <td width="10%" class='fsize8 bcgu0 bsor bw1' cellpadding='-2' ><center><%=formatnumber(objPagingRS1("bvj"),1)%></center></td>
        <td width="7%" class='fsize8 bcgu0 bsor bw1' cellpadding='-2' ><center><%=formatnumber(objPagingRS1("Svj"),1)%></center></td>
        <td width="10%" class='fsize8 ' cellpadding='-2' ><center><%if formatnumber(objPagingRS1("bvj"),2) <> 0 then response.write formatnumber(((formatnumber(objPagingRS1("Svj"),2)/formatnumber(objPagingRS1("bvj"),2))*100),1) else response.write formatnumber(objPagingRS1("Svj"),1)%> %</center></td> 
 
    </tr>
</table>
<br>
<table border='0' cellpadding='-2' width='100%' class='bcgu1 bso bw1 '> 
<tr>
        <td colspan="3" cellpadding='-2' width="64%" class='bcgu1 bsob  bsor bw1 fsize8 bgue'><center>Budget GuV</center></td>
        <td width="12%" cellpadding='-2' class=' bcgu1 bsor bw1 fsize8 bgue'><center>Budget</center></td>
        <td width="12%" cellpadding='-2' class=' bcgu1 bsor bw1 fsize8 bgue'><center>Aktuell</center></td>
        <td width="12%" cellpadding='-2' class='fsize8 bgue'><center>Abweichung</center></td>
        <td width="12%" cellpadding='-2' class=' bcgu1 bsor bw1 fsize8 bgue'><center>Budget</center></td>
        <td width="12%" cellpadding='-2' class=' bcgu1 bsor bw1 fsize8 bgue'><center>Endstand</center></td>
        <td width="12%" cellpadding='-2' class='fsize8 bgue'><center>Auslastung</center></td>
    </tr>
    <tr>
        <td width="12%" class='fsize8 bgue bsob'>Konto</td>
        <td width="26%" class='fsize8 bgue bsob'>Was</td>
        <td width="6%" class='bcgu0 bsor bw1 fsize8 bgue bsob' >Wer</td>
        <td width="12%" class=' bcgu1 bsor bw1 fsize8 bgue bsob'><center><%=date%></center></td>
        <td width="12%" class=' bcgu1 bsor bw1 fsize8 bgue bsob'><center>TEur</center></td>
        <td width="12%" class='fsize8 bgue bsob'><center>%</center></td>
        <td width="12%" class=' bcgu1 bsor bw1 fsize8 bgue bsob'><center>Vorjahr</center></td>
        <td width="12%" class=' bcgu1 bsor bw1 fsize8 bgue bsob'><center>TEur</center></td>
        <td width="12%" class='fsize8 bgue bsob'><center>%</center></td>
 
 
 
    </tr>
<%
' Open RS
set objPagingRS = objPagingConn.Execute(strSQL)
WHILE NOT objPagingRS.EOF
%>
 
<tr>
        <td width="12%" class='fsize8'><a href=konto_umsatz.asp?id=<%=objPagingRS("kto")%> ><%=objPagingRS("kto")%></a></td>
        <td width="26%" class='fsize8'><%=objPagingRS("KtoBez")%></td>
        <td width="6%" class='bcgu0 bsor bw1 fsize8'><a href=gesamt_verantwortlicher.asp?id=<%=objPagingRS("Wer")%>><%=objPagingRS("Wer")%></a></td>
        <td width="12%" align=right style="padding-right: 15px" class='bcgu0 bsor bw1 fsize8'><%=formatnumber(objPagingRS("bud1"),0)%></td>
        <td width="12%" align=right style="padding-right: 15px" class=' bcgu1 bsor bw1 fsize8'><%=formatnumber(objPagingRS("Saldo0"),1)%></td>
        <td width="12%" align=right style="padding-right: 15px" class='fsize8'><%if formatnumber(objPagingRS("bud1"),2) <> 0 then response.write formatnumber(((formatnumber(objPagingRS("Saldo0"),2)/formatnumber(objPagingRS("bud1"),2))*100),1) else response.write formatnumber(objPagingRS("Saldo0"),1)%> %</td>
        <td width="12%" align=right style="padding-right: 15px" class='bcgu0 bsor bw1 fsize8'><%=formatnumber(objPagingRS("budVJ"),0)%></td>
        <td width="12%" align=right style="padding-right: 15px" class=' bcgu1 bsor bw1 fsize8 '><%=formatnumber(objPagingRS("SVJ"),1)%></td>
        <td width="12%" align=right style="padding-right: 15px" class='fsize8'><%if formatnumber(objPagingRS("budVJ"),2) <> 0 then response.write formatnumber(((formatnumber(objPagingRS("SVJ"),2)/formatnumber(objPagingRS("budVJ"),2))*100),1) else response.write formatnumber(objPagingRS("SVJ"),1)%> %</td>
    </tr>
 
<%
objPagingRS.MoveNext
WEND
%>
 
<tr>
        <td width="6%" class='fsize8'></td>
        <td width="26%" class='fsize8'></td>
        <td width="12%" class='fsize8'></td>
        <td width="12%" class=' bcgu0 bsor bw1 fsize8'></td>
        <td width="12%" class='fsize8'></td>
        <td width="12%" class='fsize8'></td>
<td width="12%" class=' bcgu0 bsor bw1 fsize8'></td>
        <td width="12%" class='fsize8'></td>
        <td width="12%" class='fsize8'></td>
    </tr>
</table>

    Hoffe das Beispiel holft dir. Ist eine ander Möglichkeit die Daten auszugeben.

    bankplayer
     
    Zitieren Zitieren
  4. 19.12.05 21:15 #4
    Avatar von Luzie
    Luzie Luzie ist offline
    Registriert seit
    Aug 2003
    Ort
    Arnsberg, Germany, Germany
    Beiträge
    1.066
    Zitat Zitat von bankplayer
    Hoffe das Beispiel holft dir. Ist eine ander Möglichkeit die Daten auszugeben.
    bankplayer
    @bankplayer

    der Beitrag hat aber mit Sicherheit schon Junge gekriegt
     
    liebe Grüße, die Luzie
    Zitieren Zitieren
« Select From XXX WHERE XXX | Autoid nach Insert Problem »

Ähnliche Themen

  1. Was mache ich falsch ?
    Von Legiat im Forum Visual Basic 6.0
    Antworten: 7
    Letzter Beitrag: 01.10.08, 22:46
  2. Was mache ich falsch
    Von stiFFler-Soldat im Forum Photoshop
    Antworten: 21
    Letzter Beitrag: 17.08.07, 19:03
  3. Was mache ich nur falsch?
    Von Jappi im Forum PHP
    Antworten: 5
    Letzter Beitrag: 13.04.06, 04:03
  4. Was mache ich falsch? echo ausgabe ...
    Von wurstkuchen im Forum PHP
    Antworten: 3
    Letzter Beitrag: 01.01.03, 17:25
  5. was mache ich falsch?
    Von stillerschrei im Forum PHP
    Antworten: 13
    Letzter Beitrag: 04.03.02, 17:19