Cara membuat Procedure Simpan Database VB6

Sebenarnya, ini bagian dari Tutorial Cara Membuat Tombol Simpan dan Ubah Database, dikarenakan terlalu banyak kode, ini adalah Tutorial Membuat Procedure Simpan digunakan Untuk menyimpan Data baru maupun Update, data. Saya akan bagikan 2 jenis Procedure, yang pertama Secara langsung dengan Perintah Insert SQL dan yang kedua Dengan membuat Terlebih Dahulu Procedure pada SQL Server 2000.

ini adalah Contoh Kode Procedure Simpan dengan Insert dan Update SQL :

Public Sub Simpan()
    Dim masuk As String ' variable untuk perintak sql
If Cek = 1 Then 'cek=1 -> hasil tekan tombol Tambah
    masuk = "INSERT INTO Barang Values('" & txtkodeBrg.Text _
    & "','" & txtnamaBrg.Text & "', " & Format(txtHBeli.Text, "##0") _
    & " ," & Format(txtHjual.Text, "##0") & "," & txtStok.Text & ",'" & cmbSatuan.Text & "')"
Else ' Nilai cek=0 ->Hasil tekan tombol Ubah
    masuk = "UPDATE Barang SET NamaBrg='" & txtnamaBrg.Text _
    & "',Hbeli=" & Format(txtHBeli.Text, "##0") & ", Hjual=" & Format(txtHjual.Text, "##0") _
    & ", Stok=" & txtStok.Text & ", satuan='" & cmbSatuan.Text _
    & "' WHERE KodeBrg='" & Trim(txtkodeBrg.Text) & "'"
End If
    cn.Execute masuk ' eksekusi perintal sql
    MsgBox "Data Telah Tersimpan", vbInformation, "Simpan"

End Sub

Penjelasan : Sebelumnya Deklarasikan Variable Cek as byte di form ini pada General, digunakan untuk mengecek apakah digunakan untuk Tambah baru ataukah Update, Jika cek 1 maka Tombol Tambah baru diklik maka, Masuk diisi Dengan Perintah Insert SQL,  perhatikan Values('" & namatextbox.Text & "'), Values pada Insert SQL jika data bernilai String maka digunakan tanda ' nama ', jika bernilai angka atau int maka , nama, tanpa kutip. dan untuk menyimpan tulis " & namatextbox.Text & " Selanjutnya gunakan tanda (,) koma untk field-field berikutnya.

Else jika nilai Cek=0, berarti tombol Ubah, ditekan atau Update data, Sql Masuk diisi Perintah SQL Update, sama sperti sebelumnya tutup dengan End IF. kemudian cn.Execute masuk -> perintah untuk menjalankan perintah SQL masuk tersebut, cn adalah nama variable koneksi di modul.

ini adalah Contoh Kode Procedure Simpan dengan Procedure pada SQL :

Sub Simpan1()

    With Cmd 'cmd is variable command -> ada di module
    .ActiveConnection = cn 'setting koneksinya
    .CommandType = adCmdStoredProc ' Set type command
    'cek apakah siman data baru atau update

    If Cek = 1 Then 'Jika nilai cek 1 -> tambah data
    .CommandText = "SpTbBarang"
    Else
    .CommandText = "SpUbBarang"
    End If

    'buat parameter /tambah parameternya
    'Untuk Kode Barang
    .Parameters.Append .CreateParameter(, adChar, adParamInput, 5)
    'untuk Nama Barang
    .Parameters.Append .CreateParameter(, adChar, adParamInput, 30)
    'untuk Hbeli
    .Parameters.Append .CreateParameter(, adSingle, adParamInput)
    'untuk HJual
    .Parameters.Append .CreateParameter(, adSingle, adParamInput)
    'Untuk Stok
    .Parameters.Append .CreateParameter(, adInteger, adParamInput)
    'Untuk Satuan
    .Parameters.Append .CreateParameter(, adChar, adParamInput, 10)

    'memberi Nilai ke parameternya
    Cmd(0) = Trim(txtkodeBrg.Text) ' Ke1 --> Kode Barang
    Cmd(1) = Trim(txtnamaBrg.Text) 'Ke 2 --> Nama barang
    Cmd(2) = Val(Format(txtHBeli.Text, "##0")) 'ke 3 --> Harga Beli
    Cmd(3) = Val(Format(txtHjual.Text, "##0")) 'ke 4 --> Harga Jual
    Cmd(4) = Val(txtStok.Text)  'Ke 5 --> Stok
    Cmd(5) = Trim(cmbSatuan.Text) 'Ke 6 Satuan
    'DiEksekusi lah Store Procedurenya

    Cmd.Execute
    MsgBox "Data Telah Tersimpan"
    RsBarang.Requery

    Set Cmd = Nothing
    End With

End Sub

Penjelasan : Terlihat lebih banyak kan? Untuk menggunakan ini pastikan anda telah membuat procedure untuk Insert dan Update pada SQL Sertver, SpTbBarang dan SpUbBarang adalah nama procedure yang saya buat pada SQL Server 2000. Selesai.

Info link berhubungan, Petunjuk :

1. Cara Membuat Tombol Simpan dan Ubah Database
2. Cara Membuat SQL Server 2000
3. Cara Insert, Delete, Update SQL Server 2000
4. Cara Membuat Koneksi Database VB6

Terima Kasih.