Q&A

  • 쿼리.. 좀 봐주세요..
안녕하세요.. 델파이를 이제 막 시작한.. 초보자 입니다..



procedure TForm2.Button1Click(Sender: TObject);

var

AppPath: String;

i: integer;



begin

apppath := ExtractFilePath(Application.ExeName);

with Query1 do begin

close;

databaseName:= apppath + 'IP.db';

sql.clear;

sql.add('Select * From ip');

open;

first;

for i := 1 to RecordCount do

begin

TEdit(FindComponent('Edit' + inttostr(i))).text := FieldByNam('Field1').AsString;

next;

end;

end;

end;





이게 제가 쿼리할때.. 쓴.. 코드인데요..

저기 튀어나온문장은(TEdit 줄)은..문장이 너무 길어서.. 한줄에 넣기 위해..

어쩔수 없이... 양해해주시길....

위의 코드가 제가 버튼 클릭시.. 쿼리를 해 오도록 한 코드 입니다..

Ip.DB는 파라독스로 만든거고요..(잘 만들었는지는 모르지만..^^;)

실행을 시키면... 에러가 나는군요..

Invalid Directory

Directory: D:Mo Proip.db

이런 에러가..

디렉토리 경로명은 맞는데.. 확실히.. 이 결로명안에 IP.DB가 있거든요..

제가 파라독스로.. DB를 만들때.. 뭘 잘못 만들어 줬는지..

아님.. 뭘 잘못했으까이.. 요..



1  COMMENTS
  • Profile
    조복기 2001.02.22 09:10


    안녕하세요..

    dataasename프로퍼티에 경로명만 적어주심 될것같네요..

    수고하세요~



    > procedure TForm2.Button1Click(Sender: TObject);

    > var

    > AppPath: String;

    > i: integer;

    >

    > begin

    > apppath := ExtractFilePath(Application.ExeName);

    > with Query1 do begin

    > close;

    > databaseName:= apppath + 'IP.db';

    > sql.clear;

    > sql.add('Select * From ip');

    > open;

    > first;

    > for i := 1 to RecordCount do

    > begin

    > TEdit(FindComponent('Edit' + inttostr(i))).text := FieldByNam('Field1').AsString;

    > next;

    > end;

    > end;

    > end;









    델파초짜.. wrote:

    > 안녕하세요.. 델파이를 이제 막 시작한.. 초보자 입니다..

    >

    > procedure TForm2.Button1Click(Sender: TObject);

    > var

    > AppPath: String;

    > i: integer;

    >

    > begin

    > apppath := ExtractFilePath(Application.ExeName);

    > with Query1 do begin

    > close;

    > databaseName:= apppath + 'IP.db';

    > sql.clear;

    > sql.add('Select * From ip');

    > open;

    > first;

    > for i := 1 to RecordCount do

    > begin

    > TEdit(FindComponent('Edit' + inttostr(i))).text := FieldByNam('Field1').AsString;

    > next;

    > end;

    > end;

    > end;

    >

    >

    > 이게 제가 쿼리할때.. 쓴.. 코드인데요..

    > 저기 튀어나온문장은(TEdit 줄)은..문장이 너무 길어서.. 한줄에 넣기 위해..

    > 어쩔수 없이... 양해해주시길....

    > 위의 코드가 제가 버튼 클릭시.. 쿼리를 해 오도록 한 코드 입니다..

    > Ip.DB는 파라독스로 만든거고요..(잘 만들었는지는 모르지만..^^;)

    > 실행을 시키면... 에러가 나는군요..

    > Invalid Directory

    > Directory: D:Mo Proip.db

    > 이런 에러가..

    > 디렉토리 경로명은 맞는데.. 확실히.. 이 결로명안에 IP.DB가 있거든요..

    > 제가 파라독스로.. DB를 만들때.. 뭘 잘못 만들어 줬는지..

    > 아님.. 뭘 잘못했으까이.. 요..

    >