Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
bom pessoal estou desenvolvendo um pequeno sistema em delphi, mais para aprender mesmo, pois nao possuo muito conhecimento em delphi
uma parte do sistema é o cadastro de empresa
quando tento inserir o cadastro no bando de dados (access) apresenta o seguinte erro: missing sql property
o código é o seguinte:
Function Fun_InsereCadEmpresa(codEmpresa, cgcMf, inscEst, nomeContrib, municipio, uf, fax,
dataInicial, dataFinal, codConvenio, codOperacao, codFinalidade,
logradouro, numero, complemento, bairro, cep, nomeContato,
telefone : String) : String;
begin
try
try
Form1.qryCadEmpresa.Close;
Form1.qryCadEmpresa.Open;
Form1.qryCadEmpresa.Insert;
Form1.qryCadEmpresa.ClearFields;
Form1.qryCadEmpresa.SQL.Add('INSERT INTO tcfDadosEmpresa (codEmpresa, cgcMf,');
Form1.qryCadEmpresa.SQL.Add('inscEst, nomeContrib, municipio, uf, fax, dataInicial,');
Form1.qryCadEmpresa.SQL.Add('dataFinal, codConvenio, codOperacao, codFinalidade,');
Form1.qryCadEmpresa.SQL.Add('logradouro, numero, complemento, bairro, cep,');
Form1.qryCadEmpresa.SQL.Add('nomeContato, telefone) VALUES(null, :pcgcMF, :pinscEst,');
Form1.qryCadEmpresa.SQL.Add(':pnomeContrib,:pmunicipio, :puf, :pfax, :pdataInicial, :pdataFinal,');
Form1.qryCadEmpresa.SQL.Add(':pcodConvenio, :pcodOperacao, :pcodFinalidade,');
Form1.qryCadEmpresa.SQL.Add(':plogradouro, :pnumero, :pcomplemento, :pbairro, :pcep');
Form1.qryCadEmpresa.SQL.Add(':pnomeContato, :ptelefone);');
Form1.qryCadEmpresa.Parameters.ParamByName('cgcMf').Value := cgcMf;
Form1.qryCadEmpresa.Parameters.ParamByName('inscEst').Value := inscEst;
Form1.qryCadEmpresa.Parameters.ParamByName('nomeContrib').Value := nomeContrib;
Form1.qryCadEmpresa.Parameters.ParamByName('municipio').Value := municipio;
Form1.qryCadEmpresa.Parameters.ParamByName('uf').Value := uf;
Form1.qryCadEmpresa.Parameters.ParamByName('fax').Value := StrToInt(fax);
Form1.qryCadEmpresa.Parameters.ParamByName('dataInicial').Value := dataInicial;
Form1.qryCadEmpresa.Parameters.ParamByName('dataFinal').Value := dataFinal;
Form1.qryCadEmpresa.Parameters.ParamByName('codConvenio').Value := StrToInt(codConvenio);
Form1.qryCadEmpresa.Parameters.ParamByName('codOperacao').Value := StrToInt(codOperacao);
Form1.qryCadEmpresa.Parameters.ParamByName('codFinalidade').Value := StrToInt(codFinalidade);
Form1.qryCadEmpresa.Parameters.ParamByName('logradouro').Value := logradouro;
Form1.qryCadEmpresa.Parameters.ParamByName('numero').Value := StrToInt(numero);
Form1.qryCadEmpresa.Parameters.ParamByName('complemento').Value := complemento;
Form1.qryCadEmpresa.Parameters.ParamByName('bairro').Value := bairro;
Form1.qryCadEmpresa.Parameters.ParamByName('cep').Value := cep;
Form1.qryCadEmpresa.Parameters.ParamByName('nomeContato').Value := nomeContato;
Form1.qryCadEmpresa.Parameters.ParamByName('telefone').Value := StrToInt(telefone);
Form1.qryCadEmpresa.ExecSQL;
Form1.qryCadEmpresa.Open;
Form1.qryCadEmpresa.Post;
Result:= 'Registro Inserido Com Sucesso!';
except
on E: Exception do
ShowMessage(E.ClassName + '----------' + E.Message);
end;//try
finally
Form1.qryCadEmpresa.SQL.Clear;
Form1.ADOConnection1.Close;
end;//finally
end; //Fun_InsereCadEmpresaprocedure TForm1.btnSalvarClick(Sender: TObject);
begin
try
ShowMessage(
Fun_InsereCadEmpresa(txtCodEmpresa.Text, txtCGCCNPJ.Text, txtInscEstatual.Text, txtNomeContribuinte.Text,
txtMunicipio.Text, cbxUF.Text, txtFAX.Text, txtDataInicial.Text, txtDataFinal.Text,
txtCodConvenio.Text, txtCodOperacao.Text, txtCodFinalidade.Text, txtLogradouro.Text,
txtNumero.Text, txtComplemento.Text, txtBairro.Text, txtCEP.Text,
txtNomeContato.Text, txtTelefone.Text));
except
on E: Exception do
ShowMessage('Erro ao Cadastrar! Erro: ' + E.ClassName + ' / ' + E.Message);
end;
end;abraço
Carregando comentários...