[سعود]

PHP كود :

Public str As String = "server=.\sqlexpress;initial catalog=pics;integrated security=true;"
    Public con As New SqlConnection(str)

    Function isdbfound(ByVal constr As String, ByVal dbname As String) As Boolean
        Dim mc As New SqlConnection(constr)
        Dim a As New SqlCommand("select count(name) from master.dbo.sysdatabases where name='" & dbname & "'", mc)
        If mc.State = ConnectionState.Closed Then
            mc.Open()
        End If

        If a.ExecuteScalar <= 0 Then
            Return False
        Else
            Return True
        End If
    End Function