Hai para senior. Bisa ada yang kasih contoh ga soal pemakaian stored procedure di Delphi. Atau mungkin ada yang punya link site yang memberikan penjelasan cukup rinci ? Thanks sebelumnya. :)

buka aja situs mysql.. dapet semuanya dirimu...

@Random: tergantung jenis database & komponent wrapper yg digunakan... jawabannya... tergantung! :mrgreen:

Kalo database yang digunakan itu MS SQL, dan component yang digunakan itu yang ada di tab ADO gimana ya ?

1. view dapat disamakan dan diperlakukan seperti table 2. eksekusi stored proc gunakan TADOQuery, sintax SQL-nya disesuaikan dng vendor DB tsb (MS SQL), sory daku ngga' terlalu hapal :mrgreen: , kalo ngga' salah EXEC PROC_NAME(Params...) --> biarlah yg lain meralatnya (@yayaretina huwehe) contoh:

if ADOQuery1.Active then ADOQuery1.Close;
ADOQuery1.Connection.StartTransaction; // atau sejenisnya xixix
try
  ADOQuery1.SQL.Text:= 'SYNTAX EXEC PROC TANPA PARAMETERS/BISA JUGA';
  // isi parameters (kalau ada)
  ADOQuery1.Params[0].AsInteger:= 100; // ---> misal
  .
  .
  ADOQuery1.ExecSQL; // atau sejenisnya xixix
  ADOQuery1.Connection.Commit; // atau sejenisnya huehehe
except
  ADOQuery1.Connection.Rollback; // atau sejenisnya
end;

:mrgreen:

Kebetulan saya udah duluan dapat penjelasan di : http://www.scip.be/index.php?Page=ArticlesDelphi12&Lang=EN Sementara berikut ini adalah code2 di SQL dan Delphi yang saya buat :

CREATE PROCEDURE login @username varchar(20) AS BEGIN declare @password char select password from tb_login where username = @username return @password END

adostoredproc1.ProcedureName := 'login'; adostoredproc1.Parameters.Refresh; adostoredproc1.Parameters.ParamByName('@username').Value := edUserName.Text; adostoredproc1.ExecProc; showmessage(adostoredproc1.Parameters.ParamValues['@RETURN_VALUE']);

Value dari edUserName.Text = namasaya, dan harusnya hasil yang diharapkan = passwordsaya. Tapi kenapa pas showmessage, hasilnya malah angka 0 ya ?

Gunakan _RecordSet jika ingin mengambil nilai dari SP (select query), contohnya: SP: CREATE PROCEDURE sp_login @username varchar(20) AS BEGIN select password from tb_login where username = @username END

var
  RecSet : _RecordSet;
begin
  with DM.adoSQL do begin
    CommandText := Format('EXEC sp_login(%s)', [QuotedStr(namauser)]);
    RecSet := Execute;
    try
      Result := RecSet.FieldByName('password').Value;
    except
    end;
  end;
end;

jika menggunakan ADOStoreProc gunakan parameter output utk menampung hasil query dari SP, contohx: CREATE PROCEDURE sp_login @username varchar(20), @password varchar(20) output AS BEGIN select @password = password from tb_login where username = @username END adostoredproc1.ProcedureName := 'sp_login'; adostoredproc1.Parameters.Refresh; adostoredproc1.Parameters.ParamByName('@username').Value := edUserName.Text; adostoredproc1.ExecProc; showmessage(adostoredproc1.Parameters.ParamValues['@password']); ok, selamat mencoba.......... :arrow:

:mrgreen: emang banyak yg jago temen-temen nih... xixixi

sowry... DM.adoSQL pada contoh di atas adalah ADOCommand

wah banyak yg jago neh.. tp pertanyaannya yg lebih spesifik kyk apa seh ?? bingung aku neh ..