안녕하세요
수고 많습니다.
정확한 답변이 될지 모르겠습니다.
DB가 첨부 되어 있지 않아서 정확한 테스트는 못해서습니다.
그리고 저는 D:더라이브가 없습니다.
그래서 확실한 테스트는 못했습니다.
아래 글은 참조만 하세요
그럼 수고 하세요
procedure TForm1.Button1Click(Sender: TObject);
begin
jeja.Active:=True;
jeja.Active:=False;
jeja.DatabaseName:='d:연결프로그랭연결부분데이타베이스 네임';
jeja.TableName:='jeja.db';
//아마 이부분때문에 "Missing TableName Property"이런 에러가 나타나지 않아나 생각 합니다.
고수들 한데 이부분에 대해서 질문을 해보세요
jeja.EmptyTable;
jeja.Active:=True;//저는 주로 이렇게 사용하고 있습니다.
//jeja := TTable.create(nil);//이부분은 저의 짧은 소견으로는 이해가
안오입니다. table이 있는데 또 같은 이름으
로 생성하느까 이상하네요... 궁금합니다.
//jeja.open;
while not jeja.EOF do
begin
if (jeja.State in [dsEdit, dsInsert] ) then
//if (jeja.State=dsedit) or (jeja.state= dsInsert) then
try
jeja.edit;
jejagiho_LeeII;
jejameying := form1.edit1.text;
form1.edit2.text := jejagiho;
finally
showmessage ('오류');
end;
jeja.next;
jeja.post;
DBgrid1.fields[0].AsString := form1.edit1.Text;
DBgrid1.fields[1].Asstring := form1.edit2.Text;
수고 많습니다.
정확한 답변이 될지 모르겠습니다.
DB가 첨부 되어 있지 않아서 정확한 테스트는 못해서습니다.
그리고 저는 D:더라이브가 없습니다.
그래서 확실한 테스트는 못했습니다.
아래 글은 참조만 하세요
그럼 수고 하세요
procedure TForm1.Button1Click(Sender: TObject);
begin
jeja.Active:=True;
jeja.Active:=False;
jeja.DatabaseName:='d:연결프로그랭연결부분데이타베이스 네임';
jeja.TableName:='jeja.db';
//아마 이부분때문에 "Missing TableName Property"이런 에러가 나타나지 않아나 생각 합니다.
고수들 한데 이부분에 대해서 질문을 해보세요
jeja.EmptyTable;
jeja.Active:=True;//저는 주로 이렇게 사용하고 있습니다.
//jeja := TTable.create(nil);//이부분은 저의 짧은 소견으로는 이해가
안오입니다. table이 있는데 또 같은 이름으
로 생성하느까 이상하네요... 궁금합니다.
//jeja.open;
while not jeja.EOF do
begin
if (jeja.State in [dsEdit, dsInsert] ) then
//if (jeja.State=dsedit) or (jeja.state= dsInsert) then
try
jeja.edit;
jejagiho_LeeII;
jejameying := form1.edit1.text;
form1.edit2.text := jejagiho;
finally
showmessage ('오류');
end;
jeja.next;
jeja.post;
DBgrid1.fields[0].AsString := form1.edit1.Text;
DBgrid1.fields[1].Asstring := form1.edit2.Text;
if jeja.active then
jeja.close;
end;
end;