안녕하세요... 프로그램 왕초보 입니다.. 궁금한게 있어서...

현재 프로그램이 파일 db를 쓰고 있는데... 이것을 다른 컴에 있는 db와 연결 하는방법좀..... 애절한 외침....

아래처럼 위치를 지정한 다음.....(아래를 봐주세요...)

procedure TdmSales.SetWorkDir;

begin

gstrDBDir := ExtractFilePath(Application.ExeName) ; // 실행 폴더를 얻는다.

if not DirectoryExists(gstrDBDir+'DB') then // DB 폴더가 있는지 확인

begin

if not CreateDir(gstrDBDir+'DB') then // 없다면 신규로 만든다.

begin

ShowMessage('작업 폴더를 만들 수 없습니다.') ;

Exit ;

end ;

end ;

gstrDBDir := gstrDBDir+'DB' ;

chdir(gstrDBDir) ; // 폴더 이동

end;

책에 이런식으로 되어 있어서... 이렇게 한다음

// 기초 테이블을 초기화한다.

procedure TdmSales.InitTable ;

begin

// 필수 테이블들을 만든다.

with tblSummary do

begin

Close ;

DatabaseName := gstrDBDir ;

TableName := m_strSummaryName ;

if not Exists then // 계정 테이블이 있는지 확인

begin

CreatetblSummary ; // 없다면 신규로 만든다.

end ;

Open ;

end ;

이런식으로 초기화 하고

procedure TdmSales.CreatetblSummary ;

var

NewIndexOptions: TIndexOptions ;

begin

NewIndexOptions := [ixPrimary] ; // 인덱스키 옵션 지정

with tblSummary do

begin

Close ;

DatabaseName := gstrDBDir ;

TableName := m_strSummaryName ;

TableType := ttParadox; // 파라독스 형식 사용

TableLevel := 7 ;



// 필드를 정의한다.

with FieldDefs do

begin

Clear;

Add('DSCode', ftInteger, 0, True); // 계정 코드

Add('DSName', ftString, 40, True); // 계정 이름

Add('DSType', ftInteger, 0, True); // 계정 타입

end ;

// 인덱스를 정의한다.

with IndexDefs do

begin

Clear ;

Add('', 'DSCode' , NewIndexOptions);

end ;

CreateTable;

end ;

end ;

이런 식으로 table를 만드는데.... 이 것을 고쳐서 다른 예를 들어서 ms-sql에 jago라는 db에 table를 만드는 방법좀...가르쳐주세요....