passei a tarde tentando fazer com que o código me passado pelo meu caro colega s3c e o micheus, mas não estou conseguindo segue o código que implementei, esta quase fazendo o que eu quero a não ser que pelo fato do nome QUE não ESTA CADASTRADO O SISTEMA TERIA QUE GRAVAR, mas grava somente o código o resto do registro ele não grava já tentei de tudo ate INSERT INTO EU já FIZ. CONTO COM A AJUDA DE vocês NOVAMENTE...Segue o código ATUAL E DEPOIS PASSAREI O QUE já TENTEI E não DEU CERTO.
Pergunta
Guest - a_xavier31 -
Meu caros amigos deste forum, Boa noite.
passei a tarde tentando fazer com que o código me passado pelo meu caro colega s3c e o micheus, mas não estou conseguindo segue o código que implementei, esta quase fazendo o que eu quero a não ser que pelo fato do nome QUE não ESTA CADASTRADO O SISTEMA TERIA QUE GRAVAR, mas grava somente o código o resto do registro ele não grava já tentei de tudo ate INSERT INTO EU já FIZ. CONTO COM A AJUDA DE vocês NOVAMENTE...Segue o código ATUAL E DEPOIS PASSAREI O QUE já TENTEI E não DEU CERTO.
procedure TCadClifor.btn_gravarClick(Sender: TObject);
begin
strSql:= 'SELECT * FROM ' + nomeTabela;
strSql:= strSql + ' WHERE NOME = ' + #39 + DBEdit1.Text + #39;
IBDataSet1.Close;
IBDataSet1.SelectSQL.Clear;
IBDataSet1.SelectSQL.Add(strSql);
IBDataSet1.Open;
if IBDataSet1.RecordCount > 0 Then
begin
ShowMessage('Este nome já existe!!!!');
end
else
begin
IBDataSet1.Insert;
IBDataSet1.Post;
DM.Trans.CommitRetaining;
mensagem:= 'O Registro foi Incluido ou alterado com sucesso. ';
Application.MessageBox(Pchar(mensagem), 'Informação', MB_OK+MB_ICONINFORMATION);
Executar:=habilitaBotoes;
end;
end; ESTE É O ATUAL QUE não ESTA GRAVANDO O REGISTRO SÓ O CÓDIGO
ESTE É O QUE já TENTEI E DEU ERRO A BEÇA
strSql:= 'SELECT * FROM ' + nomeTabela;
strSql:= strSql + ' WHERE NOME = ' + #39 + DBEdit1.Text + #39;
IBDataSet1.Close;
IBDataSet1.SelectSQL.Clear;
IBDataSet1.SelectSQL.Add(strSql);
IBDataSet1.Open;
if IBDataSet1.RecordCount > 0 Then
begin
ShowMessage('Este nome já existe!!!!');
end
else
begin
strSql:= 'INSERT INTO CLIFOR (CF,PFPJ,NOME,NOME_FANTASIA,RUA_AV,BAIRRO,CIDADE,CEP,ESTADO,TELEFONE,RAMAL,CELULAR,FAX,'+ #13
+ 'EMAIL,CPF_CNPJ,RG_IE,NOME_CONTATO,TEL_CONTATO,CEL_CONTATO,E_MAIL_CONTATO)VALUES(NULL,NULL,NULL,NULL,NULL,DBComboBox1.Text,DBComboBox2.Text,'+ #13
+ 'Dbedit1.Text,Dbedit2.Text,Dbedit3.Text,Dbedit4.Text,Dbedit5.Text,Dbedit6.Text,DBComboBox3.Text,Dbedit7.Text,Dbedit8.Text,Dbedit9.Text,'+#13
+ 'Dbedit10.Text,Dbedit11.Text,Dbedit12.Text,Dbedit13.Text,Dbedit14.Text,Dbedit15.Text,Dbedit16.Text,Dbedit17.Text,NULL)' ;
IBDataSet1.Post;
DM.Trans.CommitRetaining;
mensagem:= 'O Registro foi Incluido ou alterado com sucesso. ';
Application.MessageBox(Pchar(mensagem), 'Informação', MB_OK+MB_ICONINFORMATION);
Executar:=habilitaBotoes;
end;
MAIS UMA VEZ CONTO A AJUDA DE vocês MEU CAROS COLEGAS.....
Link para o comentário
Compartilhar em outros sites
3 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.