Nenhuma resposta neste tópico

[Totodile]

Isto é uma dica para quem quer trabalhar com ADO sem problemas. Segue abaixo como usarei o Access como exemplo.

1) Vou na guia ADO do delphi, e coloco na tela o Componente ADOConnection.

2) Atribuio ele os seguintes valores:

Name: conexao
Connected: False
Provider: MSDASQL

3) No evento Create do meu Form coloco o seguinte código:

procedure TForm1.FormCreate(Sender: TObject);
  var 
  caminho, arquivo : string;
begin
  //nome do banco de dados
  arquivo := 'banco.mdb';

  //local do banco de dados. aqui extraio a pasta do meu programa, seje onde ele estiver, se o banco estiver lá dentro, ele pegará de lá.
  Caminho := ExtractFilePath(Application.ExeName);

  //No meu componente de conexao com ADO, essa é a seguinte string de conexão com Access
  conexao.ConnectionString := 'Driver={Microsoft Access Driver (*.mdb)};' + 'Dbq='+ arquivo +'; DefaultDir=' + caminho;

  //chama conexao com o banco (conecta)
  conexao.Open;
  
end;

Pronto, agora você se conectou ao bando de dados de Access

Vou mostrar como criar o recordset:

1)

var
  frmTxt: TfrmTxt;
  rs : _recordset;

//aqui indico a variavel rs , para que eu use ela de modo Global no meu projeto.

2) Em seguida vamos buscar algo na tabela produtos:

procedure Tform1.Button1Click(Sender: TObject);
  var
  busca : string;
begin

    busca := 'select * from produtos';
    rs := conexao.execute(busca);
end;

proto, espero que isso ajuda alguem...

Edição feita por: Totodile, 27/05/2005, 22:15.