델파이 초보인데 도저히 혼자 해결하지 못해 질문드립니다.
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;
|