[ASK] insert data float (hasil perkalian) ke sql server melalui delphi

Beranda

...

Programmer Forum
[ASK] insert data float (hasil perkalian) ke sql server melalui delphi

dondonondon

19-12-2016 04:57

[ASK] insert data float (hasil perkalian) ke sql server melalui delphi

[ASK] Maaf nanya terus
Permisi gan, ane mau tanya gmna carannya menyimpan nilai pecahan gan?
ane setiap kali simpan nilai hasil dan inputan pecahan selalu error gan...
::: Info
Jika hasil dan inputan bukan pecahan, proses penyimpanan tidak mengalami error, dan nilai berhasil masuk ke database, lain hal kalo ane inputin nilai pecahan, hasilnya error gan. mohon pencerahannya gan
::: NB
pakai ataupun tidak pakai +QuotedStr(Edit*.Text) sama saja gan
::: source code::

Quote:

procedure TForm1.insert;
var a:string;
b:string;
c:double;
begin
a:= Edit2.Text;
b:= Edit3.Text;
c:= StrToFloat(Edit2.Text) * StrToFloat(Edit3.Text);
Edit4.Text:= FloatToStr(c);
with ADOQuery1 do
begin
active:=false;
close;
sql.clear;
sql.Text:= 'insert into tbl_hit values ('+QuotedStr(edit1.Text)+
','+QuotedStr(Edit2.Text)+
','+QuotedStr(Edit3.Text)+
','+QuotedStr(Edit4.Text)+')';
ExecSql;
end;
with ADOQuery1 do
begin
active:=false;
close;
sql.Clear;
sql.Text:='select *from tbl_hit';
ExecSql;
active:=true;
end;

Spoiler for Gambar:

Quote: