Conectar Banco de Dados ACESS e Data Module

Usa ADO com o provider do Jet...

E quanto ao datamodule é só criar um e colocar todas as adoquery dentro dele...

Como eu posso usar o componente sem que precise configurar o ODBC?
Você poderia me orientar fazendo um favor?

Muito Grato,

Mas é um seguinte, eu queria que quando eu jogasse os arquivos do sistema em uma determinada pasta, o sistema já pegaria o caminho do banco de dados, tem como?

Aguardo uma ajuda por favor,.....

Luis

Dica... Para não ter problema com a pasta do banco... Copia o banco na mesma pasta do executavel... Ai você pode mudar os dois de pasta sem nenhum problema... Isso só funciona para aplicação que não vai rodar em rede...

Para configurar o ADO:
* Coloca um ADOConnection no datamodule...
* Der um duplo click nele...
* Der um duplo click na opção do Jet...
* Escolha o caminho do banco e der ok... (Se você segiu a dica acima não precisa informar o caminho... Só precisa informar o banco)...

Mas vamos supor, ele pede p/ colocar o caminho do banco de dados, vamos supor que eu selecionei, ta no C: e depois eu crio um instalador e instalo o programa no D: o caminho ele pega automático?

Será que no código eu não devo colocar aquele código que pega o caminho?

Muito obrigado pela ajuda...

abraços,
Luis

Se você colocar o banco na mesma pasta do exe não precisa fazer mais nada...

Se colocou em uma pasta diferente então vai ter que fazer via codigo sim...

Eu coloquei o banco de dados em uma pasta chamada ´dados´, como eu posso resolver isso?

abraços,
Luis

Se a pasta dados for subpasta da pasta do exe então faz isso...

var Caminho: String;

Caminho := ExtractFilePath(Application.ExeName);

Caminho := Caminho + ´\Dados\Banco.mdb´;


Ai você tem que substituir essa variavel caminho dentro da connection string do ADOConnection...

Bruno,
a respeito dos tópicos acima, ocorreu tudo perfeito.

Só que agora, me pintou outra dúvida que está me traumatizando, é o seguinte. Eu criei um Data Module e lá com o ADO Conection e Table.

Ou seja, minha tabela chama: tb_loja, daí quando eu estou em outro form e tento buscar um campo da tabela ´DTModulo.tb_loja.FieldByName(´loja´).AsString´ dá erro.

A Unit do Module está mencionada certinho no Formulário que eu estou tentando recuperar o campo.

Por favor, ajude-me.

Desculpe por encher seu saco...

Abraços,

Para ser mais específico, eu não consigo recuperar um campo de uma tabela, tentei: DTModulo.tb_loja.ParamByName(´loja´).AsString;

Mas não funciona de jeito nenhum, você sabe o que pode estar acontecendo?

Abraços,

Qual erro??

DTModulo está instanciado?
tb_loja foi ativado antes?

Dá erro nesta linha:
StatusBar1.Panels[2].Text:=´ Loja: ´+DTModulo.tb_loja.ParamByName(´loja´).AsString;

O cursor para onde está ´ParamByName(´loja´)´.

O Módulo está instanciado na Uses, veja meu código abaixo:

unit UPrincipal;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, WinSkinData, ToolWin, ComCtrls, Menus, StdCtrls, Mask,
DBCtrls, DB, ADODB;

type
TFrmPrincipal = class(TForm)
MainMenu1: TMainMenu;
Cadastros1: TMenuItem;
ToolBar1: TToolBar;
SkinData1: TSkinData;
Timer1: TTimer;
StatusBar1: TStatusBar;
Cadastros2: TMenuItem;
Cliente1: TMenuItem;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
FrmPrincipal: TFrmPrincipal;

implementation

uses UModulo;

{$R *.dfm}

procedure TFrmPrincipal.FormCreate(Sender: TObject);
begin
StatusBar1.Panels[0].Text:=´ ´+DateToStr(now);
StatusBar1.Panels[1].Text:=´ Logado às ´+TimeToStr(now);
StatusBar1.Panels[2].Text:=´ Loja: ´+DTModulo.tb_loja.ParamByName(´loja´).AsString;
end;

end.


Obrigado.