Arsip: Sintak Update SQL

more 11 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 11 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 11 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 11 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 11 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 11 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 11 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 11 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 11 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
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
- PascalTalk #5: UX: Research, Design and Engineer
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago
Random Topic
- Menggunakan RandG
by agnes in Hal umum tentang Pascal Indonesia more 12 years ago - wah masih baru nih!!!!!!!
by canoey in Tip n Trik Pemrograman more 14 years ago - Mencari Hex String di File
by fcomputer in Tip n Trik Pemrograman more 11 years ago - koneksi ado+acces error di vista
by donlego in Lain-lain more 12 years ago - tanya tentang "save as"
by m26403131 in Hal umum tentang Pascal Indonesia more 13 years ago - Delphi 7 sudah Cross - Platform Belum?
by sandy in Enginering more 13 years ago - Komponen Oxygen
by IdrisZZ in Tip n Trik Pemrograman more 11 years ago - Searhing Menggunakan Fungsi FILTERING...
by ii_irwan in Hal umum tentang Pascal Indonesia more 11 years ago - Tanya syntax sql microsoft Access??
by gold3n_b0y in Hal umum tentang Pascal Indonesia more 14 years ago - Menampilkan progress-bar saat fetch data besar
by DelphiExpert in Lain-lain more 13 years ago