Zitat:

Eine Verbindung mit einem Steuerelement herstellen Um eine Verbindung zu einer Datenbank herzustellen, können Sie das SqlConnection-Steuer-element benutzen, das Sie allerdings zuvor der Toolbox hinzufügen müssen. Ziehen Sie in bekannter Weise das gewünschte Steuerelement in den aktiven Designer, wird es im Komponentenfach abgelegt. Danach muss die Verbindungszeichenfolge festgelegt werden. Markieren Sie dazu im Eigenschaftsfenster die Eigenschaft ConnectionString, und klicken Sie in der Wertespalte auf die Schaltfläche mit dem nach unten zeigenden Pfeil. Es öffnet sich ein kleines Auswahlfenster, in dem Sie den Eintrag <Neue Verbindung...> finden. Klicken Sie darauf, sehen Sie den Dialog Verbindung hinzufügen. Tragen Sie hier den Server ein, geben dann die Authentifizierungsdaten an und wählen die Datenbank aus, auf deren Daten Sie zugreifen möchten. Sie können sogar noch die Verbindung abschließend testen.

Zitat:

Bisher haben Sie das SqlCommand-Objekt nur innerhalb einer Konsolenanwendung aktiv gesehen. Im Forms Designer geht alles mit Hilfe diverser Assistenten etwas einfacher. Dazu ziehen Sie ein SqlCommand-Objekt aus der Lasche Daten der Toolbox auf den Designer. Gegebenenfalls müssen Sie das Control erst der Toolbox hinzufügen, da es standardmäßig nicht sofort angeboten wird. Das SqlCommand-Objekt wird ebenfalls im Komponentenfach abgelegt. Zunächst ist es wichtig, dem SqlCommand mitzuteilen, auf welcher Verbindung das Kommando abgesetzt werden soll. Im Eigenschaftsfenster geben Sie diese daher unter Connection an. Es öffnet sich eine Drop-down-Liste, aus der die eventuell vorher definierte Verbindung mit dem SqlConnection-Control ausgewählt werden kann. Sie können aber auch direkt eine neue Verbindung definieren.

Imports System.Data.SqlClient
 
Public Class Form1
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TextBox1.TextChanged
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
 
        Dim con As New SqlConnection
 
        con.ConnectionString = "Data Source=(local);" & "Initial" & _
          "Catalog=testdb;" & "Trusted_Connection=yes"
 
        Dim cmd As New SqlCommand
        cmd.CommandText = "SELECT VereinsnameFROM Vereine WHERE ID='1'"
        cmd.Connection = con
 
        TextBox1.Text = cmd.CommandText
 
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
 
    End Sub
End Class

Gru?

RollingStones