DELPHI - Pemanggilan stored procedure MySQL

DELPHI - Pemanggilan stored procedure MySQL

oke saya kembali lagi pemirsa :D

langsung aja yah...
cara memanggil stored procedure MySQL di delphi

pertama, buat procedure sql di delphi
Procedure SQL(IsiSQL : String);
begin
  with frmInputBarang do
  begin
  Q.SQL.Clear;
  Q.SQL.Add(IsiSQL);
  Q.ExecSQL;
  end;
end;

procedure diatas berfungsi untuk mengganti beberapa perintah tanpa harus menambahkan komponen adoquery lagi. ckup 1 untuk ramai2 :D

berikut coding untuk memanggil SP :
StoredProcedure yang saya punya namanya : Barang_Input, bikinnya di MySQL, untuk cara bkinnya silahkan liat postingan sebelumnya :D

try
    SQL('CALL Barang_Input('+
    quotedstr(txtIDBarang.Text)+','+
    quotedstr(txtNamaBarang.Text)+','+
    quotedstr(txtSatuan.Text)+','+
    txtHargaBeli.Text+','+
    txtHargaBarang.Text+','+
    txtStok.Text+','+
    quotedstr(cbNamaSupplier.Text)+')');

    ShowMessage('BERHASIL');
except
   ShowMessage('DATA SUDAH ADA');
end;

ask : koko, apa sih bedanya quotedstr() sama yang biasa?
answer : oh itu kalo pake quotedstr, artinya ditambahin kutip '' alias tipenya STRING/CHAR (huruf)
nah kalo txt yang gak pake quotedstr, artinya tipe datanya integer/float/double (angka)

Oke sekian dlu terimakasih pemirsa setia B-)

sumber:http://giavano.blogspot.co.id/2013/07/pemanggilan-stored-procedure-mysql-di.html