ADOConRC.Close;
ADOConRC.ConnectionString:='Provider=SQLOLEDB.1;Initial Catalog=ReadCard;Data Source='+datahost;
try //------------标记-----------
ADOConRC.Open(datauser,datapassword); //-----------标记二---------
except
On E:EOleException do
begin
ErrStr:=E.Message;
ErrNo:=E.ErrorCode;
raise E.Create(ErrStr,ErrNo,ErrStr,'',0);
ShowMessage(IntToStr(ErrNo));
end;
end;
ADOConRC.ConnectionString:='Provider=SQLOLEDB.1;Initial Catalog=ReadCard;Data Source='+datahost;
try //------------标记-----------
ADOConRC.Open(datauser,datapassword); //-----------标记二---------
except
On E:EOleException do
begin
ErrStr:=E.Message;
ErrNo:=E.ErrorCode;
raise E.Create(ErrStr,ErrNo,ErrStr,'',0);
ShowMessage(IntToStr(ErrNo));
end;
end;
解决方案 »
- 如何判断 currency 类型为空值 或 等于 0
- serversocket 运行一天就不能工作了?
- 如何得到垂直滚动条移动的距离?
- 新手问题:我要使一个TEdit控件变为灰色(不可编辑),应该怎么设置属性?Enable=false和readonly=false都不能变灰
- 如何让inputbox在几秒之后自动消失
- 怎样得到动态数组的大小
- ■■■今天收到用户的第一笔注册费,散分!■■■
- 求反复登陆某网站的源代码
- 關于數據庫中的日期型字段問題﹗
- 多层数据库问题。请高手帮忙,来者送分。
- 要做条码库房管理系统,请推荐点学习资料!
- 有关Wise Installation System9.01 制作安装程序的问题,急需等待解决??帮忙看看!!
============================On e:exception do