[aspdebeginners] AW: Feld in ACCESS-DB ohne Inhalt

Michael Bï¿½cher Sat, 26 Jan 2002 04:16:11 -0800

Hallo,

anbei der besagte Code:


bei dem Feld handelt sich um das Feld PRO_Nummer!
<%
        Dim ObjConnection
        Dim ObjRecord
        Dim Username
        Dim PRO_Bezeichnung
        Dim PRO_Nummer
        Dim PRO_ALL_IN
        Dim FRM_ALL_IN
        Dim PRO_AG_Nummer
        Dim AG_Firma
        Dim ID
        Dim sql

        Username = Application("Username")

        Set ObjConnection=Server.CreateObject("ADODB.Connection")
        Set ObjRecord=Server.CreateObject("ADODB.RecordSet")

        ObjConnection.Open ("FORMDAT")

        sql = "Select "
        sql = sql & "Projekt.PRO_ID, "
        sql = sql & "Projekt.PRO_Bezeichnung, "
        sql = sql & "Projekt.PRO_Nummer, "
        sql = sql & "Projekt.PRO_ALL_IN, "
        sql = sql & "Projekt.PRO_AG_Nummer, "
        sql = sql & "Auftraggeber.AG_Firma "
        sql = sql & "From Projekt, Auftraggeber Where "
        sql = sql & "Projekt.PRO_AG_Nummer = Auftraggeber.AG_ID AND "
        sql = sql & "PRO_UserName = '" & Username & "' "

        Set ObjRecord=ObjConnection.Execute(sql)

        If ObjRecord.eof then
                Server.Transfer "PAR_Projekt_New.asp"
        End If
%>

<html>
<head>
<meta http-equiv="Content-Language" content="de">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>PAR_Projekt_Show</title>

</head>

<BODY aLink=#ffcc00 bgColor=#000000 link=#f7d204 vLink=#f7d204>
<DIV align=center>
<CENTER>

<TABLE background=homepage-Dateien/marmor-schwarz.jpeg border=0
cellPadding=0
cellSpacing=0 height="127" width=602>

<table background="homepage-Dateien/marmor-schwarz.jpeg" height="307">

<td height="1" width="600">
<HR color=#ffffff width=600>
</td>

<TR>

<td height="92" width="600">

<p align="center"><b><font color="#FF6600" face="Tahoma"
size="6">Projekte</font></b></p>
</td>
</tr>

<td height="281">

  <table background=homepage-Dateien/marmor-schwarz.jpeg border="0"
width="596" height="59">
    <tr>
      <td width="99" height="21"><strong><font color="#FFFFFF"
face="Tahoma">&nbsp;Username:</font></strong></td>
      <td width="470" height="21"><b><font color="#FFFFFF"
face="Tahoma"><%Response.Write(Username)%></font></b></td>
    </tr>
    <tr>
      <td width="99" height="30"><font face="Tahoma">&nbsp;</font></td>
      <td width="470" height="30"><font face="Tahoma">&nbsp;</font></td>
    </tr>
  </table>

</center>

  <table background=homepage-Dateien/marmor-schwarz.jpeg border="2"
width="597">
    <tr>
      <td width="1" align="left">
        <p align="left"><font
color="#FFFFFF"><strong>DEL</strong></font></p>
      </td>
      <td width="263" align="left">
        <p align="center"><strong><font color="#FFFFFF"
face="Tahoma">Bezeichnung</font></strong></p>
      </td>
      <td width="76">
        <p align="center"><strong><font color="#FFFFFF"
face="Tahoma">Nummer</font></strong></p>
      </td>
      <td width="67" align="center">
        <p align="center"><font color="#FFFFFF"
face="Tahoma"><strong>ALL-IN</strong></font></p>
      </td>
      <td width="232" align="center">
        <p align="center"><font face="Tahoma"><strong><font
color="#FFFFFF">Auftraggeber</font></strong></font></p>
      </td>
    </tr>
<%

        ObjRecord.MoveFirst

        do while Not ObjRecord.eof

                PRO_Bezeichnung=ObjRecord("PRO_Bezeichnung")
                PRO_Nummer=ObjRecord("PRO_Nummer")
                PRO_ALL_IN=ObjRecord("PRO_ALL_IN")

                If PRO_ALL_IN = "TRUE" then
                        FRM_ALL_IN = "JA"
                Else
                        FRM_ALL_IN = "NEIN"
                End If

                PRO_AG_Nummer=ObjRecord("PRO_AG_Nummer")
                AG_Firma=ObjRecord("AG_Firma")
                ID=ObjRecord("PRO_ID")

