CB2009 TADOQuery->Close()即产生异常. "Invalid Pointer Operation"

[BeRoy]

图新鲜,用CB2009做了个小程序,用ADO连ACCSEE.结果出了个莫名其妙的错误...
代码:

DB_RET	__fastcall  	TdbmGlobal::DBGetUserAccByName(char*	User,char *strAcc)
{

	int	len=strlen(User);
	char 	*pBuffE=new char[len*2+2];
	char	*pBuffD=new char[len*2+2];
	//加密字串
	GEncryObj->GetEStrByPassKey8(User,len,pBuffE);
	DB_RET	Ret;
	UnicodeString Sql;

	Sql="SELECT OPR_ACC FROM OPERATORS WHERE (OPR_NAME = \'"+UnicodeString(pBuffE)+"\')";

	qryGetUserAccByName->SQL->Clear();
	qryGetUserAccByName->SQL->Add(Sql);
	qryGetUserAccByName->Open();

	if(qryGetUserAccByName->RecordCount<1)
	{
		//没有此用户
		Ret=DB_ERR_USER;
	}
	else
	{
		strcpy(pBuffE,qryGetUserAccByName->FieldByName("OPR_ACC")->AsString.t_str() );
		int nLen=strlen(pBuffE);
		//解密字串
		GEncryObj->GetDStrByPassKey8(pBuffE,nLen,pBuffD);

		strcpy(strAcc,pBuffD);
		Ret=DB_ERR_OK;
	}
	qryGetUserAccByName->Close();// 到了这里就报错,ShowMessage(exception.Message)="Invalid Pointer Operation";
	delete	[]pBuffE;
	delete	[]pBuffD;
	return	Ret;
}

[TripH0101]

一般是释放内存出错 ，试试把后面两句放到它前面

[lhfde]

qryGetUserAccByName->Close();
放在qryGetUserAccByName->SQL->Clear();
前面看看。

[jasonnbfan]

qryGetUserAccByName 你连接到数据源了么...

[BeRoy]

[Quote=引用 2 楼 lhfde 的回复:]
qryGetUserAccByName->Close();
放在qryGetUserAccByName->SQL->Clear();
前面看看。
[/Quote]
无用

[Quote=引用 1 楼 thwen0101 的回复:]
一般是释放内存出错 ，试试把后面两句放到它前面
[/Quote]
无用

[Quote=引用 3 楼 jasonnbfan 的回复:]
qryGetUserAccByName 你连接到数据源了么...
[/Quote]
呵呵,我数据都查到了,肯定是连了的撒

[qqlpp]

友情up

[Waiting4you]

楼主试试先把代码简化至只有这几行,看看会不会出错

qryGetUserAccByName->SQL->Clear();
qryGetUserAccByName->SQL->Add("SELECT OPR_ACC FROM OPERATORS");
qryGetUserAccByName->Open();
qryGetUserAccByName->Close();

如果还出错,那么...等update吧-_-

[BeRoy]

//经过摸索,这样不会出错.
DB_RET	__fastcall  	TdbmGlobal::DBGetUserAccByName(char*	User,AnsiString &strAcc)
{

	int	len=strlen(User);
	char 	*pBuffE=new char[len*2+2];
	char	*pBuffD=new char[len*2+2];
	//加密字串
	//GEncryObj->GetEStrByPassKey8(User,len,pBuffE);
	DB_RET	Ret;
	AnsiString Sql;
	Sql="SELECT OPR_ACC FROM OPERATORS WHERE (OPR_NAME = '2714c01bc69d3909')";
	//Sql="SELECT OPR_ACC FROM OPERATORS WHERE (OPR_NAME = \'"+AnsiString(pBuffE)+"\')";
	qryGetUserAccByName->SQL->Clear();
	qryGetUserAccByName->SQL->Add(Sql);
	qryGetUserAccByName->Open();
	if(qryGetUserAccByName->RecordCount<1)
	{
		//没有此用户
		Ret=DB_ERR_USER;
	}
	else
	{
                char AAAA[256];
	        strcpy(AAAA,qryGetUserAccByName->FieldByName("OPR_ACC")->AsString.c_str() );
		//int nLen=strlen(pBuffE);
		//解密字串
		//GEncryObj->GetDStrByPassKey8(pBuffE,nLen,pBuffD);
                strAcc =AAAA;
		Ret=DB_ERR_OK;
	}

	qryGetUserAccByName->Close();
	delete	[]pBuffE;
	delete	[]pBuffD;

	return	Ret;
}



//但是这样做就会出错.
DB_RET	__fastcall  	TdbmGlobal::DBGetUserAccByName(char*	User,AnsiString &strAcc)
{

	int	len=strlen(User);
	char 	*pBuffE=new char[len*2+2];
	char	*pBuffD=new char[len*2+2];
	//加密字串
	//GEncryObj->GetEStrByPassKey8(User,len,pBuffE);
	DB_RET	Ret;
	AnsiString Sql;
	Sql="SELECT OPR_ACC FROM OPERATORS WHERE (OPR_NAME = '2714c01bc69d3909')";
	//Sql="SELECT OPR_ACC FROM OPERATORS WHERE (OPR_NAME = \'"+AnsiString(pBuffE)+"\')";
	qryGetUserAccByName->SQL->Clear();
	qryGetUserAccByName->SQL->Add(Sql);
	qryGetUserAccByName->Open();
	if(qryGetUserAccByName->RecordCount<1)
	{
		//没有此用户
		Ret=DB_ERR_USER;
	}
	else
	{
                char AAAA[256];
	        strcpy(pBuffE,qryGetUserAccByName->FieldByName("OPR_ACC")->AsString.c_str() );
		//int nLen=strlen(pBuffE);
		//解密字串
		//GEncryObj->GetDStrByPassKey8(pBuffE,nLen,pBuffD);
                strAcc ="asdf";
		Ret=DB_ERR_OK;
	}

	qryGetUserAccByName->Close();
	delete	[]pBuffE;
	delete	[]pBuffD;

	return	Ret;
}

[ooily]

ding

[CppFile]

会不会是unicode的问题呢？2009好像特别难用，一会unicode，一会Ansistring的，让人迷惑啊

[tjg5202]

[Quote=引用 9 楼 CppFile 的回复:]
会不会是unicode的问题呢？2009好像特别难用，一会unicode，一会Ansistring的，让人迷惑啊
[/Quote]up

[e_board]

要用strcpy吧，只有ansistring才可以直接赋值

[e_board]

strAcc =AnsiString（AAAA）;

[wwwzxl]

up

[wwwzxl]

[Quote=引用 11 楼 e_board 的回复:]
要用strcpy吧，只有ansistring才可以直接赋值
[/Quote]顶