소스는 아래와 같습니다.
그런데 이렇게해서 수정을 해도 데이터가 수정이되지를 않고 SQL과 연결된 DBGrid에도 아무런 변화가 없습니다.
SQL은 초보라서 도무지...
고수님들의 상세한 답변 부탁드립니다.
with form1.memberSQLQuery do
begin
close;
Sql.Clear;
SQL.Add( 'Update member.DB' );
SQL.Add(' Set Name=:Name,Jumin=:Jumin,Age=:Age,Sex=:Sex,AddYear=:AddYear,Jong_A=:Jong_A,Jong_B=:Jong_B,Tel=:Tel,Handphon=:HandPhon,Juso=:Juso,Memo=:Memo');
SQL.Add(' WHERE Jumin = Trim(Form1.MemJuminEdit) ');
ParamByname('Name').AsString := Form1.MemNameEdit.Text;
ParamByname('Jumin').AsString := Form1.MemJuminEdit.Text;
ParamByname('Age').AsString := Form1.MemAgeEdit.Text;
ParamByname('Sex').AsString := Form1.MemSexEdit.Text;
ParamByname('AddYear').AsString := Form1.MemYearEdit.Text;
ParamByname('Jong_A').AsString := Form1.MemUpEdit.Text;
ParamByname('Jong_B').AsString := Form1.MemJikEdit.Text;
ParamByname('Tel').AsString := Form1.MemTelEdit.Text;
ParamByname('HandPhon').AsString := Form1.MemHandEdit.Text;
ParamByname('Juso').AsString := Form1.MemJusoEdit.Text;
ParamByname('Memo').AsString := Form1.MemMemoEdit.Text;
ExecSql;
end;
seq: String
이런 식으로 하여
with form1.memberSQLQuery do
seq := 'Update member.DB ' +
' Set Name= ' + Format('''%s''',[Form1.MemNameEdit.Text]) +
' Jumin= ' +Format('''%s''',[Form1.MemJuminEdit.Text])
....
' WHERE Jumin = ' +Trim(Form1.MemJuminEdit.Text;
Sql.Add(seq);
ExecSql;
Select; ====>procedure 처리나 function처리
end;
그리고, 이 작업전에...다시 Select 하는 프로시저를 하나만들어 실행시키면
될것입니다.
procedre Select;
var
seq:String;
begin
form1.memberSQLQuery.Close;
form1.memberSQLQuery.Sql.Clear;
with form1.memberSQLQuery do
seq := 'Select * from member.DB ';
Sql.Add(seq);
ExecSql;
end;
form1.memberSQLQuery.Open;
end;
그럼 즐코하세요