Fórum Como gravar em duas tabelas? #346971

como é que está seu código de gravação no banco?
eh direto com um dbcontrol?

ou usando insert?

Então, primeiro eu fiz com dbedit, mas me disseram que no momento em que ocorre o cdsMeu.dataset.post e ApplyUpdates(0) o servidor de banco de dados gera um erro e não aceita.
Agora estou tentando usar os controles padrões, mas estou apanhando pra caramba.

cara eu nunca usei o cliente dataset pra gravar... como vc está fazendo???

///// Estou usando este código no botão novo:

procedure TfrmPadrao.btnNovoClick(Sender: TObject);
begin
if not dstGenerico.DataSet.Active then
dstGenerico.DataSet.Open;
with dstGenerico.DataSet do
begin
Append;
FieldValues[´CPF´] := Trim(frmFuncionarios.txtCPF.Text);
FieldValues[´NOME´] := Trim(frmFuncionarios.txtNome.Text);
FieldValues[´ENDERECO´] := Trim(frmFuncionarios.txtEndereco.Text);
FieldValues[´BAIRRO´] := Trim(frmFuncionarios.txtBairro.Text);
FieldValues[´CIDADE´] := Trim(frmFuncionarios.txtCidade.Text);
FieldValues[´ESTADO´] := Trim(frmFuncionarios.txtUF.Text);
FieldValues[´CEP´] := Trim(frmFuncionarios.txtCEP.Text);
FieldValues[´RG´] := Trim(frmFuncionarios.txtRG.Text);
FieldValues[´DT_NASC´] := Trim(frmFuncionarios.mskDT_NASC.Text);
FieldValues[´SEXO´] := Trim(frmFuncionarios.cbxSexo.Text);
FieldValues[´PROFISSAO´] := Trim(frmFuncionarios.txtProfissao.Text);
end;
end;

///// Estou usando este código no botão salvar:

procedure TfrmPadrao.btnSalvarClick(Sender: TObject);
begin
dstGenerico.DataSet.Post;
end;

///// E este no afterpost:

procedure TdmdPrincipal.cdsPessoasAfterPost(DataSet: TDataSet);
begin
cdsPessoas.ApplyUpdates(0);
end;

//////// Funciona bem pra uma tabela, mas não sei como fazer para gravar em duas tabela...

///// E este é select que estou usando:

SELECT
p.CPF, p.RG, p.NOME, p.ENDERECO, p.BAIRRO, p.CIDADE, p.ESTADO,
p.CEP, p.SEXO, p.PROFISSAO, p.DT_NASC, p.DT_CADASTRO,
f.Numero, f.CPF as fCPF, f.TIPO
FROM
tbPessoa p,
tbTelefone f

Vc vai ter que fazer 2 inserts...
eu acho q n tem pra onde correr...

Legal Mayron, acho que encontrei um tópico que fala sobre isso.
http://forum.clubedelphi.net/viewtopic.php?t=75421&highlight=dbexpress+iniciante
Acho que é isso que estou precisando.