[Microsoft][ODBC SQL Server Driver]String data, right truncation.

http://support.microsoft.com/kb/183059

Stoney

Hmm, kan jeg bruger det til noget? :)

Jeg har lavet dette i en andet program som flytter data fra en db til en anden db og her bruger jeg samme rutine, men jeg har ingen problemer her.

        for Y := 0 to FileList.Count - 1 do
        begin
          Label2.Caption := FileList.Strings[Y];
          Label2.Refresh;
          ADOQuery1.SQL.Text := 'Select DATALOG From DATALOG Where FILENAME='+Quotedstr(FileList.Strings[Y]);
          ADOQuery1.Open;
          while not ADOQuery1.Eof do
          begin
            MemoryStream := (ADOQuery1.CreateBlobStream(ADOQuery1.FieldByName('DATALOG'),bmRead) as TMemoryStream);
            DataList.LoadFromStream(MemoryStream);
            Memo1.Lines.Text := DataList.Text;
            Memo1.Refresh;
            ADOQuery4.SQL.Text := 'Insert Into DATALOG (NAME, FILENAME, FILEDATA) Values(:ParamNAME,:ParamFILENAME,:ParamFILEDATA)';
            ADOQuery4.Connection.BeginTrans;
            try
              ADOQuery4.Parameters.ParamByName('ParamNAME').Value := UserList.Strings[I];
              ADOQuery4.Parameters.ParamByName('ParamFILENAME').Value := FileList.Strings[Y];
              ADOQuery4.Parameters.ParamByName('ParamFILEDATA').Value := DataList.Text;
              ADOQuery4.ExecSQL;
              ADOQuery4.Connection.CommitTrans;
            except
              ADOQuery4.Connection.RollbackTrans;
              Raise;
            end;

hvad data type er ParamFILEDATA og hvor lang er DataList.Text ?

(altså: er der plads til data ?)

ParamFILEDATA er nText i en SQL db. DataList.text er en txtfil som fylder 39k.

Er DataList ikke uendeligt eller meget stor?

Er der en der har en ide?

Jeg kunne virkeligt godt bruge noget hjælp her.

Dette er min procedure hvor den fejler:

procedure TALBackupCheck.DirWatch1NewFileCreated(Sender: TObject;
  const FileName: string);
var tmp : string;  MemoryStream : TMemoryStream; DataList : TStringList;
begin
  LogMessage('File created: ' + Filename,EVENTLOG_AUDIT_SUCCESS);
  MemoryStream := TMemoryStream.Create;
  if pos('CDATABUP',Filename) <> 0 then
  begin
    if pos('Log',Filename) <> 0 then
    begin
      if pos('DKSOLT',Filename) or pos('DKSODT',Filename) <> 0 then
      begin
        try
          StringList := TStringList.Create;
          repeat
            Sleep(100);
          until not FileInUse(Filename);
          try
            StringList.LoadFromFile(FileName);
          except
            on EFopenError do
            begin
              LogMessage('Cannot open file: ' + filename,EVENTLOG_INFORMATION_TYPE);
            end;
          end;
        finally
          LogMessage(filename + ' open.',EVENTLOG_INFORMATION_TYPE);
          if (POS('ROBOCOPY', StringList.Strings[2]) <> 0) and (POS('Version XP010', StringList.Strings[2]) <> 0) then
          begin
            Navn := StringList.Strings[8];
            Delete(Navn,1,pos('\',Navn));
            Delete(Navn,1,pos('\',Navn));
            Delete(Navn,1,pos('\',Navn));
            Delete(Navn,1,pos('\',Navn));
            Navn := copy(Navn,1,pos('\',Navn)-1);
            Filnavn := ExtractFileName(Filename);
            try
              DataList := TStringList.Create;
              DataList.LoadFromFile(FileName);
            finally
              ADOQuery1.SQL.Text := 'Insert Into DATALOG (NAME, FILENAME, FILEDATA) Values(:ParamNAME,:ParamFILENAME,:ParamFILEDATA)';
              ADOQuery1.Connection.BeginTrans;
              try
                ADOQuery1.Parameters.ParamByName('ParamNAME').Value := Navn;
                ADOQuery1.Parameters.ParamByName('ParamFILENAME').Value := Filnavn;
                ADOQuery1.Parameters.ParamByName('ParamFILEDATA').Value := DataList.Text;
                ADOQuery1.ExecSQL;
                ADOQuery1.Connection.CommitTrans;
              except
                ADOQuery1.Connection.RollbackTrans;
                Raise;
              end;
            end;
          end;
        end;
      end;
      MemoryStream.Free;
      StringList.Free;
    end;
  end;
end;

Hvilken datatype er feltet ParamFILEDATA

Din fejl tyder på at du indsætter en tekst der er større/længere en dit DBfelt kan indeholde ( jeg har fået samme fejl fordi jeg prøvede at indsætte 'abc' i et felt der var def. som varchar(2) )

Datatypen står lidt længere oppe. :)

Jeg forstår det ikke helt, at nText ikke skulle kunne indholde en txtfil som fylder 39k.

Jeg har i et anden tråd spurgt til hvor meget nText kunne indholde og fik af vide fra Arne V, at han mener den skulle kunne indholde 2 GB = 1 milliard unicode bogstaver.



http://www.eksperten.dk/spm/739266

datatypen nText har sikker en default/Max (32kb ) længde, som du muligvis kan ændre hvis ikke så vælg den MSSQL - type der hedder Image det er en type du kan hælde hvadsomhelst i ( binært ) og det er fint nok til dit formål ( en tekst fil er jo også bare 1'ere  og 0'er ) så den kan du godt gemme binært :)

nText er 1 milliard tegn

http://msdn2.microsoft.com/en-gb/library/ms187993.aspx

Jeg har nu løst problemet ved at lave datatypen om til Image som Martin forslog. Grunden til at jeg valgte en anden datatype end Image før var pga at det hele bare kørte som r.. og hat, men nu af en eller anden grunden køre det bare som smurt. Det har aldrig kørt hurtigere end det gør nu. Så.....

Martin, hvis du ligger et svar. Så får du points.

Måske du kunne svare mig på et andet spørgsmål angående MDIParent og MDIChild, men det er i en anden tråd.

Lukkes.