%>
    <tr>
        <td width="38"><p align="center"><a
href="PAR_Projekt_Delete.asp?Record_ID=<%Response.Write(ID)%>"><img
border="0" src="homepage-Dateien/Delete.GIF" width="31"
height="34"></p></td>
        <td width="178"><p align="left"><font face="Tahoma"
color="#FFFFFF"><a
href="PAR_Projekt_Edit.asp?Record_ID=<%Response.Write(ID)%>"><%Response.Writ
e(PRO_Bezeichnung)%></a></font></p></td>
        <td width="1"><p align="left"><font face="Tahoma"
color="#FFFFFF"><%Response.Write(PRO_Nummer)%></font></p></td>
        <td width="5" align="center"><p align="center"><font face="Tahoma"
color="#FFFFFF"><%Response.Write(FRM_ALL_IN)%></font></p></td>
        <td width="303" align="center"><p align="left"><font face="Tahoma"
color="#FFFFFF"><%Response.Write(AG_Firma)%></font></p></td>
    </tr>

<%
        ObjRecord.MoveNext
        loop
ObjConnection.close

Set ObjRecord=Nothing
Set ObjConnection=Nothing
%>

<CENTER>


    </table>
    <table background=homepage-Dateien/marmor-schwarz.jpeg border="0"
width="103" height="39">
    <tr>
      <td width="33" height="35">&nbsp;</td>
      <td width="32" height="35"></td>
    </tr>
    <tr>
      <td width="33" height="35">

        <form method="POST" action="PAR_Projekt_New.asp">
          <p align="center"><input type="submit" value="      Neu     "
name="B1"> </p>
        </form>
      </td>
      <td width="32" height="35">
        <form action=Goto.asp?Link=Parameter.html method=post>
          <p align="center"><input type="submit" value="   Zurï¿½ck   "
name="B1" > </p>
        </form>
      </td>
    </tr>
  </table>

</center>

</table>

</table>

</body>


Gruï¿½
Michael

-----Ursprï¿½ngliche Nachricht-----
Von: Stefan Hï¿½sler [mailto:[EMAIL PROTECTED]]
Gesendet: Freitag, 25. Januar 2002 16:34
An: ASP Diskussionsliste fuer Anfaenger
Betreff: [aspdebeginners] AW: Feld in ACCESS-DB ohne Inhalt


Kannst Du bitte mal den Code der Abfrage schreiben?


> -----Ursprï¿½ngliche Nachricht-----
> Von: Michael Bï¿½cher [mailto:[EMAIL PROTECTED]]
> Gesendet: Freitag, 25. Jï¿½nner 2002 16:30
> An: ASP Diskussionsliste fuer Anfaenger
> Betreff: [aspdebeginners] Feld in ACCESS-DB ohne Inhalt
>
>
>
> Hallo Liste,
>
> ich hab folgendes Problem:
>
> In meiner Access-DB ist in der Tabelle die ich mit SELECT auslese
> ein Feld enthalten, das nicht gefï¿½llt ist.
>
> Nach dem Auslesen mittels Schleife wird der Inhalt des Satzes in
> einer Tabelle mit Rand ausgegeben. Ist in der Tabelle bei diesem Feld
> kein Wert eingetragen (bei 99% aller Fï¿½lle), so sieht die Tabelle
> etwas seltsam aus, da fï¿½r das leere Feld die Umrandung fehlt!
>
> Jetzt hab ich mir gedacht, ich frage das Feld einfach auf ""
> (Leerstring) ab, und setze den Wert in " " (Blank) um.
>
> Doch die Abfrage funzt nicht. Auch mit der Konstanten VBEmpty,
> VBNull, VBNullCHar kein Ergebnis!!!
>
> Was soll ich tun???
>
> Danke fï¿½r die schnelle Hilfe.
>
> Gruï¿½
> Michael
>
> ---
> Michael Bï¿½cher
> C&P Glabischnig GmbH
> Rannachstr. 25
> A-8046 Graz
>
> Tel. +49 (160) 4753448
>
>
> | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
> | [aspdebeginners] als [EMAIL PROTECTED] subscribed
> | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
> | Sie knnen sich unter folgender URL an- und abmelden:
> | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
>
>



| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [EMAIL PROTECTED] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp


| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp

[aspdebeginners] AW: Feld in ACCESS-DB ohne Inhalt

Antwort per Email an