저도 잘은 모르겠지만..

아마 파라미터 변수가 없다는 오라클 에러가 뜰꺼 같네요..

Query1 ->SQL ->Add("Values ('00')");
Query1->ParamByName("00")->AsString = str; 이부분을

Query1 ->SQL ->Add("Values (:param)");
Query1->ParamByName("param")->AsString = str; 이렇게 바꿔보세요..

행운이 함께 하시길...



독작 님이 쓰신 글 :
: 답답한 마음에 다시 글을 올립니다...
:
: 텍스트 파일을 읽어서 DB에 저장할라고 하는데 잘 안되네요....
: 어찌 해야 하는지...  QUERY를 사용 하고 있거든요..
: insert를 했는데 잘 안되네요...
: 텍스트의 내용을 차례로 for문을 써서 쭉 넣으려고 하는데요...
:
: 참고로 소는는 다음과 같습니다...
: 고수님들의 조언 바랍니다.....^^*
:
: void __fastcall TForm1::STARTClick(TObject *Sender)
: {
:         int i;
:         AnsiString str;
:         TStringList *s = new TStringList;
:         s->LoadFromFile("c:Test.txt");
:
:         for(int i=0; i<s->Count; i++)
:         {
:         str = s->Strings[i];      //한줄씩 읽기..
:         str = str.SubString(5,8);
:
:         Query1 ->Close();
:         Query1 ->SQL ->Clear();
:         Query1 ->SQL ->Add("Insert into dbtest(cus)");
:         Query1 ->SQL ->Add("Values ('00')");
:         Query1->ParamByName("00")->AsString = str;
:
:
:         }
:
:         try
:         {
:                 Query1 ->Open();
:         }
:         catch(EDBEngineError* dbError)
:         {
:                 for(int i = 0; i<dbError->ErrorCount; i++)
:                 {
:                         MessageBox(0,dbError[i].Message.c_str(), "SQL   
:                             Error",MB_OK);
:                 }
:         }
: }