Esta função permite você chamar o formulário de criação de string de conexão para o ADO.

uses ADODB; function PromptADOConnection(ParentHandle: THandle;   InitialString: WideString): WideString; begin   // Chamando o formulário para criar string de conexão para o ADO   Result := PromptDataSource(ParentHandle, InitialString); end; procedure TForm1.Button1Click(Sender: TObject); var   S: string; begin   S := PromptADOConnection(Self.Handle, ''); end;

Quebra-Linha

Colaborador..: Marco Paulo
Categoria(s).: Banco de Dados;
Versão.......: 1
Data.........: 21/10/2004 11:25:00
Visualizado..: 4045 vezes
Fonte........: Marco Paulo