델파이 걸음마하는 초봅니다.
텍스트파일에 저장되어있는 내용을 기억장소에 불러와 그 내용을
DB화하는 프로그램을 만들어보고 있는데, 제겐 좀 어렵네요.
아래와 같이 했더니, 'Missing Table name property'라는 에러메세지가 뜨는데,
어디가 잘못되었고, 또 이렇게하면 알고리즘은 대충 맞는것인지 궁금해여.
알려주세요. ㅜ.ㅜ
procedure TdbChange.ChangeButtonClick(Sender: TObject);//기억장소의 문제와 답을 DB로
begin
if RadioButton1.Checked = True then AssignFile(F1, 'munje.txt');
Reset(F1);
while not eof(F1) do
begin
readln(F1,mun); //문제저장변수,string형
readln(F1,dap); //문제의 답 저장변수,string형
readln(F1,b1); //보기1의 저장변수,string형
readln(F1,b2); //보기2의 저장변수,string형
readln(F1,b3); //보기3의 저장변수,string형
readln(F1,b4); //보기4의 저장변수,string형
ADOTable1.Close;
ADOTable1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:munjemunje.mdb;Persist Security Info=False';
ADOTable1.Open;
ADOTable1.Last;
ADOTable1.Insert;
ADOTable1.FieldByName('Question').AsString := mun;
ADOTable1.FieldByName('Ans').AsString := dap;
ADOTable1.FieldByName('1').AsString := b1;
ADOTable1.FieldByName('2').AsString := b2;
ADOTable1.FieldByName('3').AsString := b3;
ADOTable1.FieldByName('4').AsString := b4;
ADOTable1.Post;
end;
CloseFile(F1);
end;
Object inspector 의 TableName Property를 살펴보세여..
그럼 이만..
델걸음마 wrote:
> 델파이 걸음마하는 초봅니다.
> 텍스트파일에 저장되어있는 내용을 기억장소에 불러와 그 내용을
> DB화하는 프로그램을 만들어보고 있는데, 제겐 좀 어렵네요.
> 아래와 같이 했더니, 'Missing Table name property'라는 에러메세지가 뜨는데,
> 어디가 잘못되었고, 또 이렇게하면 알고리즘은 대충 맞는것인지 궁금해여.
> 알려주세요. ㅜ.ㅜ
>
> procedure TdbChange.ChangeButtonClick(Sender: TObject);//기억장소의 문제와 답을 DB로
> begin
> if RadioButton1.Checked = True then AssignFile(F1, 'munje.txt');
> Reset(F1);
> while not eof(F1) do
> begin
> readln(F1,mun); //문제저장변수,string형
> readln(F1,dap); //문제의 답 저장변수,string형
> readln(F1,b1); //보기1의 저장변수,string형
> readln(F1,b2); //보기2의 저장변수,string형
> readln(F1,b3); //보기3의 저장변수,string형
> readln(F1,b4); //보기4의 저장변수,string형
>
> ADOTable1.Close;
> ADOTable1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:munjemunje.mdb;Persist Security Info=False';
> ADOTable1.Open;
> ADOTable1.Last;
> ADOTable1.Insert;
> ADOTable1.FieldByName('Question').AsString := mun;
> ADOTable1.FieldByName('Ans').AsString := dap;
> ADOTable1.FieldByName('1').AsString := b1;
> ADOTable1.FieldByName('2').AsString := b2;
> ADOTable1.FieldByName('3').AsString := b3;
> ADOTable1.FieldByName('4').AsString := b4;
> ADOTable1.Post;
> end;
> CloseFile(F1);
> end;