Visual Basic

SELECT SUBSTRING(physical_name, 1,
CHARINDEX(N'master.mdf',
LOWER(physical_name)) - 1) DataFileLocation
FROM master.sys.master_files
WHERE database_id = 1 AND FILE_ID = 1

using (var connection = new SqlConnection("Data Source=.;Integrated Security=SSPI"))
{
    var serverConnection = new ServerConnection(connection);
    var server = new Server(serverConnection);
    var defaultDataPath = string.IsNullOrEmpty(server.Settings.DefaultFile) ? server.MasterDBPath : server.Settings.DefaultFile;
    var defaultLogPath = string.IsNullOrEmpty(server.Settings.DefaultLog) ? server.MasterDBLogPath : server.Settings.DefaultLog;
}

Otekpo Emmanuel wrote:

If (c,d) = 1 Then

If SomeArray(c,d) = 1 Then

Public DistX As Integer
Dim Length As Integer
Public DistToDark(1 To 1850) As Integer
DarkX = DistToDark(Length)

Dim angle, ray_inc as Double
Public sine(-160 To 2400) As Double
Dim i As Integer
For i = -160 To 2400
angle = ray_inc * i * piDivBy180 'where rays_inc =1.85
sine(i) = sine(angle)
Next

Private Sub2 ()
    Dim item As MyTestClass = New MyTestClass With {.nr = k, .FieldName =s)
    
    mytest.add(item)   'Add this line

    Messagebox.show(mytest.contains(item))

End sub