Knowledge Base Article Number: Q746022

Question by: Adam Cogan    Answered by: David Klein    Last Updated: 13/02/2003 12:15:13 PM

Spot an error? Please comment about this article

Question:

How do I check what version of SQL Server I am using?

Answer:
Simply use @@Version.

'------------------------------------
Function SQLServerVersion()
'------------------------------------

Dim cnnSql
Dim strVersion
Dim rstVersion
'Initialize ADO Connection
Set cnnSql=Server.CreateObject("ADODB.Connection")
'Open Connection
cnnSql.Open "Provider=SQLOLEDB.1;Initial Catalog=master;" & _
"Password=;User ID=sa;Data Source=SEVERNAME"
'Create Recordset
Set rstVersion = cnnSql.Execute("SELECT @@Version")
'Choose first column from the recordset
strVersion = rstVersion.Fields(0)

If InStr(strVersion, "7.00.623") > 0 Then
SQLServerVersion = "Original SQL Server 7.0"
ElseIf InStr(strVersion, "7.00.699") > 0 Then
SQLServerVersion = "SQL Server 7.0 SP1"
ElseIf InStr(strVersion, "7.00.842") > 0 Then
SQLServerVersion = "SQL Server 7.0 SP2"
ElseIf InStr(strVersion, "8.00.100") > 0 Then
SQLServerVersion = "SQL Server 2000"
ElseIf InStr(strVersion, "8.00.194") > 0 Then
SQLServerVersion = "SQL Server 2000 SP1"
ElseIf InStr(strVersion, "8.00.532") > 0 Or InStr(strVersion, "8.00.534") > 0 Then
SQLServerVersion = "SQL Server 2000 SP2"
Else
'Unknown version number
SQLServerVersion = strVersion
End If

End Function

For more information, you can see:
http://vyaskn.tripod.com/sqlsps.htm

Keywords: Hot Tip - SQL Server 2000  Hot Tip - Visual Basic 6    

New Search SSW Custom Support