아래와 같이 DB에 Insert를 할려구 하거든요..근데 에러메세지가 떠여..
환장하겠습니다..
폼에는 TDataSource 와 TQuery 컴포넌트가 있습니다.
에러 메세지는여

Project Mdiapp.exe raised exception class EDBEngineError with message 'Type
mismatch in expression.'. Process stopped. Use Step or Run to continue.
아래 코드하고 좀 봐주세염..고수님들....


void __fastcall TTestForm::SpeedButton2Click(TObject *Sender)
{
        CConTable->Close();
        CConTable->SQL->Clear();
        CConTable->SQL->Add("INSERT INTO TestDB (Code) Values (:Code)");

        CConTable->ParamByName("Code")->AsInteger = StrToInt(Edit1->Text);

        try
        {
                CConTable->ExecSQL();
        }
        catch(EDBEngineError* dbError)
        {
                for(int cnt = 0 ; cnt < dbError->ErrorCount ; cnt++)
                {
                        MessageBox(0, dbError[cnt].Message.c_str(), "SQL Error", MB_OK);
                }
        }
}
//---------------------------------------------------------------------------