Aceess com ADO

[Celamar 0]

Como faço para conectar com o "banco" de dados Access via ADO quando eu tenho sosmente o arquivo .mdb do access?Obrigada

[IvanLeal 0]

Tudo bem Celamar,

 

Use esta rotina para fazer a conexão com o mdb.

 

xconec := CreateOleObject('ADODB.Connection');

xconec.open('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db\db.mdb;');

oRs :=CreateOleObject('adodb.Recordset');

oRs.open('select * from clientes',xconec,3,3);

 

A rotina acima você pode colocar no Evento Create do Form, por exemplo.

 

E mais um detalhe importante, declare no sessão "USES" a unit "ComObj"

 

Ex.:

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs,ComObj, StdCtrls, DB, Buttons, Grids, DBGrids, DBCtrls;

[felovatto 0]

Olá Celamar, td certo? No delphi 7 você pode fazer assim:- Depois de criado o bd MDB, abrir o delphi e criar um DataModule;- Inserir nesse DataModule o objeto "ADOConnection (ADODB)" que está na ficha "ADO" do Delphi;- Com o ADOConnection selecionado, encontre a propriedade "ConnectionString" e clique nos 3 pontinhos;- Uma janela será aberta. Selecione "Use Connection String" e clique em "Build..."- Abrirá a janela de "Propriedades de Vinculação de Dados". - Na ficha "Provedor", selecionar "Microsoft Jet 4.0 OLE DB Provider".- Na ficha "Conexão", selecionar o caminho do BD e preencher o "Nome de usuário" e "Senha" (Normalmente é "Admin" e "senha em branco").- Pode-se testar clicando em "Testar conexão".- Na ficha "Avançadas", selecionar as "Permissões de acesso" como "Share Deny None".- Clique em OK.- Inserir no DataModule um objeto "ADOTable (ADODB)", que se encontra na ficha "ADO" do Delphi;- Na propriedade "Connection" do "ADOTable", selecionar o objeto "ADOConnection" (criado anteriormente).- Na propriedade "TableName" do "ADOTable", selecionar a tabela desejada. E, na propriedade "Active", selecionar "True".- Inserir no "DataModule" um objeto "DataSource". que está na ficha "Data Access" do Delphi.- Na propriedade "DataSet" do "DataSource", selecionar o "ADOTable" criado anteriormente.- Pronto! Agora pode-se usar como se fosse uma tabela normal do Delphi, usando um "ADOTable" e um "DataSource" para cada tabela.OBS: Se você não quiser ficar digitando a senha toda vez que for iniciar o banco, selecione o "ADOConnection" e na propriedade "LoginPrompt" coloque "False".É isso ai, assim você não precisa fazer uma linha de programação para conectar o bd. Qualquer dúvida poste novamente.Abraço,Fernando.

[christianhess 0]

Outro meio também eh ir na Guia ADO eadicionar o objeto ADOConnection e depois acrescentar no formulário por exemplo:

 

Formulário chamado: frmIndex ( formIndex.pas )

 

" Conexao = o Objeto ADOConnection "

 

unit formIndex;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ADODB, DB;type  TfrmIndex = class(TForm)    Conexao: TADOConnection;    procedure FormCreate(Sender: TObject);  private  public    { Public declarations }  end;var  frmIndex: TfrmIndex;  rs : _recordset;implementation{$R *.dfm}procedure TfrmIndex.FormCreate(Sender: TObject);var    caminhoE, arquivo, busca : string;begin  arquivo := 'banco.mdb';  CaminhoE := ExtractFilePath(Application.ExeName);  conexao.ConnectionString := 'Driver={Microsoft Access Driver (*.mdb)};' + 'Dbq='+ arquivo +'; DefaultDir=' + caminhoE;  conexao.Open;  busca := 'select * from users';  rs := conexao.execute(busca);  if not rs.eof then begin     rs.MoveFirst;  end  else begin     exit;  end;end;

Ajudou? valeuz... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif