代码如下:
procedure TDataMaintance.InsertIntoDataBase();
begin
//ADOQuery1.;
//ADOQuery1.SQL.Text:='insert into ChineseToEnglishToFrench(Chinese,English,French) values('''+strInChinese+''','''+strInEnglish+''','''+strInFrench+''')';
//ADOQuery1.ExecSQL;
ADOQuery1.Edit;
ADOQuery1.FieldByName('Chinese').AsString:=strInChinese;
ADOQuery1.FieldByName('English').AsString:=strInEnglish;
ADOQuery1.FieldByName('French').AsString:=strInFrench;
ADOQuery1.Post;
end;之所以被注释是因为如果词语中有撇号的时候,就报错。故采用了第二种做法。
但是这种做法还存在一个问题,就是在执行edit一句的时候提示:ADOQuery1:cann't perform this operation on a closed database。请教怎么解决?万分火急,谢谢啦。另外,像第一种情况如果要插入的词语中有单引号的时候就报错,应该怎么处理?谢谢!
procedure TDataMaintance.InsertIntoDataBase();
begin
//ADOQuery1.;
//ADOQuery1.SQL.Text:='insert into ChineseToEnglishToFrench(Chinese,English,French) values('''+strInChinese+''','''+strInEnglish+''','''+strInFrench+''')';
//ADOQuery1.ExecSQL;
ADOQuery1.Edit;
ADOQuery1.FieldByName('Chinese').AsString:=strInChinese;
ADOQuery1.FieldByName('English').AsString:=strInEnglish;
ADOQuery1.FieldByName('French').AsString:=strInFrench;
ADOQuery1.Post;
end;之所以被注释是因为如果词语中有撇号的时候,就报错。故采用了第二种做法。
但是这种做法还存在一个问题,就是在执行edit一句的时候提示:ADOQuery1:cann't perform this operation on a closed database。请教怎么解决?万分火急,谢谢啦。另外,像第一种情况如果要插入的词语中有单引号的时候就报错,应该怎么处理?谢谢!
解决方案 »
- TADOConnection连接一个远程数据库出错,请赐教,谢谢!!
- [Indy]用Indy做很卡 ?
- 求教一个delphi读取xml的问题
- 文本导入Access的方法(用TransferText函数实现)
- 关于"CommandText changes are not allowed."的问题
- 为什么会出现Undeclared identifier: 'IntToStr'
- 请问一个用delphi编写com,用asp调用的系统,在delphi中怎样调试那个dll.
- 在类中创建对象的问题
- 小问题
- 我想在程序运行时自动调整显示器的颜色和象素(如800x600)等等
- 请教:如何判断外置猫是否已与电脑相连??
- 怎样在程序中设置acReport报表的方向为“横向”?没有手册资料可查呀!
procedure TDataMaintance.InsertIntoDataBase();
begin
ADOQuery1.SQL.Text:=='select Chinese,English,French from ChineseToEnglishToFrench'
ADOQuery1.Open;
ADOQuery1.Edit;
ADOQuery1.FieldByName('Chinese').AsString:=strInChinese;
ADOQuery1.FieldByName('English').AsString:=strInEnglish;
ADOQuery1.FieldByName('French').AsString:=strInFrench;
ADOQuery1.Post;end;
ADOQuery1.SQL.Text:='insert into ChineseToEnglishToFrench(Chinese,English,French) values('+QuotedStr(strInChinese)+','+QuotedStr(strInEnglish)+','+strInFrench+')';
ADOQuery1.ExecSQL;或者:
ADOQuery1.Close;
ADOQuery1.SQL.Text:='select * From ChineseToEnglishToFrench';
ADOQuery1.Open;
ADOQuery1.Edit;
……
请问如何指定数据表?
ChineseToEnglishToFrench就是表名