再加一句:它报告的错误为:Invalid variant type conversion我按确定后,仍然可以继续执行,并且之后的添加记录都可以做。WHY?

解决方案 »

  1.   

    TelForm.ADOTable1.Active:=false;
    TelForm.AdoTable1.ConnectionString:=Constring;
    TelForm.ADOTable1.TableName:='Tel';
    TelForm.ADOTable1.Active:=true;
    即可显示表里的内容!
      

  2.   

    ADOTable1.Open;
      ADOTable1.Append;
      ADOTable1.FieldValues['id'] := 5;
      ADOTable1.FieldValues['name'] := Edit1.Text;
      ADOTable1.Edit;
      ADOTable1.Post;
    ADOTable1.close;
      

  3.   

    飞扬大哥:
    老样子,在  ADOTable1.Active := True;这句话上报错.
      

  4.   

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      ADOTable1.open;
      ADOTable1.Append;
      ADOTable1.FieldValues['id'] := 5;
      ADOTable1.FieldValues['name'] := Edit1.Text;
      ADOTable1.Edit;
      ADOTable1.Post;
    end;procedure TForm1.Button2Click(Sender: TObject);
    begin
      ADOTable1.Active:=false;
      AdoTable1.ConnectionString:=Constring;
      ADOTable1.TableName:='link';
      ADOTable1.Active:=true;end;end.
      

  5.   

    'select * from link where id=:id'
    请你在执行上面的Sql语句时检查表是否为空,如为空会显示错误
      

  6.   

    楼上各位大哥,你们的方法,我都试了,也不行!
    SQL语句检查后,返回1条记录.
    该记录是存在的.
    但ADOTable为什么会报错呢?
      

  7.   


    ADOTable1.FieldValues['name'] := Edit1.Text;
    改为
    ADOTable1.FieldByName('name').AsString := Edit1.text;
    试试
      

  8.   

    我的DELPHI是6.0的,有补丁吗?
    我不知道啊!怎么弄?
      

  9.   

    首先我不知你 这个程序是否有两个表,因为用到ADOQUERY和ADOTABLE,否则一个就行,另外建议你不要将数据表的OPEN放在窗口的CREATE事件中.
      

  10.   

    同意 xxyzjf(xxyzjf) 
        
        另外,你所说的错误应该是类型匹配问题。你把SQL语句拿到查询分析器里运行一下,看看是什么错误?
      

  11.   

    邪门,我这2个控件都放上去了,ADOQUERY是做查询用的,ADOTABLE是用来向数据库输入数据的.ADOTABLE不是在窗口CREATE事件中OPEN的,但是还是不行-_-
      

  12.   

    建议你用sql语句对数据库操作,另外delphi6也有补丁最好打上。