Buscar por:

Mais sobre ado (delphi7 + access 2000)

Código

Mais uma dica de como manipular dados no Access usando ADO no Delphi:

{

    ConectCard é TADOConnection;

    cmdEmpresa é TADOCommand;

}

procedure TfrmEstabelecimentos.Inserir;

begin

  try

    if frmDataModule.ConectCard.Connected = false then

      frmDataModule.ConectCard.Connected := true;          

    frmDataModule.ConectCard.BeginTrans;

    with frmDataModule.cmdEmpresa do

    begin

      CommandText := 'insert into empresa (empresa, fantasia, cnpj, ie, im, endereco, numero, complemento,' +

                     ' bairro, cidade, uf, cep, nome, email, telefone, fax, obs, reais )'   +

                     ' values (:empresa, :fantasia, :cnpj, :ie, :im, :endereco, :numero, :complemento,' +

                     ' :bairro, :cidade, :uf, :cep, :nome, :email, :telefone, :fax, :obs, :reais)';

      CommandType := cmdText;

      Parameters.ParamByName('empresa').Value     := edtEmpresa.Text;

      Parameters.ParamByName('fantasia').Value    := edtFantasia.Text;

      Parameters.ParamByName('cnpj').Value        := medCNPJ.Text;

      Parameters.ParamByName('ie').Value          := medIE.Text;

      Parameters.ParamByName('im').Value          := edtIM.Text;

      Parameters.ParamByName('endereco').Value    := edtEndereco.Text;

      Parameters.ParamByName('numero').Value      := edtNumero.Text;

      Parameters.ParamByName('complemento').Value := edtComplemento.Text;

      Parameters.ParamByName('bairro').Value      := edtBairro.Text;

      Parameters.ParamByName('cidade').Value      := edtCidade.Text;

      Parameters.ParamByName('uf').Value          := cbxUF.Text;

      Parameters.ParamByName('cep').Value         := medCEP.Text;

      Parameters.ParamByName('nome').Value        := edtContatoNome.Text;

      Parameters.ParamByName('email').Value       := edtEmail.Text;

      Parameters.ParamByName('telefone').Value    := medTelefone.Text;

      Parameters.ParamByName('fax').Value         := medFax.Text;

      Parameters.ParamByName('obs').Value         := memObeservacao.Text;

      Parameters.ParamByName('reais').Value       := edtReal.Text;

      Execute;

    end;

    frmDataModule.ConectCard.CommitTrans;

    ShowMessage('Dados cadastrados com sucesso.');

  except

  frmDataModule.ConectCard.RollbackTrans;

  ShowMessage('Erro ao cadastrar.');

  end;

end;