Hallo zusammen,

ich stecke seit dem 01.08. in einer Ausbildung zum FIAE und nun habe ich eine kleine Probeaufgabe bekommen (Programmiere auch erst seit ausbildungsbeginn mit VB).

Aufgabenstellung ist eine Oracle Datenbank als ASP.Net Anwendung online auf Textboxen abzurufen und durchblättern zu können :confused:

So weit so gut, der erste Datensatz wird mir auch angezeigt, nur leider habe ich keine Ahnung wie ich in den nächsten Datensatz komme. Ich hoffe ihr könnt mir da weiterhelfen (und sei es mit irgendwelchen links in denen diese Situation erklärt wird) denn bisher habe ich nicht viel hilfreiches gefunden.

mein code bisher:

Public Class Anschriften

Inherits System.Web.UI.Page

Dim dt As DataTable

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Try

Dim con As New Integral.Data.imsConnection("Oracle")

con.Open("DB01", "Adressliste", "Blubb")

dt = con.OpenTable("SELECT * FROM Anschriften ORDER BY Nummer")

con.Close()

ShowData(0)

Catch ex As Exception

MsgBox(ex.Message)

End Try

End Sub

Private Function GetHTMLText(ByVal s As String) As String

Try

s = Replace(s, "ö", "ö")

s = Replace(s, "Ö", "Ö")

s = Replace(s, "ä", "ä")

s = Replace(s, "Ä", "Ä")

s = Replace(s, "ü", "ü")

s = Replace(s, "Ü", "Ü")

Catch ex As Exception

End Try

Return s

End Function

Sub ShowData(ByVal i As Integer)

Try

txtNummer.Text = dt.Rows(i)("Nummer")

txtName.Text = dt.Rows(i)("Name")

txtVorname.Text = dt.Rows(i)("Vorname")

txtStrasse.Text = dt.Rows(i)("Strasse")

txtPLZ.Text = dt.Rows(i)("PLZ")

txtOrt.Text = dt.Rows(i)("Ort")

txtTelefon.Text = dt.Rows(i)("Telefon")

txtFax.Text = dt.Rows(i)("Fax")

txtEmail.Text = dt.Rows(i)("Email")

Catch ex As Exception

Throw

End Try

End Sub

Protected Sub cmdVor_Click(ByVal sender As Object, ByVal e As EventArgs) Handles cmdVor.Click

End Sub

End Class

Danke schonmal für eure Antworten

Hat sich erledigt