快出来了！“未指定的错误” 不懂进来帮顶 3扣~~

Question

procedure ColorSet(area : TAdvStringGrid; Lev : string; iCount : integer);
var
  str : String;
  qry : TADOQuery;
  ACol, ARow : integer;
begin
  qry := TADOQuery.Create(nil);
  qry.Connection := TDB.Create(nil).CON;   /////////////这里出错！！！！
  str := 'select position,count(barcode) as bCount from stock  ' +
         'where position  ' +
         'like :Lev +''%'' group by position having count(barcode) + :iCount < 4';
进来的朋友，先谢了~

Answer 1

声明一个TConnection、创建、再使用

Answer 2

申明了 ，再另一个form里  ， 我调用的

Answer 3

TDB.Create(nil).CON;   
TDB应该就是TConnection吧？你这样创建一个新的，它的连接字符串为空的，你还没赋值，如果你TDB已经创建，这里就不有Create了，不然要先赋值再使用啊

Answer 4

错了，TDB应该是你写的包含TConnection的一个类，你跟踪一下它里面的connectstring是不是为空或者''吧