Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[9654] ADO 사용에 대해서...(전에 답변주신 분의 내용을 봐도 모르겠어서...)
최두성 [] 900 읽음    2004-06-22 23:24
델파이 초보인데 도저히 혼자 해결하지 못해 질문드립니다.
ADO로 데이타 베이스 연결을 했는데
연결은 ADOConnection, ADODataset, DataSource로 폼2에 그리드출력을 시켰습니다.
그런데 폼2는 검색을 해서 결과레코드만 나오게 수정을 하고 싶은데 도데체
가지고 있는 책을 봐도 또 여기 저기 자료를 찾아봐도 뾰족한 답을 얻을 수가 없네요.
이렇게 저렇게 해봐도 원체 모르고 시작한 프로그램이다보니 해결하지 못하겠네요.
그리고 폼4는 한 필드를 검색해 자료를 에디트에 출력시킨뒤 수정을 해서 저장버튼을 누르면
수정된 내용이 저장되게 하고 싶은데 일단 이것도 검색을 못하니...
제일 중요한건 에디트의 내용을 키로해서 검색을 할때 ADODataSet으로는 안되는 건지 아님 다른
콤퍼넌트가 있는건지 아님 제가 모르다보니 잘못 SQL문을 쓰는건지...답답하네요...
이틀을 자료를 찾아봐도 초보다 보니 어려운 프로그램은 이해를 못하겠고
또 내 경우와 같은 경우의 데이타베이스 관련 질문이나 자료를 못찾겠네요.
아주 허접한 몇줄 안되는 제 소스를 보시고 뭐를 더 추가해야 제가 원하는데로
될수 있는지 꼭 좀 답변 부탁드리겠습니다.
(아 그리고 중간에 중괄호안에 있는 내용들은 이렇게 저렇게 해보다 남은 찌꺼기 입니다.
모르다 보니 이것저것 다 해보다가..^^)

procedure TForm2.Button1Click(Sender: TObject);
begin
  with ADODataSet1 do begin
  CommandType := cmdText;
  CommandText := 'SELECT * FROM inout where mname = :edit1.text'; <-물론 이부분이 실행될때 에러...
  open;                                                             어떻게 해야될지 모르겠네요..
  end;
  {if ADOTable1.FindField[Edit1.Text] then
  showMessage('ok')
  else ShowMessage('no')}
end;

procedure TForm2.Button4Click(Sender: TObject);
begin
  with ADODataSet1 do begin
  CommandType := cmdText;
  CommandText := 'SELECT * FROM inout';
  open;
  end;
end;


procedure TForm4.FormCreate(Sender: TObject);
begin
  with ADODataSet1 do begin
  CommandType := cmdText;
  CommandText := 'SELECT * FROM inout';
  open;
  end;
end;

procedure TForm4.Button1Click(Sender: TObject);
begin
  if (Edit3.Text<>'') then begin
  ADODataSet1.Close;
  ADOConnection1.Open;
  with ADOCommand2 do begin
  {Parameters[2].Value:=Edit3.Text;
  Edit1.Text:=FieldbyName('mname').AsString;
  Edit2.Text:=FieldbyName('name').AsString;}
  Execute;
  end;//with
  ADODataSet1.Open;
  end
  else
    ShowMessage('제품코드를 입력하시오');
end;

+ -

관련 글 리스트
9654 ADO 사용에 대해서...(전에 답변주신 분의 내용을 봐도 모르겠어서...) 최두성 900 2004/06/22
9662     Re:ADO 사용에 대해서...(전에 답변주신 분의 내용을 봐도 모르겠어서...) 희정 1033 2004/06/25
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.