밝은빛 wrote:

> 안녕하세요~~~

> 데이터베이스 프로그램을 마이다스(midas)를 이용하여 작성하고 있습니다.

>

> 서버쪽에 Database, Query, Session, Provider 컴포넌트를 놓고,

> 클라이언트쪽에 MidasConnection(socket), ClientDataSet을 놓고 작업을 하는데~~

>

> 데이터의 검색은 잘 작동이 됩니다~~

> 그런데 레코드의 추가나 삭제를 어떻게 해야할지 막막하군요...

> 그냥 ODBC에서는 ExecuteSQL 문을 사용하면 되는데~~~

>

> 고수님들의 많은 도움 부탁드립니다.~~

>

> 그럼 이만~~





저 역시 잘 안되더군요..쩝

저는 query컴포넌트를 이용해서 공부 했는데요..

그래서.. 저는 서버쪽을 아래와 같이 코딩 했슴다.

서버쪽의 provider의 datarequest 이벤트에 아래와 같이요..

좋은 방법인지는 모르겠지만...쩝..

다른 방법이 있으면 연락 주시면 감사하겠습니다.



function TMQServer_Rdm.Provider1DataRequest(Sender: TObject;

Input: OleVariant): OleVariant;

var qtxt : string;

begin

query1.close;

query1.SQL.clear;

query1.SQL.add(input);

qtxt := copy(qtxt,1,1);

if (qtxt = 's') or (qtxt = 'S') then

query1.Open

else

begin

query1.ExecSQL;

query1.Sql.clear;

query1.SQL.add('select * from Country');

query1.open;

end;

end;

김민 wrote:

> 밝은빛 wrote:

> > 안녕하세요~~~

> > 데이터베이스 프로그램을 마이다스(midas)를 이용하여 작성하고 있습니다.

> >

> > 서버쪽에 Database, Query, Session, Provider 컴포넌트를 놓고,

> > 클라이언트쪽에 MidasConnection(socket), ClientDataSet을 놓고 작업을 하는데~~

> >

> > 데이터의 검색은 잘 작동이 됩니다~~

> > 그런데 레코드의 추가나 삭제를 어떻게 해야할지 막막하군요...

> > 그냥 ODBC에서는 ExecuteSQL 문을 사용하면 되는데~~~

> >

> > 고수님들의 많은 도움 부탁드립니다.~~

> >

> > 그럼 이만~~

>

>

> 저 역시 잘 안되더군요..쩝

> 저는 query컴포넌트를 이용해서 공부 했는데요..

> 그래서.. 저는 서버쪽을 아래와 같이 코딩 했슴다.

> 서버쪽의 provider의 datarequest 이벤트에 아래와 같이요..

> 좋은 방법인지는 모르겠지만...쩝..

> 다른 방법이 있으면 연락 주시면 감사하겠습니다.

>

> function TMQServer_Rdm.Provider1DataRequest(Sender: TObject;

> Input: OleVariant): OleVariant;

> var qtxt : string;

> begin

> query1.close;

> query1.SQL.clear;

> query1.SQL.add(input);

> qtxt := copy(qtxt,1,1);

> if (qtxt = 's') or (qtxt = 'S') then

> query1.Open

> else

> begin

> query1.ExecSQL;

> query1.Sql.clear;

> query1.SQL.add('select * from Country');

> query1.open;

> end;

> end;



한가지 더요...



쩝..

클라이언트에서는 쿼리를 전송하는 부분이 있어야 함다.

ClientDataSet1.Close;

ClientDataSet1.Provider.DataRequest('delete from dept.db where deptcode = 1234');

ClientDataSet1.Open;

물론 위와 같이 쓸려면 clientDataset 컴포넌트를 사용해야 함다.



마산에서 김주민이가...

이렇게 쓰세요



sSQL := ' DELETE UserID FROM Users WHERE UserID = ' + '''' + edUserID.Text + '''';



with ClientDataSetManager do

begin

Close;

Params.Clear;

CommandText := sSQL;

Execute;



Close;

end;



그럼 즐코^^



김민 wrote:

> 김민 wrote:

> > 밝은빛 wrote:

> > > 안녕하세요~~~

> > > 데이터베이스 프로그램을 마이다스(midas)를 이용하여 작성하고 있습니다.

> > >

> > > 서버쪽에 Database, Query, Session, Provider 컴포넌트를 놓고,

> > > 클라이언트쪽에 MidasConnection(socket), ClientDataSet을 놓고 작업을 하는데~~

> > >

> > > 데이터의 검색은 잘 작동이 됩니다~~

> > > 그런데 레코드의 추가나 삭제를 어떻게 해야할지 막막하군요...

> > > 그냥 ODBC에서는 ExecuteSQL 문을 사용하면 되는데~~~

> > >

> > > 고수님들의 많은 도움 부탁드립니다.~~

> > >

> > > 그럼 이만~~

> >

> >

> > 저 역시 잘 안되더군요..쩝

> > 저는 query컴포넌트를 이용해서 공부 했는데요..

> > 그래서.. 저는 서버쪽을 아래와 같이 코딩 했슴다.

> > 서버쪽의 provider의 datarequest 이벤트에 아래와 같이요..

> > 좋은 방법인지는 모르겠지만...쩝..

> > 다른 방법이 있으면 연락 주시면 감사하겠습니다.

> >

> > function TMQServer_Rdm.Provider1DataRequest(Sender: TObject;

> > Input: OleVariant): OleVariant;

> > var qtxt : string;

> > begin

> > query1.close;

> > query1.SQL.clear;

> > query1.SQL.add(input);

> > qtxt := copy(qtxt,1,1);

> > if (qtxt = 's') or (qtxt = 'S') then

> > query1.Open

> > else

> > begin

> > query1.ExecSQL;

> > query1.Sql.clear;

> > query1.SQL.add('select * from Country');

> > query1.open;

> > end;

> > end;

>

> 한가지 더요...

>

> 쩝..

> 클라이언트에서는 쿼리를 전송하는 부분이 있어야 함다.

> ClientDataSet1.Close;

> ClientDataSet1.Provider.DataRequest('delete from dept.db where deptcode = 1234');

> ClientDataSet1.Open;

> 물론 위와 같이 쓸려면 clientDataset 컴포넌트를 사용해야 함다.

>

> 마산에서 김주민이가...