My old program still works with MSSQL express, the localDB free server it connects fine following instructions here

I configured an instance, and put it into the program using the named pipe connection string.
Created a MSSQL server database and added records
How interesting, I programmed this 20 years ago and it still works today.

My test for SQL Server Version says there is no sql server or MSDE found.
Which I suppose is to be expected...

I had originally programmed this with MSDE 2000, the older MS freebie database based on MS SQL Server that they no longer support

If it works with them it works wilh the full on MS SQL server

How many different threads do you have running with basically the same subject? You'd get more help if everything was in one place.

Rollback_Jockey said:

How many different threads do you have running with basically the same subject? You'd get more help if everything was in one place.

Click to expand...

going on ignore now
You do not have to read my threads you know that don't you?
So why bother with the derogatory comments., must make you feel good...

Here is the code I used to detect ms sql server versions
Which used to work, maybe I can modify it to detect this new type of ms sql server.
AS in registry location.
Anyone know the location?

*******************************************************************

Private Sub cmdSQL_Click()

Dim lvVersion As Variant
Dim lvCSDVersion As Variant
Dim objRegAccess As New RegAccess
Dim lsName As String
Dim lsKeyPath As String

' Set the name of the registry entry we are looking for.
lsName = "CurrentVersion"

' Define where the registry entry can be found.
lsKeyPath = "SOFTWARE\Microsoft\MSSQLServer\MSSQLServer\CurrentVersion"

' Use the RegAccess object to find our registy setting value.
' Set the key, "HKEY_LOCAL_MACHINE" inline, using the enumerated constant
' that is defined in our class module.
lvVersion = objRegAccess.GetRegSetting(lsName, Key:=RegKeys.HKEY_LOCAL_MACHINE, SubKey:=lsKeyPath)
' If a version is found, report that we have found SQL Server
' or compatible technologies.
If IsEmpty(lvVersion) Then
' Not installed.
Call MsgBox("This machine does not have Microsoft SQL Server or compatible technologies (MSDE) installed.", vbInformation, "SQL Not Found")
' cmdInstallDB.Enabled = False
Else
' SQL Server or compatible technologies is installed.

' For the most accurate build number, check for any service packs,
' which record build numbers in a separate registry key.

' Set the key name.
lsName = "CSDVersion"
lvCSDVersion = objRegAccess.GetRegSetting(lsName, Key:=RegKeys.HKEY_LOCAL_MACHINE, SubKey:=lsKeyPath)
If IsEmpty(lvCSDVersion) Then
'No service packs.
Call MsgBox("This machine contains build " & lvVersion & " of Microsoft SQL Server or SQL Server compatible technology (MSDE).", vbInformation, "SQL Found")
Else
'Report the higher service pack build number.
Call MsgBox("This machine contains build " & lvCSDVersion & " of Microsoft SQL Server or SQL Server compatible technology (MSDE).", vbInformation, "SQL Found")
End If

End If

End Sub