BLOB SUB_TYPE TEXT nimmt nicht mehr als 255 Zeichen

[hoika]

Hallo,

1. und wie sieht das zuweisen aus ?
ParamByXXX ?
da muss dann AsBlob stehen


2. Collate usw. hat bei Blobs nichts zu suchen.
Ist halt ein Binärteil, du könntest auch ein Bild eintragen an der
gleichen Stelle


Hier eine Funktion, die ich seit Jahren benutze.
- TjifQuery kann durch TQuery ersetzt werden
- DataBaseName muss natürlich geändert werden

{
name:
UpdateTextBlobField_Ex
usage:
update a blob field
parameter:
theTableName - table name
thePrimaryKeyName - name of the primary key
thePrimaryKeyValue - value of the primary key
theFieldName - field name of the blob field
theText - field value
return parameter:
theErrorStr - error message
return:
false on error
notes:
- additional to UpdateTextBlobField name of the
primary key is needed
}
function UpdateTextBlobField_Ex(const theTableName: String;
const thePrimaryKeyName: String; thePrimaryKeyValue: Integer;
const theFieldName: String; const theText: String;
var theErrorStr: String): Boolean;
var
FQuerySQL : TjifQuery;
begin
Result:= False;
theErrorStr:= S_internal_error;

try
FQuerySQL := CreatejifQuery;
try
with FQuerySQL do
begin
DataBaseName:= C_ALIASNAME;

SQL.Add('Update '+theTableName+' Set ');
SQL.Add(theFieldName+'=:'+theFieldName);
SQL.Add('Where '+thePrimaryKeyName+'=:Id');
ParamByName('Id').AsInteger:= thePrimaryKeyValue;
ParamByName(theFieldName).AsBlob:= theText;
ExecSQL;
end; { with FQuerySQL do }

Result:= True;
finally
FQuerySQL.Free;
end;
except
on E: Exception do theErrorStr:= E.message;
end;
end; { UpdateTextBlobField_Ex }


Heiko