Question

delphi7 开发时查询过程不能用是怎么回事？

function getUserName1(ghS:string):string;
var
ADO_Conn: TADOConnection;
ADO_Query: TADOQuery;
begin
Result := '';
ADO_Conn.Close;
ADO_Conn.ConnectionString:='Provider=SQLOLEDB.1;Password="";Persist Security Info=True;User ID=sa;Initial Catalog=hims_xzb;Data Source=191.126.3.6';
ADO_Conn.LoginPrompt:=False;
ADO_Conn.Connected:=True;
with ADO_Query do
begin
close;
Connection:=ADO_Conn;
SQL.Clear;
Sql.Add('select name from UserList where (code=:a) ');
parameters.ParamByName('a').Value:=Trim(ghS);
if Active then Close;
Open;
end;
//1if ADO_Query.RecordCount = 1 then Result:= DO_Query.DataSource.DataSet.Fields[0].AsString;
end;
这个定义在一个单元中，想做为通用过程调用，可是使用时出现以下错误：

这是怎么回事啊？

Answer 1

使用前请先构造你的组建。。ADO_Con := TAdoConnection.Create(nil)....
使用后清释放他们 ADO_Con.Free;
ADO_QUery也一样，这是使用对象的基本.

追问

在begin后面加吗

追答

你有看过Delphi语法么？
我都已经写好了 ADO_Con := TAdoConnection.Create(nil);

创建一个对象要用他类的原型创建一个实例，

追问

请问这句错在什么地方，停在这里了
if ADO_Query.RecordCount = 1 then Result:= ADO_Query.DataSource.DataSet.Fields[0].AsString;

追答

你的ADO_Query没有关联DataSuorce,他是个空值nil.DataSet 也是个空值,
Result := ADO_Query.Fields[0].asString就可以了.

Answer 2

ADO_Conn: TADOConnection; ADO_Query: TADOQuery;
没有创建，你这样定义，是要创建的
ado_conn:= tadoconnection.create;
ado_query:= tadoquery.create;

追问

请问这句错在什么地方，停在这里了
if ADO_Query.RecordCount = 1 then Result:= ADO_Query.DataSource.DataSet.Fields[0].AsString;

追答

留Q