怪事,哪儿出错啦???

wo心依然 2004-02-27 04:44:50
//连接 SQLServer
if(database->Connected == false)
{
database->AliasName = AliasName;
database->DatabaseName = DatabaseName;
database->LoginPrompt = false;
database->Params->Clear();
database->Params->Add("USER NAME=" + UserName );
database->Params->Add("PASSWORD=" + Password);
Log->Add("ÕýÔÚÁ¬½ÓSQLServer·þÎñÆ÷£¬ÇëÉÔºò...");
database->Connected = true;
f = true;
Log->Add("Á¬½ÓSQLServer·þÎñÆ÷³É¹¦£¡£¡");
}


void __fastcall TExcel::CalSinglePara(AnsiString Section, Variant& WorkBook,int row,int col,TDateTime date)
{
//TODO: רÃÅÓÃÀ´Í³¼ÆA½Ó¿Ú»°ÎñÁ¿
TIniFile *ini;
Variant Sheet;
TQuery *query;

AnsiString SQL;
AnsiString DBF;
AnsiString GenKey;
AnsiString ObjName;
AnsiString SheetName;

AnsiString sql;

try
{

query = new TQuery(NULL);

ini = new TIniFile(IniFile);
SQL = ini->ReadString(Section,"SQL","");
DBF = ini->ReadString(Section,"DBF","");
GenKey = ini->ReadString(Section,"GenKey","");
ObjName = ini->ReadString(Section,"ObjName","");
RiBaoFlag = ini->ReadString(Section,"ÈÕ±¨","0");//ÈÕ±¨±êÖ¾£¬ÈçΪ1ÔòΪÈÕ±¨£¬·ñÔòȡæʱ
SheetName = ini->ReadString(Section,"SheetName","");

AnsiString genkey;
//ÇóµÃGenKeyÖеÄÈ«Ììʱ¼ä
genkey = " GenKey>='" + date.FormatString("YYMMDD0000") + GenKey + "' and ";
genkey += " GenKey<='" + date.FormatString("YYMMDD2300") + GenKey + "' ";

sql = SQL + " where (" + genkey + ") and " + ObjName;

// sql = "select * from trunkroute" ;
Log->Add(sql);
//ShowMessage(sql);
::Sleep(2000);
query->DatabaseName = database->DatabaseName;
query->SQL->Clear();
query->SQL->Add(sql);

query->Open();
/*
AnsiString value = query->Fields->Fields[0]->AsString;
query->Active = false;
Sheet = WorkBook.OlePropertyGet("WorkSheets",SheetName);
Sheet.OleProcedure("Activate");
Sheet.OlePropertyGet("Cells",row,col).OlePropertySet("Value",FormatFloat("0.000",value.ToDouble()));
Sheet.OlePropertyGet("Cells",2,8).OlePropertySet("Value",Now().FormatString("YYYY-MM-DD HH:NN"));
*/
Log->Add("Ö´Ðгɹ¦:" + sql);
}

catch(const Exception &E)
{
Log->Add("¼ÆËã " + Section + " ʱ³ö´í£¡£¡" + E.Message);
MessageBeep(0xFFFFFFFF);
}
if(query->Active) query->Close();
delete ini;
delete query;
}
上述函数在循环执行第8次后,程序自动中止,无任何异常提示何故???在线等!!
...全文
27 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复

1,178

社区成员

发帖
与我相关
我的任务
社区描述
C++ Builder 数据库及相关技术
社区管理员
  • 数据库及相关技术社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