我正在尝试使用Lazarus和SQLdb组件编写一个简单的SQLite应用程序。
我连接到数据库并填充了一个TDBGrid。问题是,所有文本字段显示值“(MEMO)”,而不是数据库中的字符串。
我连接到数据库并填充了一个TDBGrid。问题是,所有文本字段显示值“(MEMO)”,而不是数据库中的字符串。
另一个选项
如果您正在使用TZConection,请在连接数据库时将此行添加到您的代码中
TZConnection).Properties.Add('Undefined_Varchar_AsString_Length=100');
在 .pas 文件中 > interface > type > 在您的表单定义内部添加
procedure MyDataSetMyFieldGetText(Sender: TField; var Text: string; DisplayText: Boolean);
在 .pas 文件中 > implementation > 添加以下方法
procedure TDM.WorkVisiteNoteGetText(Sender: TField; var Text: string; DisplayText: Boolean);
begin
Text := Copy(WorkVisiteNote.AsString, 1, 100);
end;