Erro ao gravar duas tabelas

[g_informatica 0]

Bom dia, galera...

 

Estou tentando a dias salvar dados em duas tabelas ao mesmo tempo...

Mas não estou conseguindo... O código q estou utilizando foi uma dica q peguei aqui msm no forum, mas não consegui fazê-lo funcionar como esperado.

 

with f_dados.q_lotacao_Aluno do

begin

Close;

SQL.Clear;

SQL.Add('INSERT INTO LOTACAO_ALUNO');

SQL.Add('(CODESCOLA, CODSERIE, CODTURMA)');

SQL.Add('VALUES(' + QuotedStr(f_dados.q_Lotacao_alunosCodescola.AsString) + ',' + QuotedStr(f_dados.q_Lotacao_alunosCodserie.AsString) + ',' + QuotedStr(f_dados.q_lotacao_alunoscodturma.AsString) + ',' ') ');

ExecSQL;

 

Após colocar esse código no evento afterpost da query dá o seguinte erro:

Unclosed quotation mark before the character string')'

 

Se alguém puder me ajudar, eu agradeço muito!!!

O link q peguei essa informação é http://forum.imasters.com.br/lofiversi...hp/t264429.html

[marcio.theis 3]

Quais são os tipos de campos para os itens CODESCOLA, CODSERIE, CODTURMA ?

[Marcelo R Moura 0]

o erro está aqui QuotedStr(f_dados.q_lotacao_alunoscodturma.AsString) + ',' ') ');

 

tira essa concatenação com essa virgula em negrito.

[g_informatica 0]

Oi galera, obg pelas resp.

 

Respondendo a pergunta de marcio.theis, os tipos do campo (CODESCOLA - char , CODSERIE - int , CODTURMA - int)

 

Quanto ao tirar a concatenação, Marcelo R Moura - QuotedStr(f_dados.q_lotacao_alunoscodturma.AsString) + ',' ') '); eu fiz e nao deu nenhum erro, porem os registros so ficam salvo na tbaluno... Ele nao grava na tblotacao_aluno.

 

Se vcs puderem me ajudar novamente, eu agradeco...

[g_informatica 0]

Oi galera,

 

Mais uma vez agradeço aos amigos q enviaram respostas.... Consegui resolver meu proeblema!!!

 

Na tab.aluno, coloquei o seguinte código no botão salvar, logo após o comando p/ gravar os registros:

 

f_dados.Q_ALUNO.post;

messagedlg('Registro Gravado...',mtinformation,[mbok],0);

with f_dados.Q_LOTACAO_ALUNOS do

begin

f_dados.Q_LOTACAO_ALUNOS.Insert;

f_dados.Q_LOTACAO_ALUNOSCODESCOLA.Value:=f_dados.Q_ALUNOCODESCOLA.Value;

f_dados.Q_LOTACAO_ALUNOSCODALUNO.Value:=f_dados.Q_ALUNOCODIGO.Value;

f_dados.Q_LOTACAO_ALUNOSCODSERIE.Value:=f_dados.Q_ALUNOCODSERIE.Value;

f_dados.Q_LOTACAO_ALUNOSCODTURMA.Value:=f_dados.Q_ALUNOCODTURMA.Value;

f_dados.Q_LOTACAO_ALUNOSCONFIGURACAO.Value:=f_dados.Q_ALUNOCONFIGURACAO.Value;

f_dados.Q_LOTACAO_ALUNOS.Post;

 

Assim, logo após ele gravar os dados na tab.aluno, ele dá um insert na tab. lota_aluno e grava os msms dados nela.

Não sei se dessa maneira é o correto, mas deu certo!!! Esse é o famoso improviso... Vlw galera!!!