with ADOTable1 do
    begin
       if not Active then Open;
       if not Locate('MEMBER_ID',ID,[loCaseInsensitive]) then //这里判断是否存在id用户
       begin     //如果不存在name用户,则添加记录
         ADOTable1.Insert;
         FieldByName('MEMBER_NAME').AsString := name;
         FieldByName('SEX').AsInteger := StrToInt(sex);
         FieldByName('NATION').AsString := nation;
         FieldByName('BIRTH').AsString := birthday;
         FieldByName('PLACE').AsString := place;
         FieldByName('MEMBER_ID').AsString := ID;
         FieldByName('POLICE').AsString := police;
         FieldByName('MEMBER_VALIDATE').AsString := validDate;
         TBlobField(FieldByName('#PHOTO')).LoadFromFile('zp.bmp');
         try
           Post;
         except
           showmessage('数据库添加失败');
         end;
       end else showmessage('此用户已存在');
    end;
end;
用ADOTable连接oracle10,不过第一个语句就报数据类型错误,怎么回事?????

解决方案 »

  1.   

    数据类型不被支持说。还有tablename怎么添加???
      

  2.   

    什么错误?
    在       if not Active then Open;
    前面加Edit;
      

  3.   

    大哥能说详细点吗?还有我用connection连接,然后在table控件关联,不过tablename不能下拉,报错,说数据提供程序或者其它服务返回e_fail???
      

  4.   

    有没有设置Table1的Connection属性...再就是有没有把TADOConnect相关属性设置正确?
      

  5.   

    已经设置了啊,设置成了true,其它的都是用的默认,那个defaultDatabase是空白,怎么设置?