关于一个信息的截取...(200分)

  • 主题发起人 主题发起人 Fins
  • 开始时间 开始时间
F

Fins

Unregistered / Unconfirmed
GUEST, unregistred user!
如何去截止一个SQL信息.
比如说我用SELECT * FROM ABC,它返回10行.我如何去得到这个返回行数.还有就是
我在程序里使用的使用的SQL语句如何在执行时出现错误,如何得到这个信息.
希望各位大大指点一二.[:)][:)]谢谢啦.
 
看看delphi带的sql监视器.
 

ADO组件有RecordCount属性吧。
 
返回行数是想在Delphi端知道,还是想在数据库端知道
 
当然是DELPHI程序里啦.
对了,上面的朋友,我问一下到底是BDE控件适用于C/S程序还是ADO控件适用呀?
它们之间有什么优缺点啦.
如果分不够可以再加
 
debug ->add watch
 
1. Delphi中获得BDE、ADO的错误号
Delphi的数据库对象,如Ttable和TadoTable有以下一些Error事件:OnDeleteError、OnDeleteErro、OnPostError。这些事件的定义如下,都是数据集错误:
type TDataSetErrorEvent = procedure(DataSet: TDataSet; E: EDatabaseError; var Action: TDataAction) of object;
property OnPostError: TDataSetErrorEvent;

在这些事件在EdatabaseError中是无法得到错误号的,其中只有Message属性。在发生BDE错误时可如下得到错误号:
if E is EDBEngineError then
showmessage(inttostr(EDBEngineError(E).Errors[0].ErrorCode));
也可以这么写:
if E is EDBEngineError then
showmessage(inttostr((E As EDBEngineError).Errors[0].ErrorCode));
但在发生ADO错误时不能这样: E is EadoError。
其实Ado错误在数据集相应的数据库连接中都有:TadoConnection.Errors。
procedure TForm1.Table1PostError(DataSet: TDataSet; E: EDatabaseError;
var Action: TDataAction);
var
i:integer;
begin
memo1.Lines.Add(inttostr(table1.Connection.errors.count ));
for i:=0 to AdoConnection1.errors.count-1 do
begin
memo1.Lines.Add('number:'+inttohex(AdoConnection1.errors.Number,8 ));
memo1.Lines.Add('NativeCode:'+inttostr(AdoConnection1.errors.NativeError ));
memo1.Lines.Add(inttostr(AdoConnection1.errors.HelpContext ));
memo1.Lines.Add(AdoConnection1.errors.Source );
memo1.Lines.Add(AdoConnection1.errors.SQLState );
memo1.Lines.Add('Description:'+AdoConnection1.errors.Description );
end;
memo1.Lines.Add('error Msg :'+e.message);
end;
NativeError是Foxpro的原生错误号,非常详细,一般用这个来判断发生的错误。Number是Sql错误号,是大的分类,一般一个Number和多个NativeError对应。
这些错误码的信息在文档Drvvfp.hlp中都有。

 
多人接受答案了。
 
后退
顶部