Inclusão

[Guest - Carla -]

Pessoal, estou fazendo uma inclusão de dados em uma tabela do access. Acontece q ele incluí apenas o Cod, os outros dados ficam em branco na tabela. O engraçado é q eu já havia feito assim antes e funcionou, agora não funciona mais. Alguém sabe o q devo fazer?

Var Erro: Boolean;

Nome: String;

begin

Erro:= False;

if (edtNome2.Text = '') then

Begin

Application.MessageBox('O campo nome é obrigatório!','Erro', MB_ICONERROR + MB_OK);

Erro:= True;

End;

if not (qryDados.Eof) then

Begin

qryDados.Active := False;

qryDados.SQL.Clear;

qryDados.SQL.Add('Select Nome from Dados');

qryDados.Active := True;

Nome:= qryDados.FieldByName('Nome').asString;

if (Nome = edtNome2.Text) then

Begin

Application.MessageBox('Este nome já existe','Erro', MB_ICONERROR + MB_OK);

Erro:= True;

End

End

else

If (Erro = False) then

Begin

qryDados.Close;

qryDados.SQL.Clear;

qryDados.SQL.Add('Insert Into Dados (Nome, Endereco, Bairro, Num, Telefone, Cep, Email, Pagina, Celular, Niver, Cod) Values ('+#39+edtNome2.Text+#39+','+#39+edtEndereco2.Text+#39+','+#39+edtBairro2.Text+#39+','+#39+edtNum2.Text+#39+','+#39+edtTel.Text+#39+','+#39+edtCep2.Text+#39+','+#39+edtEmail2.Text+#39+' ,'+#39+edtPagina2.Text+#39+', '+#39+edtCelular2.Text+#39+', '+#39+edtniver.Text+#39+', '+#39+frmLogin.label6.caption+#39+')');

qryDados.ExecSQL;

Application.MessageBox('Inclusão feita com sucesso','Incluído', MB_ICONExclamation + MB_OK);

End

else

Begin

edtNome2.SetFocus;

edtNome2.Text:= '';

edtEndereco2.Text:= '';

EdtNum2.Text:= '';

edtBairro2.Text:= '';

edtCep2.Text:= '';

edtEmail2.Text:= '';

edtCelular2.Text:= '';

edtPagina2.Text:= '';

edtniver.Text:= '';

edtTel.Text:= ''

End;

end;

[Guest Guest]

Pessoal, acabei de ver q ele não identifica o field no dbedit, mas porque?

[Progr'amador]

deve estar entrando no else e limpando os campos antes de inserir, vê que o COD vem de um Label e no else ele não limpa esse label.

pode sê isso!

Abs. Progr'amador.