Einzelnen Beitrag anzeigen

Mayday171

Registriert seit: 19. Apr 2006
40 Beiträge
 
#7

Re: Einen SqlTimeStamp in einen String umwandeln

  Alt 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.
  Mit Zitat antworten Zitat