Carga da UDL

procedure TForm1.FormCreate(Sender: TObject);
var

spath : string;
begin

spath := extractfilepath(application.ExeName);
ADOConnection1.Connected :=False;
ADOConnection1.ConnectionString:= ‘FILE NAME=’+spath+’conexao.udl’;

ADOConnection1.Connected :=True;
ADOTable1.Active:=True;

end;

Esse post foi publicado em Macarrão e marcado , , . Guardar link permanente.

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s