高手帮我看看这几行odac的代码

2006-05-25 10:42:26 146 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

oracle11 odac,oracle 11g odac 下载 ODAC 的安装服务器端: 0racle10g,11g 都行客户端: oracle11g, 我下载的是 ODAC 11.2 Release 4 and Oracle Developer Tools for Visual Studio (11.2.0.3.0),oracle10g 可以安装,但是里面缺少自定义类型的对应对象,且只......好像 11g 还没有像 mssql 的企业管理器类似的... 阅读详情

初学，请问下列代码有问题吗？
OraSession1的connectString＝blackcase/blackcase@10.10.10.10.:1521:blackcase

with OraTable1 do
begin
OraTable1.Open;
if not Locate('MEMBER_ID',ID,[loCaseInsensitive]) then //这里判断是否存在id用户
begin //如果不存在该id用户，则添加记录
OraTable1.Insert;
OraTable1.FindParam('MEMBER_NAME').AsString := trim(name1);
OraTable1.FindParam('SEX').AsInteger := StrToInt(sex);
OraTable1.FindParam('NATION').AsString := trim(nation);
OraTable1.FindParam('BIRTH').AsString := MidStr(birthday, 1, 4)+'-'+MidStr(birthday, 5, 2)+'-'+MidStr(birthday, 7, 2);
OraTable1.FindParam('PLACE').AsString := trim(place);
OraTable1.FindParam('MEMBER_ID').AsString := ID;
OraTable1.FindParam('POLICE').AsString := trim(police);
OraTable1.FindParam('MEMBER_VALIDATE').AsString := MidStr(validDate, 1, 4)+'-'+MidStr(validDate, 5, 2)+'-'+MidStr(validDate, 7, 2)+'－'+
MidStr(validDate, 9, 4)+'-'+MidStr(validDate, 13, 2)+'-'+MidStr(validDate, 15, 2);
TBlobField(FieldByName('PHOTO')).LoadFromFile('zp.jpg');
OraTable1.Post;
end
else
showmessage('此用户已存在');
end;
ss.Free;
except
on e:exception do
begin
ss.Free;
showmessage(e.Message);
end;
end;
end;

...全文