13,822
社区成员
发帖
与我相关
我的任务
分享
String swp;
try
{
AContext->Connection->IOHandler->CheckForDisconnect(True,True);
AContext->Connection->IOHandler->DefStringEncoding=TEncoding::Default;
swp=AContext->Connection->IOHandler->ReadLn();
if(swp!="")
AContext->Connection->IOHandler->WriteLn("服务器已经收到您发来的信息:"+swp);
Memo1->Lines->Add(UTF8Encode(swp));
//ShowMessage(swp);
TBookmark yqw_BM;
yqw_BM=ADOQuery1->GetBookmark();
TADOQuery *pado=new TADOQuery(NULL);
pado->Connection=this->ADOConnection1;
String testSql="INSERT INTO hlfloor.dbo.DF_PF_D( \
DF_PF_M_CODE,DF_PF_M_TYPE, DF_PF_D_XH,NEED_FL) values ( \
'test','2',2, '√')";
pado->SQL->Add(testSql);
pado->ExecSQL();
delete pado;
ADOQuery1->Close();
ADOQuery1->Open();
/*
TBookmark yqw_BM; // 做标记,使当前记录不移动
yqw_BM = ADOQuery1->GetBookmark();
if(ADOQuery1->BookmarkValid(yqw_BM))
{
ADOQuery1->GotoBookmark(yqw_BM);
}
ADOQuery1->FreeBookmark(yqw_BM);
*/
// AContext->Connection->IOHandler->writel
//return;
}
catch(...)
{
}