Registriert seit: 19. Apr 2006
40 Beiträge
|
Re: Einen SqlTimeStamp in einen String umwandeln
17. Mai 2006, 08:38
Es stimmt alles so wie es soll...
Delphi-Quellcode:
//DEFAULTWERTE //
zquery1.ParamByName('name').Value:='N/A';
zquery1.ParamByName('durchlauf').Value:=0;
zquery1.ParamByName('status').Value:='N/A';
zquery1.ParamByName('produktnummer').Value:='0';
if (cutrev(tempstring,'_')='ERROR') or (cutrev(tempstring,'_')='OK') then
begin
zquery1.ParamByName('status').value:=cutrev(tempstring,'_');
//showmessage('status='+(cutrev(tempstring,'_')));
tempstring:=cut(tempstring,'_');
end;
if ((length(cutrev(tempstring,'_'))=1) or (length(cutrev(tempstring,'_'))=2)) and (length(cutrev(tempstring,'_'))<>0) then
begin
zquery1.ParamByName('durchlauf').value:=cutrev(tempstring,'_');
//showmessage('durchlauf='+(cutrev(tempstring,'_')));
tempstring:=cut(tempstring,'_');
end;
if (cutrev(tempstring,'_')='') xor not(strisalpha(cutrev(tempstring,'_'))) then
begin
zquery1.ParamByName('produktnummer').value:=cutrev(tempstring,'_');
//showmessage('Produktnummer='+(cutrev(tempstring,'_')));
tempstring:=cut(tempstring,'_');
end;
if tempstring<>'' then
begin
if tempstring[length(tempstring)]='_' then
begin
setlength(tempstring,length(tempstring)-1);
end;
zquery1.ParamByName('name').value:=tempstring;
//showmessage('name='+tempstring);
end;
zquery1.SQL.Add('INSERT INTO berichte (name,durchlauf,status,produktnummer) VALUES ( :name, :durchlauf, :status, :produktnummer)');
zquery1.ExecSQL;
zquery1.SQL.Clear;
Er sagt mir immer das parameter 'xyz' nicht existiert.
|
|
Zitat
|