新手请教:如何插入数据

在FORM内有:  
  Edit1..Edit5和一个BUTTON1,  
  一个Table1:设置了:TableName为animals.dbf,  
  一个DataSource1:设置了DataSet为Table1,TableName为animals.dbf  
  一个Database1:AliasName为DBDEMOS,DatabaseName为demo(我选择内置的数据库及表)  
  procedure   TForm1.Button2Click(Sender:   TObject);  
  begin  
            Table1.open;  
            Table1.active:=true;  
            Table1.readOnly   :=   false;  
            Table1.Last;  
            Table1.Edit;  
            Table1.FieldByName('name').AsString   :=   Edit1.Text;  
            Table1.FieldByName('size').AsString   :=   Edit2.Text;  
            Table1.FieldByName('weight').AsString   :=   Edit3.Text;  
            Table1.FieldByName('area').AsString   :=   Edit4.Text;  
            Table1.FieldByName('bmp').AsString   :=   Edit5.Text;  
            Table1.Post;  
            Table1.Close;  
  end;  
  end.  
  我是看初学者,是看过一段教程后理了一下思路写出来的,但是报错:  
  Table1:Cannot   perform   this   operation   on   an   open   dataset  
   
  请各位多指教  
  问题点数：20、回复次数：8Top

1 楼shunbing（）回复于 2004-12-01 09:53:06 得分 20

procedure   TForm1.Button2Click(Sender:   TObject);  
  begin  
            Table1.open;  
            Table1.Last;  
            Table1.Append;  
            Table1.FieldByName('name').AsString   :=   Edit1.Text;  
            Table1.FieldByName('size').AsString   :=   Edit2.Text;  
            Table1.FieldByName('weight').AsString   :=   Edit3.Text;  
            Table1.FieldByName('area').AsString   :=   Edit4.Text;  
            Table1.FieldByName('bmp').AsString   :=   Edit5.Text;  
            Table1.Post;  
  end;  
  end.Top

2 楼ocean617（海洋）回复于 2004-12-01 09:57:56 得分 0

代码被楼上的抢写了:PTop

3 楼coeltdit（每天多顶几下----->>>大虾就是这样练成的）回复于 2004-12-01 09:59:37 得分 0

接分吧.Top

4 楼xufenglong（天天向上）回复于 2004-12-01 09:59:38 得分 0

用ADOQUERY比较好  
  procedure   TForm1.Button2Click(Sender:   TObject);  
  begin      
  with   ADOquery1   do  
  begin  
      close;  
      sql.clear;  
  sql.Text:='INSERT   INTO   tablename   (name,size,weight,area,bmp   )   values   ('+  
                                        quotedstr(Edit1.Text)+  
                                      ','+quotedstr(Edit2.Text)+  
                                      ','+quotedstr(Edit3.Text)+  
                                      ','+quotedstr(Edit4.Text)+  
                                      ','+quotedstr(Edit5.Text)';    
   
   
                      ExecSQL;  
  end;  
  end.  
  Top

5 楼whbo（王红波（年轻人，要有所作为））回复于 2004-12-01 10:12:24 得分 0

insertTop

6 楼huarc（华客）回复于 2004-12-01 10:27:18 得分 0

To:xufenglong(天天向上)    
   
  我试着用你的方法去做了,它给出的报错是Missing   contention   or   connectionString  
   
  这我该怎么做呢????Top

7 楼huarc（华客）回复于 2004-12-01 10:39:10 得分 0

热切期望中Top

8 楼orchidbing（米饼）回复于 2004-12-01 11:30:50 得分 0

一个Table1:设置了:TableName为animals.dbf,  
  你把   table1的   databasename设置成你对应的数据库Top

相关问题

• table1
• fieldbyname
• asstring
• edit
• button
• open
• text

• 帖主：huarc
• shunbing

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载