Visual Basic em Português

Criação de Ligações à Base de Dados (SQL)

 

Muitas vezes perde-se tempo a tentar colocar a ConnectionString de uma forma correcta. Falta uma vírgula, falta um espaço, etc, e perdemos algum tempo a tentar efectuar uma ligar ao servidor.

 

Uma das formas simples e organizada de criar uma ConnectionString é utilizar o SqlConnectionStringBuilder. Desta forma apenas temos de escolher os campos relevante para a nossa ligação e a ConnectionString é facilmente conseguida.

 

Exemplo:

 

‘ Cria uma nova instância de uma SqlConnectionStringBuilder

Dim strConn As New SqlConnectionStringBuilder()

 

‘ Construção da Connection String

With strConn

      .DataSource = "Servidor"

      .InitialCatalog = "Base de Dados"

      .IntegratedSecurity = False

      .UserInstance = False

      .UserID = "Utilizador"

      .Password = "Password"

End With

 

‘ Visualização do resultado final

Debug.Print(strConn.ConnectionString())

 

strConn.Clear()

strConn = Nothing

 

Resultado:

“Data Source=Servidor;Initial Catalog="Base de Dados";Integrated Security=False;User ID=Utilizador;Password=Password;User Instance=False”

 

 

Usando a CheckedListBox

 

A CheckedListBox é um controlo que permite uma fácil selecção de itens e muito simples de trabalhar. No entanto existem algumas pequenas coisas que são importantes e que muitas vezes são necessárias

 

‘ Adicionando itens à lista dinamicamente

Dim items() As String = {"Item 1", "Item 2", "Item 3", "Item 4", "Item 5"}

Me.myCheckedListBox.Items.AddRange(items)

 

 

Um das propriedades que está definida por defeito para False é a CheckOnClick. No entanto se queremos que se clique e que seleccione logo o item, tornado mais fácil para o utilizador, deveremos coloca-la a True através de código ou na janela das propriedades:

 

Me.myCheckedListBox.CheckOnClick = True

 

 

Outra das coisas que não possivel fazer directamente é saber o index do itens que estão seleccionados. Uma das formas simples de resolver é utilizando o seguinte código:

 

‘ Ciclo que percorre todas as opções seleccionadas

For Each item As String In Me.myCheckedListBox.CheckedItems

       Debug.Print(Me.myCheckedListBox.FindString(item.ToString))

Next

 

 

 

PS: Como sempre, qualquer dúvida, comentário ou correcção ao artigo é sempre bem vinda!