Estou tendo um problema ao salvar um registro em meu bd. Estou usando Query + UpdateSQL.
O erro é o seguinte: abro um registro, seleciono o que quero modificar, modifico e, ao clicar em salvar aparece a mensagem (Type mismatch in expression .'.).
Porém não consigo achar onde possa estar errado, alguém poderia me ajudar?
Seção do código para salvar
procedure TFaddobs.SpeedButton2Click(Sender: TObject);
var
pw_ansichar_add : PAnsiChar;
l_receive : string;
begin
if (Dmdados.Qaddobs.State in [dsInactive]) then
begin
Application.MessageBox('Primeiro adicione um novo registro para ser salvo.','Goldner',MB_ok +
MB_defbutton1 + MB_iconexclamation);
Abort;
end;
Dmdados.Qaddobs.Active := true;
Dmdados.Qaddobs.ApplyUpdates; //também já tentei o ApplyUpdates em baixo do Post
Dmdados.Qaddobs.Post;
//Dmdados.UpdateSQL2.DataSet.Post;
//Dmdados.Qaddobs.ApplyUpdates;
DBEdit1.Text := Fprogram.DBEdit1.Text;
l_receive := DBEdit1.Text;
pw_ansichar_add := PAnsiChar('Registro salvo com sucesso! Código: ('+ l_receive +')');
Application.MessageBox(pw_ansichar_add,'Goldner',MB_ok +
MB_defbutton1 + MB_iconexclamation);
//Dmdados.Qaddobs.Close;
//Dmdados.UpdateSQL1.DataSet.Post;
BlockButtons;
Pergunta
ZueRa
Boa noite!
Estou tendo um problema ao salvar um registro em meu bd. Estou usando Query + UpdateSQL.
O erro é o seguinte: abro um registro, seleciono o que quero modificar, modifico e, ao clicar em salvar aparece a mensagem (Type mismatch in expression .'.).
Porém não consigo achar onde possa estar errado, alguém poderia me ajudar?
Seção do código para salvar
Desde já agradeço,
Thiago.
Link para o comentário
Compartilhar em outros sites
12 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.