Kursus Programmer Online 
Skip Navigation Links
Home
Kursus online
Toko online
Layanan
Forum
Social programmer
E-book
Peta situs
Tentang saya
Donasi
Halo " !" | Login

Skip Navigation Links.
Expand Artikel Visual BasicArtikel Visual Basic
Expand Basis Data - DatabaseBasis Data - Database
Expand Pemrograman GrafisPemrograman Grafis
Expand E-Book TutorialE-Book Tutorial
Expand Video Kursus - TutorialVideo Kursus - Tutorial
Expand Software - Open Source codeSoftware - Open Source code
Expand W E B ProgrammingW E B Programming
Expand Windows SystemWindows System
Expand XBasicFrameworkXBasicFramework
Expand Berbagi PengalamanBerbagi Pengalaman
Expand Quick BasicQuick Basic

Belajar Program dgn Saya 
HyperLink Siapa bilang belajar program  SULIT!!  Otodidak juga bisa.  ANDA bisa Jadi PROGRAMMER handal.  Baca E-Book  Saya di sini...!

E-Book Trik Dasar PHP

Jika ANDA telah membeli E-book Saya belum juga bisa membuat program... Saya yang akan "Turun Tangan Langsung" mengajarkannya kepada ANDA                   
















Software Gratis 
Software gratis! Open Source Code

Banner 

HyperLink

HyperLink


Chat dengan Saya 

Chat dengan Saya

HyperLink


Hit Counter 


Skip Navigation LinksMENU>Artikel Visual Basic>Visual Basic 6.0 Database>Panggil Stored Procedure


Panggil Stored Procedure dengan Visual Basic 6.0


Visual Basic dapat melakukan Pemanggilan stored procedure SQL server. Pemanggilan stored procedure SQL server biasanya digunakan dalam pemgrograman model Client Server maupun N-Tier Programming.

Untuk keterangan lebih lanjut mengenai Client Server Programming dan N-Tier Programming anda bisa membaca a E-Book saya yang berjudul Trik N-Tier Programming Visual Basic 6.0  klik di sini

Sebelum dapat memanggil Stored Procedure dengan Visual Basic anda harus membuat stored procedure nya terlebih dahulu.
Untuk mengetahui cara membuat stored procedure dengan SQL Server  klik di sini

Ok sekarang kita mulai membuat project yang memanggil stored procedure . Buat project standard dengan visual basic 6.0.
Klik project -> reference -> Microsoft ActiveX Data Objects 2.5 library.
Lihat gambar di bawah ini:




setelah itu buatlah form standard seperti gambar di bawah ini:


 
Jika anda belum mengerti cara membuat form seperti di atas anda bisa baca di sini klik di sini

di bawah ini adalah kodenya:


Private Sub Command1_Click()

  Dim oConn As New ADODB.Connection
  oConn.open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DATAKU;Data Source=."

  Dim oPar1 As New ADODB.Parameter
  Dim oCmd As New ADODB.Command
  Dim oRs As New ADODB.Recordset
  With oCmd
    .ActiveConnection = oConn
    .CommandType = adCmdStoredProc
    .CommandText = "SP_Karyawan"
    Set oPar1 = .CreateParameter("NIK", adVarChar, adParamInput, 10, txtNIK.Text)

    .Parameters.Append oPar1 Set oRs = .Execute
  End With

  txtNama.Text = oRs.Fields("Nama")
  txtAlamat.Text = oRs.Fields("Alamat")

End Sub


Jalankan program dengn menekan tombol Run atau F5.
Lalu klik tombol jika project anda benar maka hasilnya seharusnya seperti gambar di bawah ini:



Untuk download project klik di sini
 
  (C)XBasicPro 2012 | Kursus Programmer Online | Software Gratis | Open Source Code | Sewa Toko Online