 | MENU |
|
|
| | Visual Basic 6.0 |
|
|
| | Microsoft SQL Server |
|
|
| | Visual Basic 6.0 Database |
|
|
| | Upgrade VB 6.0 ke VB.NET |
|
|
| | Visual Basic .NET Dasar |
|
|
| | Visual Basic .NET Database |
|
|
| | Active Server Page (ASP) |
|
|
| | | Program Ramalan |
|
|
| | ASP.NET Database |
|
|
| | Quick Basic |
|
|
|
| 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 | | | | |
|
|
|
Share
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Mau punya penghasilan? ikuti program-program di bawah ini:
|
|
|
|
|
counter sejak 5 april 2010
|
|