Jane wrote:

> 안녕하세요.

> ADO에 관한 내용은 책에도 간단히 나왔구요.....

> 먼저 connnection을 맺고,ADOQuery를 이용하여, edit에 있는 내용을 insert

> 시키기 위하여서 어떻게 해야 하는지.....

> 주로 회원 가입이나, 뭐 그런 경우에 쓰이는 식으로요...

> 밑의 것은 안 되겠죠?

> 좀 알려 주시면 좋겠네요

> procedure TForm1.SpeedButton2Click(Sender: TObject);

> begin

> with ADOQuery1 do

> begin

> SQL.Add('insert into Friends');

> SQL.Add('( Name,Tel,zip,Addr,Cellur,Birthday,Mind,Job,company)');

> SQL.Add('value');

> SQL.Add'(:edit1.text,:edit2.text,:edit3.text,:edit4.text,

> :edit5.text,:edit6.text,:edit7.text,:combobox1.text,

> :edit8.text)');

> execSql;

> end;

> end;

>



문장을 이렇게 처리하시져.. 그래야 나중에 보기 쉬움..ㅡㅡ;

그리고..

edit의 내용을 받으려면.. 위쿼리문은 당연히.. 안됩니다..

파라미터를 설정하시죠...

흠..대략 정리하여 올립니다.. 구럼 휘리릭..





var str : string;



str := 'insert into Friends ' +

' (name,Tel,zip,Addr,Cellur,Birthday,Mind,Job,company) '+

' values '+

' (:name, :tel, :zip, :addr, :cellur, :birthday, :mind, :job, :company)';



ADO 쿼리 컴포런트 대신 ADOcommand를 사용하시구염..



with dmf.ADOCommand1 do begin

commandtext := str;

parameters.parambyname('name').value := edit1.text;

.... 요런식으로..



dmf.AdoConnect.BeginTrans;

try

Execute;

dmf.AdoConnect.CommitTrans;

except

showmessage('오류');

dmf.AdoConnect.RollbackTrans;

end;

end;