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,不过第一个语句就报数据类型错误,怎么回事?????
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,不过第一个语句就报数据类型错误,怎么回事?????
解决方案 »
- 寻找文件
- 求助关于TidMessage(邮件)的编码问题
- vcl是啥意思?全称是啥??
- midas中客户端可以是power builder做的程序吗?
- 这么高兴的事,散分!
- 如下功能如何用SQL语句来完成谢谢!!
- 一个关于用Delphi编写收POP3邮件程序的问题!
- 一个读取ini文件问题,无法读取,怎么回事
- 请问哪里可down到fastreport2.40?
- 现在的软件项目中一般是用winsocket控件,还是直接用winsocket函数?各有什么利弊?
- 意外问题:关于PopupMenu,请不辞赐教!!
- 为什么我在运行时DBcombobox有下拉列值,可就是选不到框中,这是怎么回事啊?(急等,谢谢!)
在 if not Active then Open;
前面加Edit;