|
if(Query3->Active) Query3->Close(); // dispaly and save.
Query3->SQL->Clear();
Query3->SQL->Add("insert into nowreport.db");
Query3->SQL->Add("(성명, 내용, 시간, 전송, 표시)");
Query3->SQL->Add("Values");
if(cum_data==0)
{
Query3->SQL->Add("('" + Query2->FieldByName("성명")->AsString +"',");
Query3->SQL->Add("'" + DateTimeToStr(Now())+ "','" + Query1->FieldByName("내용")->AsString+'",");
Query3->SQL->Add("'" + Call[0] +"','" + Query1->FieldByName("표시")->AsString +"')");
} + Now().FormatString("yy/mm/dd hh:mm:ss")+
else
{
Query3->SQL->Add("('" + Query2->FieldByName("성명")->AsString +"',"); // id, CODE입력.
Query3->SQL->Add("'" +DateTimeToStr(Now())+"','" + Query1->FieldByName("내용")->AsString +"',");
Query3->SQL->Add("'" + Call[0] +"','" + Query1->FieldByName("표시")->AsString +"')");
}
Query3->ExecSQL();
Query3->SQL->Clear();
Query3->SQL->Add("select 성명, 내용, 시간, 전송 from nowreport.db");
Query3->SQL->Add("where 표시 = 'YES'");
Query3->ExecSQL();
Query3->Open();
대충 이렇게 데이타를 저장하는거거든요..
근데.. 자꾸..
Project Project1.exe raised exception class EDBEngineError with message 'Unexpected
end of command.
Token: '03-08-26 오후 12?
Line Number: 6'. Prowcess stopped. Use Step or Run to contine.
이런 에러가 나네요..??
근데 이상한건..
시간알아내는 함수를..
DateTimeToStr(Now())써서 에러가 나서 Now().FormatString("yy/mm/dd hh:mm:ss") 이걸 썼더니..
에러가 안나고,,
근데 조금 있다가 또 위와 같은 에러나고,,
그래서 또 이전 DateTimeToStr(Now())를 쓰면 또 안나고,,
저번주에는 계속 안나나가..
어제부터..
한번 데이터 입력하고, 두번째 할때는 꼭 나네요..?
왜 이러죠??
|