SQL Server version i VB.NET

Hvordan ser din kode ud og hvilken fejl faar du?

Dim SQLConn As New SqlConnection() 'The SQL Connection
        Dim SQLCmd As New SqlCommand() 'The SQL Command

        SQLConn.ConnectionString = SQLConnStr 'Set the Connection String
        SQLConn.Open() 'Open the connection

        SQLCmd.Connection = SQLConn
        SQLCmd.CommandType = CommandType.StoredProcedure

        'Log fragmentation
        SQLCmd.CommandText = "EXEC db_cmptlevel 'taclogadata'"

        MessageBox.Show(SQLCmd.ExecuteScalar, "test")

        'Close the connection
        SQLConn.Close()

Proev og send argumentet over som parameter.

Og proed med ExecuteReader fremfor ExecuteScalar.

Nu prøver jeg sådan her, men der kommer ikke noget tilbage...

------------------------------

        Dim SQLConn As New SqlConnection() 'The SQL Connection
        Dim SQLCmd As New SqlCommand() 'The SQL Command
        Dim SQLdr As SqlDataReader 'The Local Data Store

        SQLConn.ConnectionString = SQLConnStr 'Set the Connection String
        SQLConn.Open() 'Open the connection

        SQLCmd.Connection = SQLConn
        SQLCmd.CommandType = CommandType.StoredProcedure

        'Log fragmentation
        SQLCmd.CommandText = "sp_dbcmptlevel"
        SQLCmd.Parameters.AddWithValue("@dbname", "taclogdata")

        SQLdr = SQLCmd.ExecuteReader

        If SQLdr.HasRows Then
            SQLdr.Read()
            MessageBox.Show(Convert.ToString(SQLdr.Read()))
        End If


        'Close the SQLDataReader
        SQLdr.Close()
        'Close the connection
        SQLConn.Close()

Lukker. Det kan åbenbart ikke lade sig gøre.

Hvis du en dag gerne vil vide, hvordan man gør, så opret et nyt spørgsmål.

Vi prøver igen ;-)

http://www.eksperten.dk/spm/925209