Q&A

  • 세롭게 open한 DB를 보려면 어떻게 하나여?(왕초보가..)
DB를 두개 열고 싶은데여...

open하면 똑같은 디비가 열리는데 무엇이 잘못되었는쥐 모르겠어여...고수님들 갈텨주세여...왕초보가.....



procedure TForm1.Button1Click(Sender: TObject);

begin

if OpenDialog1.Execute then

begin

OpenDialog1.FileName

end;

Database1.Open;

Table1.Open;

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

if OpenDialog1.Execute then

begin

OpenDialog1.FileName

end;

Database2.Open;

Table2.Open;

end;

1  COMMENTS
  • Profile
    이치형 2000.04.20 03:06
    차니 wrote:

    > DB를 두개 열고 싶은데여...

    > open하면 똑같은 디비가 열리는데 무엇이 잘못되었는쥐 모르겠어여...고수님들 갈텨주세여...왕초보가.....

    >

    > procedure TForm1.Button1Click(Sender: TObject);

    > begin

    > if OpenDialog1.Execute then

    > begin

    > OpenDialog1.FileName

    > end;

    > Database1.Open;

    > Table1.Open;

    > end;

    >

    > procedure TForm1.Button2Click(Sender: TObject);

    > begin

    > if OpenDialog1.Execute then

    > begin

    > OpenDialog1.FileName

    > end;

    > Database2.Open;

    > Table2.Open;

    > end;

    하고자하는 일이 원하는 데이터베이스명을 다이얼로그박스에서 선택해서 열고 싶은거겠지요?

    > if OpenDialog1.Execute then

    > begin

    > OpenDialog1.FileName

    Table1.Close;

    Table1.IndexName := ''//인덱스파일존제시 입력

    Table1.Tablename := ExtractFilename(OpenDialog1.FileName)

    > end;

    > Database1.Open;

    > Table1.Open;

    ExtractFilename(OpenDialog1.FileName)요 부분은 다이얼로그박스에서 파일명을 입력

    받으면 파일의 실제 위치와 같이 예 C:Test.dbf 와 같이 리턴이 됩니다.. 그래서

    이 명령을 사용하여 패스를 제외한 실제 파일이름만을 리턴하는 거지요..

    안되면 메일 주세요.. 그럼 성공 하길 빕니다.. 성공해도 메일주세요.. 궁금하니까...^.^



    • 델초보
    • 2000.04.20 14:50
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 뎐세
      2000.07.15 18:51
      Thread를 사용하시는게 좋겠네요. 먼저 Thread unit을 하나 만들구요. anyThread = class(TThread) ...
    • 강민주
      2000.04.20 10:34
      이진수 wrote: > dbgrid에서 현재 table의 전체 레코드들이 존재하는 상태에서 화면에 나타나는 레코드만...
    • Mr.Q
    • 2000.04.20 09:36
    • 3 COMMENTS
    • /
    • 0 LIKES
    • 2000.04.20 21:09
      Mr.Q wrote: > date나, now는 2000년을 00년으로 표현해주는데, > 자신의 나이를 빼서, 출생년도를 구하...
    • 강민주
      2000.04.20 09:50
      Mr.Q wrote: > date나, now는 2000년을 00년으로 표현해주는데, > 자신의 나이를 빼서, 출생년도를 구하...
    • 조규춘
      2000.04.20 09:51
      Mr.Q wrote: > date나, now는 2000년을 00년으로 표현해주는데, > 자신의 나이를 빼서, 출생년도를 구하...
    • mad
    • 2000.04.20 09:19
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 강민주
      2000.04.20 09:47
      mad wrote: > 안녕하세요. > 이틀째 입니다. 이문제로 고생하고 있는 것이 쩝~ > 제가 할려는 것은 테이...
    • mad
      2000.04.21 10:44
      필터를 찾아봤지만 책에는 날짜형과 문자형이 비교대상이 되지 않아요. 에러가 뜹니다. 이것을 보시고 생...
    • 조규춘
      2000.04.20 09:43
      어린왕자 wrote: > 안녕하세요..손댈데 많은 델초보 어린왕자입니다. > 도움말을 보다가..파스칼문법이 ...
    • 최용일
      2000.04.20 07:14
      안녕하세요. 최용일입니다. 이런건 조금만 생각해보면 하실수 있을텐데요... 일단은 for문으로 돌려야겠...
    • 냉이
    • 2000.04.20 06:48
    • 2 COMMENTS
    • /
    • 0 LIKES
    • Mr.Q
      2000.04.20 12:21
      냉이 wrote: > 안녕하세요.. 저는 이제서야 델파이를 배우기 시작한 초보입니다.. > edit박스에서 입력받...
    • 최용일
      2000.04.20 07:17
      안녕하세요. 최용일입니다. 메세지박스를 띄울땐 ShowMessage함수를 이용합니다. 예) ShowMessage('이 ...
    • 박정용
      2000.04.21 22:49
      아주 간단한건데.. 어떻게 하냐면요 델파이의 오브젝트 인스펙트창에서 보면 각각의 컴포넌트마다 cursor...
    • 하얀까마귀
      2000.04.20 07:46
      안녕하세요 하얀까마귀 입니다.. CM_MOUSELEAVE, CM_MOUSEENTER 메시지를 이용하시면 마우스가 콘트롤 ...
    • 하얀까마귀
      2000.04.20 07:54
      안녕하세요 하얀까마귀 입니다.. 질문하신게 마치 스토어드 프로시져 같네요... 후후 지금 말씀하신 ...
    • 초보
    • 2000.04.20 05:30
    • 0 COMMENTS
    • /
    • 0 LIKES
    • Mr.Q
      2000.04.20 05:11
      어린왕자 wrote: > 안녕하세요..델피언님들.. > 오늘두 질문 하나할께요.. > 커서가 스트링그리드 한셀...
    • 어린왕자
      2000.04.20 06:32
      Mr.Q wrote: > 어린왕자 wrote: > > 안녕하세요..델피언님들.. > > 오늘두 질문 하나할께요.. > > 커서...
    • 어린왕자
      2000.04.20 06:55
      스트링그리드의 에디트모드가 True가 되었을때 성공하더라구요.. 어린왕자 wrote: > Mr.Q wrote:...
    • 이치형
      2000.04.20 03:20
      초보 wrote: > 변수값(문자형)을 리스트박스에 5번 출력되게 하는건데, 잘 모르겠어요. 안녕하세요? 아...
    • 깨구르
    • 2000.04.20 02:56
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 병규
      2000.04.20 04:39
      안녕하세요.. 메모란을 False로 하지 마시고 속성창에서 ReadOnly를 TRUE로 하세요.. 그렇게 하시면 같은 ...
    • 이치형
      2000.04.20 03:16
      깨구르 wrote: > 사정상 Meme의 Enabled를 false로 했는데 그 안에 적어진 > 글자의 색깔을 바꿀순 없나...
    • Mr.Q
      2000.04.20 05:18
      초보운전 wrote: > 델파이 함수 중에 Trim 이란거 있죠.. > > 이 함수좀 자세히 설명해 주실분 없나요?...
    • ACCESS
      2000.04.20 02:45
      초보운전 wrote: > 델파이 함수 중에 Trim 이란거 있죠.. > > 이 함수좀 자세히 설명해 주실분 없나요?...
    • 이치형
      2000.04.20 03:27
      ACCESS wrote: > 초보운전 wrote: > > 델파이 함수 중에 Trim 이란거 있죠.. > > > > 이 함수좀 자세...
    • ACCESS
    • 2000.04.20 02:20
    • 0 COMMENTS
    • /
    • 0 LIKES
    • ACCESS
    • 2000.04.20 02:19
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 하얀까마귀
      2000.04.20 08:17
      안녕하세요 하얀까마귀 입니다... 헉헉 질문 읽는다고 고생했다.. 헉헉~~ ( 엑세스님이 상세히 질문을 ...
    • ACCESS
      2000.04.20 21:43
      덕분에 모든 문제가 해결되였읍니다. 며칠동안 해결책을 찾다가 겨우 CalcField를 써서 해결하긴 했지만...
    • 차니
    • 2000.04.20 02:39
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 이치형
      2000.04.20 03:06
      차니 wrote: > DB를 두개 열고 싶은데여... > open하면 똑같은 디비가 열리는데 무엇이 잘못되었는쥐 모...
    • 최현수
    • 2000.04.20 02:07
    • 3 COMMENTS
    • /
    • 0 LIKES
    • 강민주
      2000.04.20 02:20
      최현수 wrote: > 안녕하세요. > 흠, 요앞 제가올린 프린트 문제는 아무도 답을 해주시지 않는 군요. > ...
    • 최현수
      2000.04.20 02:45
      강민주님께서 답해주신대로 하니까.. 아래 코드에서 label1.Caption := format('#,0',[1234567]); 결...
    • 강민주
      2000.04.20 03:12
      에구 실수.. str := FormatFloat(' #,0', [Value]); 이렇게 하세요.. ^^;