SQL연결은 잘되었거든여..........근데..
근데 좀 써보았는데 많은 곳을 보았는데 ParamByName을 많이 쓰시더라구여! 다르게 입력하는것도 있던거 같은데... 입력을 주로 이런 함수로 쓰는이유도 궁금하고 아래의 코드로는 입력이 안됩니다. 좀 봐주세요!
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
with Query1 do
begin
close;
SQL.Clear;
SQL.add('insert into tblgreat (s_name) values (:s_name)');
//
ParamByName('s_name').AsString := Trim(Edit1.Text);
Prepare;
try
ExecSQL;
ShowMessage(' 추가되었습니다.');
except
showmessage('데이터베이스연결을 확인해 주십시요');
end;
Prepare;
end;
end;
------------------------------------------------------
저는 아래처럼 합니다만....
with Query1 do begin
close;
SQL.Clear;
SQL.add('insert into abcDB');
SQL.add('(A_Fild, B_fild,.......,J_fild)');
SQL.add('values');
SQL.add( (:P_Afild,:P_Bfild,......,P_Jfild)');
ParamByName('P_Afild').AsString := Trim(Edit1.Text);
ParamByName('P_Bfild').AsString := Trim(Edit2.Text);
..
ParamByName('P_Jfild').AsString := Trim(Edit7.Text);
try
ExecSQL;
ShowMessage(' 추가되었습니다.');
except
showmessage('DB 탓 하지 마세요');
end;
end;