|
클릭시 처음에 호출하여 데이타를 불러옵니다.
근데 다시 버튼을 눌러서 불러오면 에러가 납니다.
에러내용은 아래와 같습니다.
First chance exception at $7C812AEB. Exception class EAccessViolation with message 'Access violation at address 00403340 in module 'Project1.exe'. Read of address 00000230'. Process Project1.exe (1852)
여러분의 조언 부탁 드립니다.
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int i=0;
DataModule3->SQLConnection1->Open();
//사용자 트리를 먼저 읽어서 트리뷰에 뿌린다.
AnsiString readSQL="select * from sosok_info where ssi_exist_yno=1";
ShowMessage(readSQL);
DataModule3->SQLQuery1->SQL->Clear();
DataModule3->SQLQuery1->SQL->Add(readSQL);
//DataModule3->SQLQuery1->ExecSQL();
DataModule3->SQLQuery1->Open();
// ShowMessage(DataModule3->SQLQuery1->RecordCount);
if (DataModule3->SQLQuery1->RecordCount!=0) {
DataModule3->SQLQuery1->First();
TreeView1->Items->Clear();
//TreeView1->Items->Add()=0;
while(!DataModule3->SQLQuery1->Eof){
StringGrid1->Rows[i++]->Add(DataModule3->SQLQuery1->Fields->FieldByName("ssi_title")->AsString);
TreeView1->Items->Add(TreeView1->Selected,DataModule3->SQLQuery1->Fields->FieldByName("ssi_title")->AsString);
//}
DataModule3->SQLQuery1->Next();
}
DataModule3->SQLQuery1->Free();
}
// DataModule3->SQLConnection1->Connected=false;
DataModule3->SQLDataSet2->Active=false;
DataModule3->ClientDataSet2->Active=false;
DataModule3->SQLConnection1->Close();
}
|