Q&A

  • 소스 좀 봐주세여.
델파이 걸음마하는 초봅니다.

텍스트파일에 저장되어있는 내용을 기억장소에 불러와 그 내용을

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;

1  COMMENTS
  • Profile
    컴맹... 2000.12.05 18:19
    아래의 메시지는 Table name 을 입력을 하지 않은경우에 나는 에러군여..



    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;