简单ADO问题，答了就的分

Question

ADOCONNECTION连接数据源，ADOTABLE取表，EDIT输入要添加或修改的数据，怎么写到数据库里，具体的语句是什么，谢谢~

Answer 1

ADO的连接SQLSERVER：
ADO.connectionstring:="Provider=SQLOLEDB.1;Password=pwd;Persist Security Info=True;User ID=uid;Initial Catalog=banen;Data Source=remoteserver;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=SLIENCE;Use Encryption for Data=False;Tag with column collation when possible=False"
Ado.mode:=cmReadWrite;取表
ADOtable1.tablename="table1";
Adotable1.ACTIVE：=TRUE
修改
ADOTABLE1。EDIT
ADOTABLE1。...
AODTABLE1。POST
添加
ADOTABLE1。APPEND
ADOTABLE1。...
AODTABLE1。POST

Answer 2

双击 ADOConnection 组件配置连接字符串
ADOTable1.Connection:=ADOConnection1;
ADOTable1.TableName:='ATable';
ADOTable1.Open;
ADOTable1.Append;
ADOTable1.FieldValues['...']:=....;
ADOTable1.Post;
ADOTable1.Edit;
ADOTable1.FieldValues['...']:=....;
ADOTable1.Post;

Answer 3

取表
ADOtable1.tablename="table1";
Adotable1.ACTIVE：=TRUE
修改
ADOTABLE1.EDIT;
ADOTABLE1.fieldbyname('11').asstring := edit1.text;
ADOTABLE1.fieldbyname('22').asstring := edit2.text;
...
AODTABLE1.POST
添加
ADOTABLE1.insert;
ADOTABLE1.fieldbyname('11').asstring := edit1.text;
ADOTABLE1.fieldbyname('22').asstring := edit2.text;
...

Answer 4

with AdoTable1 do
begin
  tablename := '你要的表名';//取得表名
  active := true;//连接
  Edit;//修改状态未可修改状态
  Fieldbyname('表中的字段').Asstring := Edit1.text;//把表中要修改的字段得值改为Edit1中的值
  …………//以此类推
  Post;//提交
  append(or insert);修改状态未可添加状态
  Fieldbyname('表中的字段').Asstring := Edit1.text;//把表中要插入的字段得值改为Edit1中的值
  post;//提交
end;

Answer 5

取表
ADOtable1.tablename="table1";
Adotable1.ACTIVE：=TRUE
修改
ADOTABLE1.EDIT;
ADOTABLE1.fieldbyname('11').asstring := edit1.text;
ADOTABLE1.fieldbyname('22').asstring := edit2.text;
...
AODTABLE1.POST
添加
ADOTABLE1.insert;
ADOTABLE1.fieldbyname('11').asstring := edit1.text;
ADOTABLE1.fieldbyname('22').asstring := edit2.text;

Answer 6

我认为在开发中还是用ADOQUERY比较好，数据库的增删改还是通过QUERY调用SQL好一些。我在实际开发中遇到的用EDIT，然后修改数据对长的字符支持的不好，到40个字以上的就有奇怪的截断，并且你如果发现数据库的字段长度不够改了的时候用EDIT的不能及时的感知！

Answer 7

ADO的连接SQLSERVER：
ADO.connectionstring:="Provider=SQLOLEDB.1;Password=pwd;Persist Security Info=True;User ID=uid;Initial Catalog=banen;Data Source=remoteserver;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=SLIENCE;Use Encryption for Data=False;Tag with column collation when possible=False"
Ado.mode:=cmReadWrite;取表
ADOquery.sql='insert into table1 values('+"'"+edit1.text+"'"+')'
try
ADOquery.exec;
except
showmessage('error')
end;
ADOquery.sql='update table set ziduan ='+edit1.text;
except
showmessage('error')
end;