就用memo类型就可以了,例如:
procedure TForm1.Button2Click(Sender: TObject);
var
s : string;
begin
s := 'Create Table MyTest(mymemo memo)';
with adoquery1 do
begin
close;
sql.Clear;
sql.Add(s);
ExecSQL;
end;
赋值如下:
procedure TForm1.Button5Click(Sender: TObject);
var
s : string;
begin
s := 'insert into mytest values(' + '''' + 'sdefas' + '''' + ')';
with adoquery1 do
begin
close;
sql.Clear;
sql.Add(s);
ExecSQL;
end;
end;
update如下:
procedure TForm1.Button4Click(Sender: TObject);
var
s : string;
begin
s := 'update mytest set mymemo=' + '''' + 'cctvcctvcctbv' + '''';
with adoquery1 do
begin
close;
sql.Clear;
sql.Add(s);
ExecSQL;
end;
end;
end;
不过memo字段不要超过64,000 个字符.