میتونی از اسکریپت زیر در برنامه استفاده کنی
DECLARE @version nvarchar(128)
SET @version = CAST(serverproperty('ProductVersion') AS nvarchar)
SET @version = SUBSTRING(@version, 1, CHARINDEX('.', @version) - 1)
SELECT CAST(@version as int) AS SQLVersion
در دلفی به صورت
with Query1 do
begin
Close;
SQL.Clear;
SQL.Text := 'DECLARE @ver nvarchar(128) ' +
' SET @ver = CAST(serverproperty(' + QuotedStr('ProductVersion') +
') AS nvarchar) ' + ' SET @ver = SUBSTRING(@ver, 1, CHARINDEX(' +
QuotedStr('.') + ', @ver) - 1) ' + ' SELECT CAST(@Ver as int) AS Ver';
Open;
end;
FVer := Query1['Ver'];