' Returns an array with the installed SQL Server databases' The first param must be a valid connection string to the 'master' database' Requires Imports System.Data.SqlClient'' Example:' Dim databases() As String = GetSqlServerDatabases( ' "server=(local); ' Database=master; user id=sa; password=;")' Dim database As String' For Each database In databases' Debug.WriteLine(database)' NextFunction GetSqlServerDatabases(ByVal masterConnString As String) As String() Dim cn As New SqlConnection(masterConnString) Dim databases As New ArrayList() ' retrieve the name of all the databases from the sysdatabases table Dim cmd As New SqlCommand("SELECT [name] FROM sysdatabases", cn) cn.Open() Dim reader As SqlDataReader = cmd.ExecuteReader() While reader.Read() ' add the name to the arraylist databases.Add(reader("name")) End While cn.Close() ' retrieve and return an array of strings from the arraylist filled above Return databases.ToArray(GetType(String))End Function
Top Careers at Microsoft
February 3, 2023
Microsoft has gained its position as one of the top companies in the world, and Microsoft careers are flourishing. This multinational company is efficiently developing popular software and computers with other consumer electronics. It is a dream come true for so many people to acquire a high paid, high-prestige job
