Pesquisa personalizada

O SQL Server fornece um conjunto de componentes COM que permitem gerenciarmos o servidor SQL Server via código, tirando o máximo de proveito de seus recursos. Esse conjunto de componentes é chamado de SQL-DMO.

Para termos uma noção de sua capacidade vale mencionar que o Enterprise Manager foi todo construido utilizando o SQL-DMO, ou seja, todas as funções que o Enterprise Manager possui podem ser feitas via código através do SQL-DMO, o que nos permitiria inclusive criar um novo Enterprise Manager.

Veja algumas utilidades do SQL-DMO :

• Obter informações sobre logins e permissionamentos para que o permissionamento da aplicação sempre esteja de acordo com o permissionamento do servidor.
• Gerenciar agendamentos e regras de negócio. Um gerente, por exemplo, pode pedir para ser avisado por e-mail sempre que as vendas da semana atinjam 100.000 . Você pode colocar uma interface amigável para que o gerente configure esses tipos de alertas na sua aplicação.
• Permitir o gerenciamento de objetos no MSDE, versão reduzida do SQL Server que não possui enterprise manager.
• Criar aplicações de auxilio ao desenvolvimento, tal como aplicações que realizem a documentação de objetos no servidor.

Vamos criar uma pequena aplicação para edição de procedures, como um pequeno exemplo sobre como utilizar o SQL-DMO. Precisaremos dos seguintes componentes no formulário :

2 botões
4 caixas de texto
1 listbox
1 RichTextBox

As 4 caixas de texto serão usadas para que o usuário informe o nome do servidor, nome do banco de dados, login e senha no banco. O botão fará a conexão com o banco e preencherá a listbox com o nome das procedures existentes no banco de dados.

Ao clicarmos no nome da procedure na listbox exibiremos seu código no RichTextBox. O usuário poderá alterar o código da procedure e clicar no botão gravar para atualizar a procedure no servidor.

Primeiramente precisamos fazer um References na aplicação para a biblioteca do SQL-DMO, que se chama "Microsoft SQLDMO Object Library". Utilizaremos 3 variáveis a nível de projeto, veja :

Dim srv As New SQLServer
Dim db As SQLDMO.Database
Dim sp As SQLDMO.StoredProcedure

Uma variável (srv) contém um objeto que representa o servidor, outra (db) um objeto que representa o banco de dados e a 3a (sp) um objeto que representa uma stored procedure.

Vamos então fazer o código do botão conectar. Além de se conectar ao servidor SQL usando o objeto SQLServer (na variável SRV) este botão deve preencher a listbox com o nome das stored procedures existentes no banco de dados escolhido pelo usuário. Veja :

Private Sub cmdConectar_Click()
Dim a As Integer

'Faz a conexão com o servidor SQL Server
x.Connect txtServidor.Text, txtLogin.Text, txtsenha.Text

'Obtem uma referência ao banco de dados selecionado pelo usuário
Set db = x.Databases(txtbanco.Text)

'Faz um laço através das procedures existentes neste banco de dados
'
For a = 1 To db.StoredProcedures.Count
List1.AddItem db.StoredProcedures(a).Name
Next
End Sub

Agora precisamos fazer com que o click na listbox exiba o script da procedure no RichtText (que chamamos de rtbproc). Devemos recuperar a procedure do banco de dados pelo seu nome, que se encontra na propriedade List da Listbox. Veja :

Private Sub List1_Click()
rtbproc.Text = db.StoredProcedures(List1.List(List1.ListIndex)).Text
'Observe que usando o listIndex estamos recuperando o nome da procedure
'clicada
End Sub

Por fim devemos codificar o botão gravar, que deverá transmitir ao servidor as alterações feitas pelo usuário na procedure. Veja :

Private Sub cmdGravar_Click()
'Obtem a procedure do banco de dados
Set sp = db.StoredProcedures(List1.List(List1.ListIndex))
'Realiza a alteração da procedure
sp.Alter rtbproc.Text
End Sub

Lembre-se que ao alterar uma procedure seu código é recompilado.

Com este artigo vimos um pequeno exemplo das funcionalidades do SQLDMO. Assim como vimos a coleção StoredProcedures, o DMO possui diversas outras (Tables, logins, etc.) que permitem a você gerenciar o SQL Server a partir de sua aplicação VB.

Dennes Torres
MCSD,MCSE,MCDBA

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
Conheça mais sobre o nosso site :

• Visite nossa área de artigos técnicos
• Conheça nossas dicas técnicas (mais de 300 dicas)
• Conheça nosso fórum de discussões
• Conheça nossa área de download com muitos componentes e códigos úteis
• Conheça nosso treinamento de lógica de programação on-line
• Conheça nossa prova de certificação em VB (oferecemos certificado aos aprovados)

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::