动态创建QUERY控件的问题

Question

你用oracle 8命令显示关闭试试

Answer 1

是不是你的TDatabase对象没有KeepConnection啊

Answer 2

to songtao,在前端程序如何调用ORACLE 8命令关闭呢？请指教。

Answer 3

问题还是解决不了呀，唉，我只好把DATABASE控件的CONNECTED属性设为FALSE，再设为TRUE，实在是太影响效率了。

Answer 4

我记得好像要update一下,以告示系统可以submit了,然后再free.ps:要3分

Answer 5

现在代码贴上：
AnsiString sqlstr,comment,key;//SQL字符串、节点名称、按键
        int node;
        TQuery *Query;
sqlstr = "select * from tab_tssx_cs_ivr_tree"
                " where parent = "+IntToStr(ParentValue);
        Query = new TQuery(this); //创建QUERY类
        Query->DatabaseName = "ivrproc";
        DataModule1->OpenQuery(Query,sqlstr);
        if(Query->IsEmpty()){//数据为空
                return;
        }
        while(!Query->Eof){
                node = Query->FieldByName("node")->AsInteger;
                comment = Query->FieldByName("comments")->AsString;
                key = Query->FieldByName("presskey")->AsString;                //-----------------建树-----------------
                for(int i=0;i<TreeView1->Items->Count;i++)//取父亲节点
                {
                        if((int)(TreeView1->Items->Item[i]->Data) == ParentValue)
                        {
                                FormWait->ProgressBar1->Position ++;
                                parentnode = TreeView1->Items->Item[i];
                                break;
                        }
                }                if(key == "N")
                        newnode = TreeView1->Items->AddChild(parentnode,comment);
                else
                        newnode = TreeView1->Items->AddChild(parentnode,key+" "+comment);
                newnode->Data = (void*)node;
                //newnode->Selected = true;
                CreateTree(newnode);//递归建树                Query->Next();
        }
        Query->Close();
        delete Query; //释放QUERY内存