Datenbank Zugriff

[Roberto]

Ich check folgenden Fehler nicht:
http://grefe-bau.de/angebote/index.aspx

Hier mein Quellcode:

CODE

<%@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>

<!-- #include file="../header.inc" -->


<script runat="server">
Sub Page_Load()
' Verbindungszeichenfolge für Datenbank zusammensetzen
' (aus Hr. Bartelsens Skript)
Dim db As String
db = "Provider=Microsoft.Jet.OleDb.4.0; Data Source=" & Server.MapPath("grefebau.mdb") & ";"

' Verbindung zur Datenbank herstellen
' (aus Hr. Bartelsens Skript)
Dim conn As New OleDbConnection(db)
conn.Open()

' SQL-Kommando erstellen und ausführen
Dim sql As String
sql = "SELECT * FROM angebote"
Dim cmd As New OleDbCommand(sql, conn)
Dim myReader As OleDbDataReader
myReader = cmd.ExecuteReader()
Dim sb As New StringBuilder()
' Die Ergebnisse des Reader-Objekts manuell
' verarbeiten
While myReader.Read()
sb.Append(myReader.Item("a_titel"))
sb.Append(" <br />")
sb.Append(myReader.Item("a_beschreibung"))
sb.Append("<hr />")
sb.Append(myReader.Item("a_preis"))
sb.Append(" <br />")
End While
ausgabe.InnerHtml = sb.ToString()
myReader.Close()
conn.Close()
End Sub
</script>

<h2>Grefe Bau Angebote</h2>

<span id="ausgabe" runat="server"></span>
</body>
</html>

<!-- #include file="../footer.inc" -->




bitte hilfe!

 

[Jürgen Auer]

Ich sehe da auch keinen Fehler.

Die Datei existiert.

Kann es sein, daß die Tabelle leer ist?

Hänge mal oben noch ein Trace rein:

QUOTE <%@ Page Language="VB" Debug="true" Trace="true" %>


und bsp. unterhalb der 'db' - Zuweisung


QUOTE Me.Context.Trace.Write(db)


Über einen Aufruf


QUOTE /trace.axd


müßte dann eine Liste rauskommen, diese sollte den Wert des db-Strings enthalten.

Analog später bsp. Me.Context.Trace.Write(sb.ToString()) usw.