Conectar Banco de Dados ACESS e Data Module

Question

Pessoal,gostaria que voc�s me ajudassem na minha seguinte d�vida.Como eu fa�o para acessar um banco de dados ACESS sem que o cliente precise configurar nada de alias, etc.Eu preciso que as tabelas fiq...

Bruno_fantin · Answer

Usa ADO com o provider do Jet...E quanto ao datamodule � s� criar um e colocar todas as adoquery dentro dele......

Luisribeiro · Answer

Como eu posso usar o componente sem que precise configurar o ODBC?Voc� poderia me orientar fazendo um favor?Muito Grato,...

Luisribeiro · Answer

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

Bruno_fantin · Answer

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)...

Luisribeiro · Answer

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

Bruno_fantin · Answer

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......

Luisribeiro · Answer

Eu coloquei o banco de dados em uma pasta chamada �dados�, como eu posso resolver isso?abra�os,Luis...

Bruno_fantin · Answer

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...

Luisribeiro · Answer

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,...

Luisribeiro · Answer

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,

Bon Jovi · Answer

[quote:13e22b4575]�DTModulo.tb_loja.FieldByName(�loja�).AsString� d� erro[/quote:13e22b4575]Qual erro??DTModulo est� instanciado?tb_loja foi ativado antes?...

Luisribeiro · Answer

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.

F�rum Conectar Banco de Dados ACESS e Data Module #263441