void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
TCustomWinSocket *Socket)
{
char receiveBuf[ 50 ];
Socket->ReceiveBuf( receiveBuf, 1 );
AnsiString display="33333";
Memo1->Lines->Add( receiveBuf[0] );
for( int i = 7; i < 24; i )
{
display =Memo1->Lines->Strings[i];
}
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add( "INSERT INTO Data (PODNO,日期) VALUES (:a,now() )" );
ADOQuery1->Parameters->ParamByName("a")->Value=display;
ADOQuery1->Prepared=true;
ADOQuery1->ExecSQL();
ADOTable1->Active=false;
ADOTable1->Active=true;
}

以上是我的程式 執行後會有 ADOQuery1 : Parameters 'a' not found 的錯誤訊息出來
麻煩大家了
資料庫是用ACCESS

set ParamCheck property for the ADOQuery to True


Fishman

------
Fishman

再次多謝 FishMan 的教導