unit Unit1;interfaceuses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Db, DBCtrls, ADODB;type
TForm1 = class(TForm)
ADOTable1: TADOTable;
DBMemo1: TDBMemo;
Memo1: TMemo;
DataSource1: TDataSource;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin ADOTable1.Edit;
ADOTable1.FieldByName('hgfdgf').Text:=Memo1.text;
if ADOTable1.State=dsedit then
ADOTable1.Post;
end;end.以上代码想把MEMO中的内容加入到表中的hgfdgf字段,该字段为TEXT型。
为什么执行出错?
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Db, DBCtrls, ADODB;type
TForm1 = class(TForm)
ADOTable1: TADOTable;
DBMemo1: TDBMemo;
Memo1: TMemo;
DataSource1: TDataSource;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin ADOTable1.Edit;
ADOTable1.FieldByName('hgfdgf').Text:=Memo1.text;
if ADOTable1.State=dsedit then
ADOTable1.Post;
end;end.以上代码想把MEMO中的内容加入到表中的hgfdgf字段,该字段为TEXT型。
为什么执行出错?
解决方案 »
- 半夜三点起来偷菜的同志们受累了,向你们致敬
- 怎样使程序停止运行,界面仍保持显示(在线等)
- 急!一个关于OPENFILE用法的问题,在线等待!
- 做过KTV点歌系统的朋友请进!(分不够可以再加)
- 哪里有Developer QuantumGrid控件下载
- 如何设置Filed的defaultExpression,使之能自动填写默认值?
- sos!
- 难道注册表的问题很难吗?为什么没人帮我回答呢
- 可以探讨一下类似“拼音加加”的面板编写技术吗?
- 我想实现播放图片的功能!!那位高手肯帮帮忙!!!紧急!!有源代码!!!
- dbgrid响应删除记录事件是哪个?是onKeyPress吗?
- 急聘编程人员(希望斑竹不要删除此消息!谢谢!)
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Db, DBCtrls, ADODB;type
TForm1 = class(TForm)
ADOTable1: TADOTable;
DBMemo1: TDBMemo;
Memo1: TMemo;
DataSource1: TDataSource;
Button1: TButton;
Memo2: TMemo;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);
begin ADOTable1.Edit;
ADOTable1.FieldByName('hgfdgf').AsVariant:=Memo2.text+memo1.text;
if ADOTable1.State=dsedit then
ADOTable1.Post;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
memo2.text:=ADOTable1.FieldByName('hgfdgf').AsVariant;
end;end.