Delphi 2010、Firebird 2.5.2、IBExpress コンポーネントを使用しています。
データベースの文字セットは UTF8 です。データベース接続 UTF8 で。
データベース:
var
Database: TIBDatabase;
begin
...
Database.params.Clear;
Database.params.Add('user ''SYSDBA'' password ''masterkey'' ');
Database.params.Add('page_size 16384');
Database.params.Add('default character set UTF8');
テーブル:
CREATE TABLE NEW_TABLE (
NEW_FIELD VARCHAR(255)
);
接続コード:
Database.params.Clear;
Database.params.Add('user_name=SYSDBA');
Database.params.Add('password=masterke');
Database.params.Add('sql_role_name=UTF8');
Database.Open;
コードを挿入:
var
IBSQL: TIBSQL;
begin
IBSQL := TIBSQL.Create(nil);
try
IBSQL.Database := db;
IBSQL.Transaction := tr
IBSQL.SQL.Text := 'insert into NEW_TABLE (NEW_FIELD) values (:param)';
IBSQL.params[0].Value := 'Ãabc©'; // unsupported symbols :(
if not IBSQL.Transaction.Active then
IBSQL.Transaction.StartTransaction;
IBSQL.ExecQuery; // "Malformed string" exception here
if IBSQL.Transaction.Active then
IBSQL.Transaction.Commit;
finally
FreeAndNil(IBSQL);
end;
end;
「不正な文字列」という例外が発生します。この文字列を挿入するには?