Artigo: 286189 - Última revisão: segunda-feira, 30 de Agosto de 2004 - Revisão: 2.3

Como invocar a caixa de diálogo Propriedades de ligação OLE DB data no código do Visual Basic

Vista lado a ladoClique aqui para exibir o artigo traduzido e o artigo original em inglês, lado a lado.
Tradução automáticaVer isenção de responsabilidades para tradução automática
Ver produtos para os quais este artigo se aplica.
Dica do SistemaEste artigo aplica-se a um sistema operativo diferente do que está a utilizar. Foi desactivado o conteúdo do artigo, que pode não ser relevante para si.
Expandir tudo | Reduzir tudo

Sumário

A caixa de diálogo Propriedades de ligação de dados OLE DB é normalmente utilizada para definir ou editar atributos de cadeia de ligação ADO (ActiveX Data Object) de dados ADO controlos, objectos de ligação do Visual Basic 6.0 DataEnvironment e Universal Data Link (UDL). Este artigo documentos um código de exemplo que demonstra como invocar programaticamente e utilizar esta caixa de diálogo numa aplicação do Visual Basic para construir a cadeia de ligação para um objecto Connection do ADO executar tempo utilizando uma gráfica do utilizador interface interface do controlador (GUI, Graphical User Interface). Esta é uma funcionalidade útil para implementar em aplicações e ferramentas que possam exigir aos utilizadores especificar uma cadeia de ligação ADO em tempo de execução.

Mais Informação

O OLE DB Service Component 1.0 biblioteca de tipos (oledb32.dll) que é instalado pelo Microsoft Data Access Components (MDAC) implementa um objecto com o nome DataLinks cujos métodos PromptEdit e PromptNew podem invocar e utilizar a caixa de diálogo Propriedades de OLE DB ligação de dados para definir ou editar as cadeias de ligação ADO.

Os seguintes passos configurar um exemplo do Visual Basic que demonstra como utilizar o objecto DataLinks de OLE DB Service Component 1.0 biblioteca de tipos para editar as propriedades de cadeia de ligação de um objecto de ligação ADO:
  1. Abra um novo projecto de EXE padrão no Visual Basic. É criado o Form1 por predefinição.
  2. No menu projecto , defina referências a biblioteca do Microsoft ActiveX Data Objects 2.x e OLE DB Service Component 1.0 biblioteca de tipos .
  3. Arrastar e largar um CommandButton no Form1 e tornar a legenda Definir ligações .
  4. Copiar e colar o seguinte código para o módulo de código do Form1: 
    Dim cn As ADODB.Connection

Private Sub Command1_Click()

Dim MSDASCObj As MSDASC.DataLinks
Set MSDASCObj = New MSDASC.DataLinks

Set cn = New ADODB.Connection
MSDASCObj.PromptEdit cn

cn.Open
MsgBox "Connection opened successfully"
cn.Close
End Sub
  5. Guarde o projecto e executá-la.
  6. Clique em Definir ligação e repare que o código no procedimento de evento clicar de no CommandButton cria uma instância do objecto MSDASC.DataLinks e executa o método PromptEdit para apresentar a caixa de diálogo OLE DB propriedades de ligação de dados . Esta caixa de diálogo é apresentada como uma janela modal. Como resultado, subsequente código que se segue a chamada ao método PromptEdit não é executado até que a caixa de diálogo Propriedades de ligação de dados é dispensada.
  7. Seleccione um fornecedor OLEDB adequado no separador de fornecedores e, em seguida, especifique outros atributos de ligação para estabelecer uma ligação a uma das bases de dados (Access, SQL Server, Oracle e por aí em diante).
  8. Clique em Testar ligação na caixa de diálogo Propriedades de ligação de dados para testar a ligação. Repare que receberá uma caixa de mensagem Testar ligação com êxito se a ligação com êxito. Fechar a caixa de diálogo, clicando em OK . Agora é executado o restante código no procedimento de evento clicar de no CommandButton . A propriedade ConnectionString do objecto Connection do ADO que foi transmitido como um parâmetro do método PromptEdit é inicializado consoante as definições que seleccionou na caixa de diálogo Propriedades de ligação de dados .

    As instruções que se seguem a chamada ao método PromptEdit do objecto MSDASC.DataLinks abrir e fechar uma ligação ADO utilizando o objecto de ligação ADO que é inicializado pela chamada do método PromptEdit . Isto verifica que a ligação ADO propriedade do objecto ConnectionString foi definida correctamente de acordo com as opções seleccionadas na caixa de diálogo Propriedades de ligação de dados . Se clicar em a Cancelar na caixa de diálogo Propriedades de ligação de dados , a instrução CN.Open no código do Visual Basic gera um erro durante a execução para indicar que-não conseguiu estabelecer uma ligação utilizando ConnectionString não inicializado.

    Nota : É possível verificar ConnectionString para verificar se está vazia a ligação ("") e detectar o Cancelar antes da instrução connection.open.
A informação contida neste artigo aplica-se a:
  • Microsoft Visual Basic 5.0 Enterprise Edition
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
  • Microsoft Visual Basic 6.0 Enterprise Edition Service Pack 3
  • Microsoft Visual Basic 6.0 Enterprise Edition Service Pack 4
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft OLE DB 2.0
  • Microsoft OLE DB 2.1
  • Microsoft OLE DB 2.5
  • Microsoft OLE DB 2.6
  • Microsoft ActiveX Data Objects 2.0
  • Microsoft ActiveX Data Objects 2.01
  • Microsoft ActiveX Data Objects 2.1
  • Microsoft ActiveX Data Objects 2.1 Service Pack 1
  • Microsoft ActiveX Data Objects 2.1 Service Pack 2
  • Microsoft ActiveX Data Objects 2.5
  • Microsoft ActiveX Data Objects 2.6
  • Microsoft ActiveX Data Objects 2.7
Voltar ao topo
Palavras-chave: 
kbmt kbhowto KB286189 KbMtpt
Tradução automáticaTradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine translation ou MT), não tendo sido portanto revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática? erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 286189  (http://support.microsoft.com/kb/286189/en-us/ )
Voltar ao topo