Arsip: query error = ngehank.?

more 13 years ago
nurez
hii alll... muhun bantauannya...
with AQbarang do begin
SQL.Clear;
SQL.Append(
'INSERT INTO TBarang (KdBarang, NmBarang) ' +
'VALUES (:pKdBarang, :pNmBarang)');
Parameters[0].Value := edkd.text;
Parameters[1].Value := edNmBarang.Text;
ExecSQL;
TBarang.Requery();
ngga ke save..."insert into statetment.." langsung ngehank lgh...yg sebelnya.. harus restart kompie mlolo..klo ngga ngehank sih gFF..
duhh.. yg salah apanya nich..? memori ataw kapasitas HD yg sisa 1.2GB.?ataw repair D& lgg.?mohon pencerahannya.. wlp kasus lama klii :)
more 13 years ago
budi_bunga
@nurez: hii alll... muhun bantauannya...coba dat:='insert into tbarang (kdbarang,nmbarang) ' +' values (:param1,:param2)'; aqbaranq.sql.clear; aqbarang.sql.add(dat); aqbarang.parambyname('param1').astring:=edkd.text; aqbarang.parambuname('param2').astring:=ednmbarang.text; aqbarang.execsql; mudah mudahan bisa ngebantu cantyik............ ngga ke save..."insert into statetment.." langsung ngehank lgh...yg sebelnya.. harus restart kompie mlolo..klo ngga ngehank sih gFF.. duhh.. yg salah apanya nich..? memori ataw kapasitas HD yg sisa 1.2GB.?ataw repair D& lgg.?mohon pencerahannya.. wlp kasus lama klii :)with AQbarang do begin SQL.Clear; SQL.Append( 'INSERT INTO TBarang (KdBarang, NmBarang) ' + 'VALUES (:pKdBarang, :pNmBarang)'); Parameters[0].Value := edkd.text; Parameters[1].Value := edNmBarang.Text; ExecSQL; TBarang.Requery();

more 13 years ago
ImanD
cobain ini
with AQbarang do
begin
SQL.Clear;
SQL.Add(Format('INSERT INTO TBarang(KdBarang, NmBarang) VALUES (%s, %s)',);
ExecSQL;

more 13 years ago
Manz
kalo menurut saya sih kalo mysql tidak langsung autocommit pada saat AQuery.ExecSQL;
jadi pada saat TBarang.Requery terjadi deadlock antara AQuery commit / flushing di buffer ke file dan TBarang.Requery untuk retrieve data nya.
Jadi weh ... ngehank kata nurez .... :mrgreen:
Itu IMHO seh ... boleh coba cara @ImanD deh

more 13 years ago
masdi2t
nurez kurang lengkap kasih potongan kode nya. itu bagian with selesai sampai dimana ya :D
trus TBarang ygn didalam perintah insert itu nama tabel ya? trus TBarang yang ada requery itu objek ya?
menurutku sih ngk ada yg salah dengan perintah sql dan cara penulisannya. blok with nya mungki ya...
mungkin bisa dicoba, asal tp
with AQbarang do begin
SQL.Clear;
SQL.Append(
'INSERT INTO TBarang (KdBarang, NmBarang) ' +
'VALUES (:pKdBarang, :pNmBarang)');
Parameters[0].Value := edkd.text;
Parameters[1].Value := edNmBarang.Text;
ExecSQL;
end;
TBarang.Requery();
oya klu deadlock kukira ngk ya, soalnya itu kan dalam 1 session, abis insert trus di select ngk masalah meski tanpa di commit.
:)
more 13 years ago
Manz
Yup betul menurut @masdi2t, tapi kenyataannya, mysql tidak autocommit / flushing pada saat execSQL di jalankan.
Saya pernah mengalami hal ini, jadi saya tambahkan commit dan kemudian baru requery... setelah itu ... problem solved by itself.... :mrgreen:

more 13 years ago
nurez
thx alll....
@ms budi ... hmm bingung naruhnya... jdd error semuanya...iiiii,
klo caraa mas imand...sc nya there is no overloaded version of'format'.. ataww aq yg msh copo d...
@masdidit...TBarang.Requery(); nya ngga mau RUN...hrs diapus baru bisa RUN tp dh brhasil siy...alhamdulillah
bTW.. requery tuk apa siy..?
ohya klo hasilnya ditampilin all record di dbgrind gmn..? hnya dpt 1 nich..maunya ada semua tiap kli insert...
QL.append('SELECT * FROM TBarang WHERE id LIKE '+QuotedStr('%'+kdbrg.text+'%'))
;
thx ats pencerahannya....more ...
- Pages:
- 1
- 2
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
- titik potong 2 buah array integer
by picastana in Tip n Trik Pemrograman more 11 years ago - shellapi itu apa
by muttaqin_taufan in Tip n Trik Pemrograman more 13 years ago - Mengecek ekstensi file *.dll
by doditali in Tip n Trik Pemrograman more 15 years ago - ToOl Is3ng BuaT mIndahIn dAta
by cyber_hecker in MsSQL more 14 years ago - tolong aku (biner to image - image to biner)
by sketsa in Tip n Trik Pemrograman more 13 years ago - Mysql
by saysansay in Tip n Trik Pemrograman more 15 years ago - heLp mE pLease ?
by jajang in Tip n Trik Pemrograman more 12 years ago - [ask] repair table mysql dengan delphi
by mario_budhi in MySQL more 14 years ago - fungsi count
by novicute in Paradox more 14 years ago - tanya.....aplikasi dibuat client server
by Iansx in Hal umum tentang Pascal Indonesia more 13 years ago