Arsip: Sintak Update SQL

more 14 years ago
asepolin
tbpembelian_tmp.Active := false ;
tbpembelian_tmp.CommandText := 'Select * from pembelian_tmp ';
tbpembelian_tmp.Active := false;
tbpembelian_tmp.First;
while not tbpembelian_tmp.Eof do
begin
edit9.Text := tbpembelian_tmp['kode_barang'];
with adoquery1 do
begin
if AdoQuery1.Active = true then close ;
adoquery1.SQL.Clear;
adoquery1.SQL.text:= 'update data_barang set stok = stok + ' + tbpembelian_tmp.fieldbyname('quantitas').Value + 'where kode_barang = ' + quotedstr(edit9.Text) ;
adoquery1.Open;
end;
tbpembelian_tmp.Next;
end;
PESAN ERRONYA ADALAH : invalid variant type converstion
kenapa ya .. please help me .....

more 14 years ago
cyber_hecker
adoquery1.SQL.text:= 'update data_barang set stok = stok + ' + tbpembelian_tmp.fieldbyname('quantitas').Value + 'where kode_barang = ' + quotedstr(edit9.Text) ;
adoquery1.SQL.text :=
'update data_barang set stok = stok + ' +
tbpembelian_tmp.fieldbyname('quantitas').AsString +
'where kode_barang = ' + quotedstr(edit9.Text) ;

more 14 years ago
mas_kofa
@asepolin: tbpembelian_tmp.Active := false ; tbpembelian_tmp.CommandText := 'Select * from pembelian_tmp '; tbpembelian_tmp.Active := false;apa yg ini gak salah......... yang baris ketiga
tbpembelian_tmp.Active := true;
kale........
more 14 years ago
asepolin
@cyber_hecker: adoquery1.SQL.text:= 'update data_barang set stok = stok + ' + tbpembelian_tmp.fieldbyname('quantitas').Value + 'where kode_barang = ' + quotedstr(edit9.Text) ;asvalue sudah di ganti menjadi asstring HASILNYA TETEP ERROR BOSadoquery1.SQL.text := 'update data_barang set stok = stok + ' + tbpembelian_tmp.fieldbyname('quantitas').AsString + 'where kode_barang = ' + quotedstr(edit9.Text) ;

more 14 years ago
asepolin
@mas_kofa:tbpembelian_tmp.active := true; uidah di ganti tetep BOS@asepolin: tbpembelian_tmp.Active := false ; tbpembelian_tmp.CommandText := 'Select * from pembelian_tmp '; tbpembelian_tmp.Active := false;apa yg ini gak salah......... yang baris ketigakale........tbpembelian_tmp.Active := true;

more 14 years ago
asepolin
sintak sudah saya rubah menjadi seperti ini
with adoquery1 do
begin
if AdoQuery1.Active = true then close ;
adoquery1.SQL.Clear;
adoquery1.SQL.add('update data_barang set stok = stok + ' + tbpembelian_tmp.fieldbyname('quantitas').asstring + 'where kode_barang ='+edit9.Text ) ;
adoquery1.ExecSQL;
end;
PESAN ERROR-NYA SBB : CHECK TH MANUAL THAT CORRESPONDS TO YOUR MYSQL server version for the righ syntax to user near 'KODE_BARANG=TS-C1-002-001-001' at line 1. process stioped

more 14 years ago
asepolin
berkat pertolongan ALLAH SQT
hasil akhir seperti ini :
tbpembelian_tmp.Active := false ;
tbpembelian_tmp.CommandText := 'Select * from pembelian_tmp ';
tbpembelian_tmp.Active := true;
tbpembelian_tmp.First;
while not tbpembelian_tmp.Eof do
begin
edit9.Text := tbpembelian_tmp['kode_barang'];
with adoquery1 do
begin
if AdoQuery1.Active = true then close ;
adoquery1.SQL.Clear;
adoquery1.SQL.add('update data_barang set stok = stok + :quantitas where kode_barang = ' + quotedstr(edit9.Text) ) ;
adoquery1.Prepared;
adoquery1.Parameters[0].Value := tbpembelian_tmp['quantitas'];
adoquery1.ExecSQL;
end;
tbpembelian_tmp.Next;
end;

more 14 years ago
ichan29
adoquery1.SQL.text:= 'update data_barang set stok = stok + ' + tbpembelian_tmp.fieldbyname('quantitas').Value + 'where kode_barang = ' + quotedstr(edit9.Text) ;
adoquery1.SQL.text :=
'update data_barang set stok = stok + ' +
tbpembelian_tmp.fieldbyname('quantitas').AsString +
'where kode_barang = ' + quotedstr(edit9.Text) ;
@asepolin: asvalue sudah di ganti menjadi asstring HASILNYA TETEP ERROR BOS@asepolin: sebetulnya punyamu itu jg betul secara query, yg dr rekan cyber jg betul, disini error itu karena dikau kurang teliti aja.. COBA
...tbpembelian_tmp.fieldbyname('quantitas').AsString +
' where kode_barang = ' + quotedstr(edit9.Text)
itu harus ada SPASI, error itu karena fieldbyname('quantitas').AsString nyambung dg where
more 14 years ago
asepolin
makasih kepada semuanya sudah memberikan bantuan,,
mohon maaf kalau saya banyak kirang telitinya...
semangat terus belajarnya...
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 4 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago
Random Topic
- membuat change password untuk beberapa user
by gormet in Tip n Trik Pemrograman more 17 years ago - mengkonversi data dari .txt ke .xls
by her1z_yu2n in Hal umum tentang Pascal Indonesia more 15 years ago - Print out di QuickReport
by reminder2k1 in Reporting more 16 years ago - Menampilkan stok barang berdasarkan tanggal
by deded in Hal umum tentang Pascal Indonesia more 11 years ago - Accounting
by dannyong1999 in OOT more 18 years ago - ikut pesan kaos
by indobrainsoft in Tutorial & Community Project more 16 years ago - SmsProtocolHttp
by xproof in Tip n Trik Pemrograman more 14 years ago - the power of hidden field versi 1
by EkoIndri in MsSQL more 18 years ago - Menggunakan EventonExit !
by jajang in Tip n Trik Pemrograman more 15 years ago - gabungin 2 komponen
by esafm in Tip n Trik Pemrograman more 16 years ago