var
ads1:TAdoDataSet;
dsc1:TDataSource;
s:string;
begin
ads1:=TAdoDataSet.Create(self);
dsc1:=TDataSource.Create(self);
ads1.Active:=false;
s:=formatdatetime('yyyy-mm-dd hh:mm:ss',now);
ads1.Connection:=ADOConnection1;
ads1.CommandText:='insert into beijing_table (times,tep) values ('''+s+''','''+Edit2.Text+Edit3.Text+''')';
ads1.Open;
ads1.Active:=true;
dsc1.DataSet:=ads1;
dbgrid1.DataSource:=dsc1;
感觉总是缺少了什么,拜托各位了,谢谢!!!
ads1:TAdoDataSet;
dsc1:TDataSource;
s:string;
begin
ads1:=TAdoDataSet.Create(self);
dsc1:=TDataSource.Create(self);
ads1.Active:=false;
s:=formatdatetime('yyyy-mm-dd hh:mm:ss',now);
ads1.Connection:=ADOConnection1;
ads1.CommandText:='insert into beijing_table (times,tep) values ('''+s+''','''+Edit2.Text+Edit3.Text+''')';
ads1.Open;
ads1.Active:=true;
dsc1.DataSet:=ads1;
dbgrid1.DataSource:=dsc1;
感觉总是缺少了什么,拜托各位了,谢谢!!!
改用TADOQuery就可以了
AdoDataSet可以用insert方法,DataSet1.Insert;
DataSet1.FieldByName('QUANTITY').AsInteger := StrToInt(Edit1.Text);
DataSet1.Post;
看来得加上AdoCommand了,那样应该可以了吧??