Arsip: query error = ngehank.?

 
user image
more 14 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 :)
user image
more 14 years ago

budi_bunga

@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();
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 :)
user image
more 14 years ago

ImanD

cobain ini

with AQbarang do
begin 
  SQL.Clear; 
  SQL.Add(Format('INSERT INTO TBarang(KdBarang, NmBarang) VALUES (%s, %s)',); 
  ExecSQL; 
user image
more 14 years ago

budi_bunga

wah malah lebih pendek mas...:D
user image
more 14 years ago

ImanD


end;
sorry ktinggalan, huahahahha
user image
more 14 years ago

herux

Di trace aja kenapa ?
user image
more 14 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
user image
more 14 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. :)
user image
more 14 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:
user image
more 14 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
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com