Arsip: input dari dbgrid gengan stored procedure

 
user image
more 15 years ago

zones

Dear Delphiers, Saya sdh utak-atik tapi ndak ketemu juga, begini ada stored procedure utk insert ke suatu tabel trus di delphi saya pakai adostoreproc->datasource->dbgrid dimana di dbgrid tsb untuk menginput data yang ada di dalam dbgrid. Jika melakukan koneksi pasti muncul "commandtext doesn't return a result set" itu kenapa yach? apakah para delphiers ada yang pernah menggunakan dbgrid dengan storedprocedure untuk penginputan data, jika ada tlg bantuannya. trim's
user image
more 15 years ago

alvonz

boleh tau sintaxnya bos biar kita tau salhnya dimana?
user image
more 15 years ago

zieborg

@zones itu artinya, stored procedure tersebut tidak mengemblikan resultset, jadi mungkin isinya adalah perintah2 dml yang lain, bukan query
user image
more 15 years ago

zones

contoh sintaksnya seperti ini : CREATE proc tambahdt @NoMember varchar(12), @PasanganKiri varchar(10), @PasanganKanan varchar(10), @ERROR_MSG NVARCHAR(255)=NULL OUTPUT as DECLARE @TRANNAME SYSNAME BEGIN TRANSACTION SAVE TRANSACTION @TRANNAME insert into [Tabel Pasangan] ([No Member], [Pasangan Kiri], [Pasangan Kanan]) values (@NoMember, @PasanganKiri, @PasanganKanan) --select * from [Tabel Pasangan] IF (@@ERROR!=0) BEGIN SET @ERROR_MSG= 'UNABLE TO SAVE' RAISERROR(@ERROR_MSG,16,1) ROLLBACK TRANSACTION @TRANNAME COMMIT TRANSACTION RETURN(-100) END COMMIT TRANSACTION GO
user image
more 15 years ago

zieborg

Trus maksudmu pake dbgrid itu buat lihat apanya? ya pasti error lah.. itu procedure ngga bisa menggunakan active=true/open, karna tidak mengembalikan resultset, bolehnya ya pake execproc.
user image
more 15 years ago

zones

@Zieborg Maksudnya saya adalah ingin dbgrid tersebut akan di jadikan utk input data, jadi pada form penjualan dbgrid tsb akan di masukan data seperti kode barang, nama barang, qty nah pada tombol save nanti akan di jalankan sp utk input data tsb.
user image
more 15 years ago

DelphiExpert

@zones: gunakan grid biasa (TStringGrid, atau 3rd party grid2 lainnya) 1. Load data yg hendak di entry ke TStringGrid (Jika mode EDIT diperkenankan) 2. Utk save, lakukan iterasi ROW satu persatu, entry-kan menggunakan SP kamu
user image
more 15 years ago

zones

@DE : saya menggunakan grid dari infopower. - saya tertarik dengan jawaban yang kedua melakukan iterasi row satu persatu, bagaimana saya melakukan hal ini yach? soale kmrn malem utak-atik di rumah dan bisa masuk tapi hanya 1 record saja yang masuk ke tabel TRANDT (menggunakan wwDBGRID). Untuk lebih jelasnya saya menggunakan sp seperti ini : CREATE proc TambahMT @NOTRANMT varchar(12), @NameMT varchar(50), @TRANDT varchar(50) as {declare @NoTerTinggi numeric, @Indeks int, @TRANMT varchar(12) program utk autonumber SET @NOTRANMT = @NOTRANMT + Cast(@NoTerTinggi as varchar)} set @TRANMT = @NOTRANMT insert into TRANMT (TRANMT, NameMt) values (@NOTRANMT, @NameMT) insert into TRANDT (TRANMT, TRANDT) values (@TRANMT, @TRANDT) GO nah terus dievent onclick utk save seperti ini : AdoQuery1.SQL.Clear; ADoQuery1.SQL.Text:='Exec TambahMT :NOTRANMT,:NameMt,:TRANDT'; AdoQuery1.Parameters.ParamByName('NOTRANMT').Value := edit1.Text; AdoQuery1.Parameters.ParamByName('NAMEMT').Value := edit2.Text; AdoQuery1.Parameters.ParamByName('TRANDT').Value := wwDBGrid1.Fields[1].AsString; AdoQuery1.ExecSQL; seperti di atas hanya 1 record saja yang masuk, mohon pencerahannya
user image
more 15 years ago

DelphiExpert

bisa tunjukkan code iterasinya? jangan lupa gunakan BeginTransaction - Commit / Rollback
user image
more 15 years ago

zones

@DE terus terang saya masih blm mudeng dgn code iterasi, mohon diterangkan. Trim's
more ...
  • Pages:
  • 1
  • 2
Share to
Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com