高手进来看看~~~

Question

一个程序运行提示这个错误，可能是什么原因？
Porject Specialist_import_export.exe raised exception class EAccessViolation with message 'Access violation at address 004A937C in module'specialist_import_export.exe'. Read of address 00000064 '.process stopped.

Answer 1

unit DBConn;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes,Controls,
  Dialogs, StdCtrls,ExtCtrls, Grids, OleServer,
  ComObj, DBCtrls, DB, ADODB{ExcelOp,};type
  TDataBaseConnection = class(TDataModule)
    ADOCon: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);  private
    { Private declarations }
  public
    { Public declarations }
    function chaxun(): TADOQuery;  end;var
  DataBaseConnection: TDataBaseConnection;implementation
procedure TDataBaseConnection.DataModuleCreate(Sender: TObject);
begin
  ADOCon.ConnectionString:='Provider=MSDAORA.1;Password=ZJK_6610;User ID=HBZJK;Data Source=HBSTA;Persist Security Info=True;';
  ADOCon.Connected:= true;
end;function TDataBaseConnection.chaxun(): TADOQuery;
begin
  With ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('Select F_PROVINCE from T_ZJK_SF');
    Open;
  end;
  result:=ADOQuery1;
end;
end.
主要代码我拷过来了，能帮我看看嘛？
里面两个小函数！

Answer 2

没看明白你要查询的是什么啊
你的result 是想要什么啊  。。

Answer 3

result 不是函数的别名，返回函数结果的吗？
不用自己定义，不是这样的吗？

Answer 4

返回一个 查询结果， 用 result可以吗？