conectar meu banco de dados em ACCESS via código

Delphi

03/08/2016

Boa tarde pessoal!

Como faço para conectar meu banco de dados em ACCESS via código?
Mailson Janoca

Mailson Janoca

Curtidas 0

Melhor post

Raimundo Pereira

Raimundo Pereira

03/08/2016

O que você tem pronto ?
Onde está localizado seu BD rede ou local ?
GOSTEI 1

Mais Respostas

Augusto Angelim

Augusto Angelim

03/08/2016

Depende do tipo de conexão!
No caso abaixo fiz uma conexão via ODBC (32 bits)

procedure TForm1.Button1Click(Sender: TObject);
begin
  db := TADOTable.Create(Self);
  //
  db.ConnectionString := 'Provider=MSDASQL.1;Persist Security Info=False;Data Source=spdata';
  db.TableName        := 'Countries';
  //
  DataSource1.DataSet := db;
  //
  db.Active := TRUE;
  //
end;


Tem um exemplo aqui em "Exemplos PSCL" ---> "7 - ScriptComAccessMDB.PSCL" (server no Delphi)
www.minhaweb2.com
GOSTEI 0
Mailson Janoca

Mailson Janoca

03/08/2016

Boa noite

só falta a conexão com o banco de dados e o BD é local .
GOSTEI 0
Raimundo Pereira

Raimundo Pereira

03/08/2016

Bom dia,
Nas aplicações que usei BD ACESS, sempre uso o arquivo .UDL para conexão com o banco de dados.

Esse arquivo UDL ficará com o padrão sempre na pasta do EXE da aplicação.

1. Ao carregar sua aplicação você verifica a existência do arquivo UDL, se existir basta conectar

Com isso se precisar alterar o tipo de conexão local para rede basta alterar no arquivo UDL.

Se precisar de um exemplo passe seu email.
GOSTEI 0
Natanael Ferreira

Natanael Ferreira

03/08/2016

Para BD Access eu utilizo componentes ADO da palheta dbgo.

Veja um exemplo de conexão em runtime no evento OnCreate do DataModule:

Deixe seu BD Access na mesma pasta do seu exe.

procedure TDM.DataModuleCreate(Sender: TObject);
var
  BD: string;  
begin
  With ADOConnection1 do
  Begin
    Connected := False;

    BD := ExtractFilePath(Application.ExeName) + 'BD.MDB'; //Troque pelo nome do seu BD
 
    ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + BD +
      ';Persist Security Info=False';

    Connected := True;
  End;
end;
GOSTEI 0
Marco Antonio

Marco Antonio

03/08/2016

Olá amigos.
tenho um sistema em access dividido em sua partes, back-end que contém as tabelas de dados e um banco de dados front-end que contém todos os demais objetos de banco de dados, como consultas, formulários e relatórios.
Como criar um caminho de rede em código(onde coloco esse código? em um formulário?) para conectar meu banco de dados access.
Desde já Agradeço!
GOSTEI 0
POSTAR