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 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 2 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 3 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 10 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 10 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 10 years ago
Random Topic
- Helpppp Mee Pleaseee Kawan
by big_igo in Reporting more 14 years ago - Display MDICHILD Di Menu
by fissas in Hal umum tentang Pascal Indonesia more 15 years ago - install DevExpress_installer
by Tiwul in Hal umum tentang Pascal Indonesia more 13 years ago - DBGRID for data buaaanyaaakkk
by Thunder in Tip n Trik Pemrograman more 13 years ago - Bikin autorun program buat flasdisk?
by ianhade in Network, Files, I/O & System more 15 years ago - Setting Tgl Untuk SQL Pada Sintax DiDelphi
by umarbakri in Hal umum tentang Pascal Indonesia more 17 years ago - cara mengisi DBGrid???
by nrkhlsmjd in Tip n Trik Pemrograman more 15 years ago - Membuat report untuk kertas continous, gimana caranya ya?
by ecka in Tutorial & Community Project more 16 years ago - menampilkan isi database kedalam memo qreport
by ricky_seldjatem in Reporting more 14 years ago - copy to clipboard teechart
by JalmaLier in Tip n Trik Pemrograman more 14 years ago