boa noite gente, alguem pode me dizer ond estou errando na query abaixo?
o programa acha o valor certo mas não grava qdo mando dar o update.grata
begin
//1-pegar arquivo texto deve ser c alguma coisa
//*********************************************************
lstArquivo := TStringList.Create;
// Aqui vc criou o TStringList !!!
if OpenDialog1.Execute then
begin
lstArquivo.LoadFromFile(OpenDialog1.FileName);
header:=lstarquivo[0];
// NOMEPORT:= copy(header,5,40);
rodape:=(lstarquivo[lstarquivo.count -1]);
if lstArquivo.Count > 0 then
begin
for i := 1 to lstArquivo.Count - 2 do // Ignora última linha
begin
sLinhaTxt := lstArquivo[i];
//********************************************************
With cdslocal do //****JGANDO NA TAB AUXILIAR
begin
Append;
//********************************************************************
//*******ESTES CAMPOS EU USO NA TABELA TITULOS POR ISSO GRAVO + TARDE
//*******NA OUTRA TABELA TBLTIT
FieldByName('protocolo').AsString := Copy(sLinhaTxt, 1, 10);
FieldByName('data').Asstring := Copy(sLinhaTxt, 11, 9);
FieldByName('nome').AsString := Copy(sLinhaTxt, 20, 45);
FieldByName('pracapagto').AsString := Copy(sLinhaTxt, 65, 20);
FieldByName('nossonum').AsString := Copy(sLinhaTxt, 86, 14);
Post;
end;
end;
end;
end;
lstArquivo.Free;
//************************************************************
erros := TStringList.Create;
with cdslocal do
begin
while not eof do //se ñ estiver no final
begin
cond := True; //Marcar a condição de fazer UPDATE como TRUE (Atualização
Liberada)
edit1.text:=cdslocalnossonum.asstring;
DM1.qrytit.CLOSE;
dm1.qrytit.selectSQL.Clear;
dm1.qrytit.selectSQL.Add('Select * from titulos');
dm1.QRYtit.selectSQL.Add('where nossonum='+chr(39)+EDIT1.Text+chr(39));
dm1.qrytit.open;
if not cond then // ou seja, se cond=false...
begin
erros.add('Registro tal'+cdslocalnossonum.AsString+' não passou na
critica por isso ou aquilo');
end else begin
dm1.qrytit.close;
dm1.qrytit.modifysql.clear;
dm1.qrytit.modifysql.add('update titulos set');
dm1.qrytit.modifysql.add('protocolo='+chr(39)+cdsLocalprotocolo.Asstring+chr(39));
//
dm1.qrytit.modifysql.add(',nossonum='+chr(39)+cdsLocalnossonum.AsString+chr(39));
//
dm1.qrytit.modifysql.add(',sacado='+chr(39)+cdsLocalnome.AsString+chr(39));
//
dm1.qrytit.modifysql.add(',pracapagto='+chr(39)+cdsLocalpracapagto.AsString+chr(39));
//
dm1.qrytit.selectsql.add(',dtentrada='+chr(39)+strtodatetime(cdsLocaldata.asstring)+chr(39));
showmessage('update');
try // tente...
dm1.qrytit.open;
//dm1.qrytit.execsql;
except //Se deu erro na hora de gravar então.:
erros.Add('Registro tal'+cdslocalnossonum.AsString+' falta dados no
campo XX');
end;
end;
next;
end;
//Acabou... vc executou todos os registros !!!
end;
uso delphi5 e qrytit é um ibdataset
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
