Public Function GetConnection() As SqlClient.SqlConnection
 
        Dim conString As String
        conString = "server=Besitzer-PC\sqlexpress;Database =" & _
          "Database1;Integrated Security = true"
 
        Dim con As SqlClient.SqlConnection = Nothing
 
        Try
            con = New SqlClient.SqlConnection(conString)
            con.Open()
        Catch ex As Exception
            Throw (ex)
        End Try
 
        Return con
 
    End Function

der Hund ist Dir im Sturme treu - der Mensch nicht mal im Winde
\"Kampfhunde\" Liebhaber

Beitrag wurde zuletzt am 01.10.09 um 18:57:18 editiert.