Sub dbSample()
'Damit das sample funktioniert benötigst du folgende Import-Anweisungen am Kopf der Seite
'Imports System.Data
'Imports System.Data.SqlClient
'Connectionstring aus der Web.Config holen
Dim Connectionstring As String = ConfigurationManager.ConnectionStrings("DeinConnectionstringNameAusDerWebConfig").ToString
Using connection As New SqlConnection(Connectionstring)
Dim cmd As New SqlCommand("Select * from Tabelname where ID=1")
Dim da As New SqlDataAdapter(cmd)
'Jetzt hast Du die Verbindung zur Datenbank
Dim dt As New DataTable
'Und jetzt die Datatable mit Hilfe des Dataadapter füllen mit den Werten aus der Datenbank:
da.Fill(dt)
'Jetzt sind die Werte aus der DB da und du kannst sie Verwenden:
If dt.Rows.Count > 0 Then
'Beispiel für Schleife
For Each row As DataRow In dt.Rows
textbox1.text = row("FeldBezeichnung")
Next
'anders Beispiel für Schleife
For i As Integer = 0 To dt.Rows.Count - 1
Dim row As DataRow = dt.Rows(i)
textbox1.text = row("FeldBezeichnung")
Next
'#########################################
'ebenso kannst Du die werte in der DataTable verändern:
For Each row As DataRow In dt.Rows
row("FeldBezeichnung") = "was anderes"
Next
'Wenn die Werte verändert sind, schickst Du das ganze zurück zur DB:
da.Update(dt)
'#########################################
'du kannst auch neue Datensätze anlegen:
Dim newRow As DataRow = dt.NewRow
newRow("FeldBezeichnung") = "was neues"
'den Datensatz der Tabelle zuführen:
dt.Rows.Add(newRow)
'und alles zur datenbank schicken:
da.Update(dt)
End If
End Using
End Sub