Arsip: input dari dbgrid gengan stored procedure
more 16 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
more 16 years ago
zieborg
@zones
itu artinya, stored procedure tersebut tidak mengemblikan resultset, jadi mungkin isinya adalah perintah2 dml yang lain, bukan query
more 16 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
more 16 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.
more 16 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.
more 16 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
more 16 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
more 16 years ago
DelphiExpert
bisa tunjukkan code iterasinya?
jangan lupa gunakan BeginTransaction - Commit / Rollback
more 16 years ago
zones
@DE
terus terang saya masih blm mudeng dgn code iterasi, mohon diterangkan. Trim's
more ...
- Pages:
- 1
- 2
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 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- Tanya mengenai delphi dan crystal report
by lunglung in Lain-lain more 16 years ago - help : Modulus 11
by agoes in Tip n Trik Pemrograman more 16 years ago - delphi-id gak bisa diakses dari beberapa lokasi
by simba in Hal umum tentang Pascal Indonesia more 17 years ago - converter jpg ke bmp
by lela in Hal umum tentang Pascal Indonesia more 19 years ago - Installer Dephi 7.0 Error
by Dedy_007 in Enginering more 17 years ago - Laporan yg bisa di Edit2 (fastreport)?
by archvile in Reporting more 16 years ago - Component apa saja yg digunakan dalam suatu Project
by dianovh in Tip n Trik Pemrograman more 16 years ago - [HELP] Access, flash, ADO
by agis in MySQL more 12 years ago - Programming COMPORT dengan USB Serial Converter
by glpro in Enginering more 19 years ago - ada yang punya komponen FBus nggak ???
by doditali in Network, Files, I/O & System more 19 years ago