Max 128 karakterer i TQuery

Hvordan ser din tabelstruktur ud, jeg tror det er der den ligger. Du kan lave SQL-forespørgelser der er lige så lange det skal være, jeg laver dagligt nogle der er ca 500 karakterer lange.
Prøv evt. :

Query1.SQL.Text := \'<SQL-kode>\';

Husk at du ikke kan bruge \' uden at du sætter to men det kan du se i delphi editoren hvis du har sat string til en anden farve

Jeg har på en MSSql server en tabel med et felttype varchar(500) det er dette felt jeg prøver at skrive en tekst ned i vha. en stored procedure som ligner dette:

CREATE PROCEDURE SP_TilfoejJournal
    @text varchar(500)
AS
insert into journal
values(@text)

Det sjove er at når jeg prøver at køre denne fra query analyzer til sql server 7 er der ingen problemer. Jeg bruger ODBC fra delphi til at forbinde til databasen, kan dette have noget at sige.

Du skal Bruge en BlobStream til at læse og skrive fra et blob felt
myStream := Tquery.CreateBlobStream(Feltnavn,bmReadWrite);

Så virker det og du behøver ikke bruge en stored proc.

/Martin

Nu kan det godt være du synes jeg er skør, men jeg vil gerne bruge en stored procedure da min brugere så ikke skal have rettigheder på tabellen, men kun execute på min SP. Kan det lade sig gøre at bruge denne blobstream med en SP ?

Det ved jeg faktisk ikke, for jeg har ikke prøvet, men der er jo noget der kan tyde på at du kun kan overføre et parameter på 128 char til sådan en. Kan du ikke lave en dummy tabel med et blobfield i og så opd. den, lave en trigger på den der overfører data til den rigtige tabel, så har brugerne kun adgang til dummy tabelen ( bare en ide )

/Martin

Hej Igen !!

Jeg har siddet og rodet lidt med blob streams. Kunne du ikke vise mig et funktion som skriver en tmemo ned i et databsefelt. Skidt med SP\'ere.

Vi skal vist snart til at have nogle flere point på bordet eller hvad ?

Paste fra hjælpen:

procedure TForm1.Button1Click(Sender: TObject);

var
  Stream1, Stream2 : TBlobStream;
begin
  Stream1 := TBlobStream.Create(Table1Notes, bmRead);
  try
    Table2.Edit;
    { here’s a different way to create a blob stream }
    Stream2 := Table2.CreateBlobStream(Table2.FieldByName(\'Remarks\'), bmReadWrite);
    try
      Stream2.CopyFrom(Stream1, Stream1.Size);
      Table2.Post;
    finally
      Stream2.Free;
    end;
  finally
    Stream1.Free;

  end;
end;

Mit Eks. :

procedure TForm1.Button1Click(Sender: TObject);
VAR
  S : TBlobStream;
begin
  S := Query1.CreateBlobStream(Query1.FieldByName(\'<Blobfieldname>\'),bmReadWrite);
  Memo1.Lines.SaveToStream(S);
  S.Free;
end;

Dette skulle virke

/Martin

Ekstra point sige vi aldrig nej til *S*

/Martin

Hej Martin

jeg har løst problemet ved at lave en SP som tilføjer til feltet og så deler delphi strengen op og sender den at det antal gange som er nødvendigt. Vist lidt en work around, men det går nok i dette tilfælde. Tak for hjælpen.

Klaus

Hej Klaus, jeg falt over nogle FreeUDF til ib, med nogle blob-functioner det er måske noget du kan bruge, gi mig en mailadr. så sender jeg dem

/Martin

Hej Martin

Dem vil jeg da gerne se du kan sende dem til mig på kgn@linux.eucsyd.dk

/Klaus