Der Express Edition von Microsofts Visual Studio fehlen leider die Tools um eine Verbindung zu einer entfernten SQL-Datenbank herzustellen. Man kann mit dem Assistenten zwar eine Verbindung zu einer lokalen Instanz herstellen, aber wir wollen ja eine Client-Server Datenbankanwendung basteln. Und zwar "für lau".
Deswegen hier eine kurze Anleitung, wie ich ohne viel Drumherum eine entsprechende Verbindung herstellen kann,
ohne die entsprechenden Tools und Assistenten.
Nachdem wir ein neues Projekt (Windows Forms Anwendung) angelegt haben,
basteln wir uns zunächst einmal ein Formular namens
frmStart, darauf kommt ein Textfeld Namens
txtFeld. Das wars dann auch schon fürs Erste mit Formular basteln.
Ich setze in diesem Beispiel der EInfachheit halber vorraus, dass ihr einen funktionierenden SQL Server im Netz habt, bei dem (falls SQL Express) Remote Connections aktiviert sind!
hier der Code:
Public Class frmStart
Private Sub frmStart_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim cmdSQL As SqlClient.SqlCommand
Dim asyncResult As System.IAsyncResult
Dim returnValue As SqlClient.SqlDataReader
Dim strSQL As String
Using conSQL As New SqlClient.SqlConnection("Data Source=[SERVERNAME/INSTANZ];Initial Catalog=[DATENBANKNAME];User Id=[USERNAME];Password=[PASSWORT];Async=true")
conSQL.Open()strSQL = "[SQLSTRING]"
cmdSQL = New SqlClient.SqlCommand(strSQL, conSQL)
asyncResult = cmdSQL.BeginExecuteReader()
returnValue = cmdSQL.EndExecuteReader(asyncResult)
If returnValue.Read() Then
Me.txtFeld.Text = returnValue.Item("[FELDNAME]")
End If
End Using
End Sub
End Class
Was bedeutet das nun im Einzelnen?
Die Variablendeklaration:
Dim cmdSQL As SqlClient.SqlCommand
Dim asyncResult As System.IAsyncResult
Dim returnValue As SqlClient.SqlDataReader
Dim strSQL As String
- cmdSQL ist das Commandobjekt, also der Behälter für unseren SQL-Befehl
- asyncResult gibt Auskunft über den Status der asynchronen Operation (neu in ADO.net 2.0 - zum Thema asynchrone/synchrone Operationen bitte Googel bemühen, das führt hier zu weit)
- returnValue ist das Readerobjekt, dass nachher unser Resultset enthalten soll
- strSQL ist lediglich die Stringvariable für unseren SQL-Befehl
Das Verbinden mit dem Datenbankserver:
Using conSQL As New SqlClient.SqlConnection("Data Source=[SERVERNAME/INSTANZ];Initial Catalog=[DATENBANKNAME];User Id=[USERNAME];Password=[PASSWORT];Async=true")
conSQL.Open()
- Using [Connection-Variable] As New SqlClient.SqlConnection([Connection String]) sorgt dafür, dass wir die mit dem Connection-String definierte Verbindung innerhalb der Using-Anweisung verwenden. Wie der Connection String aussehen soll? --> http://www.connectionstrings.com/ Der Connectionstring muss die Anweisung "Async=true;" enthalten, damit das mit der asynchronen Operation funktioniert!
- conSQL.Open() öffnet die Verbindung schlussendlich
Befehl senden/Resultat empfangen:
strSQL = "[SQLSTRING]"
cmdSQL = New SqlClient.SqlCommand(strSQL, conSQL)
asyncResult = cmdSQL.BeginExecuteReader()
- strSQL = "..." hier definieren wir unseren SQL String, also SELECT * FROM tblIrgendwas
- dann wird dem Command-Objekt der SQL String und die Connection an die der Befehl gehen soll übergeben
- und wir weisen den Status der Async-Operation der zuvor definierten Variable zu
Anzeigen der Daten:
returnValue = cmdSQL.EndExecuteReader(asyncResult)
If returnValue.Read() Then
Me.txtFeld.Text = returnValue.Item("[FELDNAME]")
- unserem Readerobjekt "returnValue" weisen wir das Resultat der Abfrage zu ...
- ... dann, wichtige Sache, erst wenn das Readerobjekt fertig gelesen hat...
- ...weisen wir dem Textfeld einen Wert zu! Wenn dieses if fehlen würde, kommt es höchstwarscheinlich zu einem Fehler, da das Programm schneller in der nächsten Zeile ist, als dass der Server das Resultat geliefert hat! Es kommt dann der Fehler:
"Um eine indizierte Eigenschaft auszuwerten, muss die Eigenschaft qualifiziert sein, und die Argumente müssen explizit vom Benutzer bereitgestellt werden." (Item) und
"Ungültiger Leseversuch, wenn keine Daten vorhanden sind." (Message)
und das Gedöns ...
End If
End Using
End Sub
End Class
- alles wieder zumachen, was wir aufgemacht haben
Dann F5 drücken und freuen, dass in dem Textfeld der Inhalt des Feldes angezeigt wird, dass ihr abgefragt habt. tata!
