Visual Basic

[Native Code: 924] [ASEOLEDB]Database 'RLDB' is already open and can only have one user at a time.

dilkonika wrote:

What can I do ?

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

dilkonika wrote:

Sorry ! But the sql server is on local PC , and
on the computer where I have created the application (inside Visual studio , or
with the final exe ) everything is ok. Only on the computer where I try to
install and run my application I have this error.

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

i = Array.FindIndex(pAR, Function(x) x.IndexOf(s, StringComparison.InvariantCultureIgnoreCase) = 0)

Sub Main()

        Dim i As Integer
        Dim s As String = "Aaa"
        Dim ar() As String = Split("aaa,AAA,bbb,BbB,ccc,CcC", ",")

        i = Array.FindIndex(ar, Function(x) Contains(x, s))

        Console.WriteLine("I is " & i)
    End Sub

    Private Function Contains(a As String, b As String) As Integer
        Dim returnValue As Integer = a.IndexOf(b, StringComparison.CurrentCultureIgnoreCase)
        Console.WriteLine("Searching for '{0}' in '{1}'   returning: {2}", b, a, returnValue)

        Return returnValue
    End Function

Sub Main()

        Dim i As Integer
        Dim s As String = "Aaa"
        Dim ar() As String = Split("aaa,AAA,bbb,BbB,ccc,CcC", ",")

        i = Array.FindIndex(ar, Function(x) Contains(x, s) = 0)

        Console.WriteLine("I is " & i)
    End Sub

    Private Function Contains(a As String, b As String) As Integer
        Dim returnValue As Integer = a.IndexOf(b, StringComparison.CurrentCultureIgnoreCase)
        Console.WriteLine("Searching for '{0}' in '{1}'   returning: {2}", b, a, returnValue)

        Return returnValue
    End Function

Dave Kreskowiak wrote:

Zero if it's not found (False), a value greater than 0 if it is found (True) and -1 if it is NOT found (True!).