Setelah kita bahas sebelumnya penjelasan secara singkat tentang pengenalan PHP, maka pada artikel ini akan dibahas secara sederhana tetapi jelas, yaitu berkenaan dengan dasar penulisan kode program dalam PHP. Read More...

No title available

Janaina Medeiros

Product Placement
DEAR READER
Mike Driver

#extradirty

pixel skylines
todays bird
let's talk about Bridgerton tea, my ask is open

tannertan36
No title available
Three Goblin Art
Jules of Nature

No title available
almost home
I'd rather be in outer space 🛸
ojovivo

if i look back, i am lost

shark vs the universe

JBB: An Artblog!

seen from United States

seen from India
seen from United States
seen from Canada
seen from United States

seen from United States
seen from United States
seen from United States

seen from Malaysia

seen from United States

seen from United States

seen from United States

seen from United States
seen from United States
seen from United States
seen from Spain
seen from United States

seen from China

seen from United States

seen from Malaysia
@ilmupraktis
Setelah kita bahas sebelumnya penjelasan secara singkat tentang pengenalan PHP, maka pada artikel ini akan dibahas secara sederhana tetapi jelas, yaitu berkenaan dengan dasar penulisan kode program dalam PHP. Read More...
C# adalah bahasa pemrograman yang berorientasi pada objek. Dalam metodologi Object-Oriented Programming (OOP), program terdiri dari berbagai objek yang berinteraksi satu sama lain dengan cara melakukan sebuah tindakan. Tindakan yang dapat diambil atau digunakan oleh objek disebut metode (Methods). Objek yang berjenis sama dapat dikatakan memiliki tipe yang sama atau, dalam kelas yang sama. Read More...
Sebelum lebih lanjut membahas tentang struktur program C#, perlu saya jelaskan dalam contoh-contoh program yang kami buat menggunakan alat/IDE Visual Studio Community 2015, serta Project yang kami bahas mengunakan Visual C# dengan dengan jenis Console Application. Read More...
Dalam bab ini, kita akan membahas peralatan atau ruang lingkup yang diperlukan untuk melakukan pemrograman C#. Sebelum membahas lebih lanjut tentang ruang lingkup C# khususnya yang berkaitan dengan .Net Framework ... Read More
C# adalah bahasa pemrograman modern yang berorientasi objek dan dikembangkan oleh Microsoft serta telah disetujui oleh Asosiasi Eropa Computer Manufacturers (ECMA) dan Organisasi Standar Internasional (ISO). C# dikembangkan oleh Anders Hejlsberg dan timnya selama pengembangan .Net Framework. <Read More...>
Dalam melakukan pengisian data pada sebuah transaksi (misalkan data stok opname) atactau pada saat melakukan migrasi data, sangat diperlukan kemudahan dalam melakukanya, sehingga proses yang dilakukan lebih mudah dan lebih cepat. Salah satu cara yang digunakan adalah dengan membaca data dari file lain, misalkan data dalam file Excel. Hal ini sangat mungkin dilakukan pada VB6, yaitu dengan cara memanfaatkan fasilitas dari reference yang disediakan oleh Microsoft Excel. Saya akan membahas tentang bagaimana cara mengambil data dari file excel berikut contoh source code yang bisa anda download.
Read More...
Menggunakan gambar atau foto dalam sebuah manajemen informasi tentu sangatlah membantu dalam upaya memudahkan pemakai untuk mengenali sebuah data, misalkan data karyawan dengan menampilkan foto karyawan, data barang dengan menampilkan data gambar barang dan lain sebagainya. Untuk itu dalam artikel ini saya akan membahas bagaimana menyimpan data gambar ke dalam database dengan VB6, sehingga secara multiuser kita dapat mengakses dari manapun tanpa melibatkan share folder untuk menyimpan file secara fisik. Dalam hal ini gambar secara nyata tersimpan ke dalam database yaitu pada field yang bertipe image. Dalam contoh sebelumnya saya pernah memberikan sebuah artikel berikut source code program aplikasi yang mengolah data data stok barang. Pada artikel ini saya akan menggunakan sistem pengolahan data yang sama, tetapi saya akan menambahkan data gambar pada master barang.
Read More...
Salah satu fasilitas dalam Internet yang sangat penting sehubungan dengan transfer file antar jaringan adalah FTP (File Transfer Protocol). Apakah mungkin seandainya anda diharuskan melakukan hal tersebut dengan aplikasi yang tersusun dengan menggunakan VB6. Dan itu sangatlah mungkin, sehingga program aplikasi yang anda susun secara komprehensif bisa menangani sesuai dengan kebutuhan sekaligus bisa memanfaatkan fasilitas FTP tersebut. Dalam artikel ini akan dijelaskan sekaligus akan saya berikan contoh kode program yang bisa anda download secara gratis.
Read More...
Membuat sebuah aplikasi dengan fasilitas yang memudahkan kepada operator untuk melakukan setting dari kebutuhan sistem program sangatlah penting, sehingga operator tidak perlu keluar masuk program untuk melakukan setting dengan fasilitas windows yang ada. Salah satu fasitilas tersebut adalah menentupkan default printer windows. Pada koding program tersebut saya menggunakan VB6 untuk melakukan hal tersebut diatas.
Read More...
Sebagai pendukung dalam program aplikasi yang saya buat dan untuk memberikan kenyamanan dari pemakai atau operator, dalam program aplikasi yang saya buat biasanya saya sertakan setting jenis huruf atau Font berikut ukuran, tebal tipis font serta bentuk huruf miring/italic. Pada artikel ini saya akan berikan contoh kode program yang sangat mudah dan sederhana untuk melakukan hal tersebut.
Read more…
Dalam membuat sebuah program aplikasi multiuser tentu kebutuhan data unik sangatlah dibutuhkan. Penggunaan dari data-data yang unik tersebut biasanya dipake sebagai kunci dari pemakai, dan salah satu kunci yang unik dan valid adalah alamat IP atau IP Address. Sehingga dalam menentukan pemakai berdasarkan alamat IP jelas akan sangat valid. Secara umum dapat dijelaskan bahwa jika kita menggunakan sistem operasi Windows, maka data dari alamat IP tersebut akan tersimpan dalam registry windows dan anda dapat mengambil atau membaca data tersebut dengan cara memanggil API, yaitu IpHlpApi. Berikut ini cara membaca alamat IP dari sebuah komputer dengan VB6.
Read More...
Beberapa waktu yang lalu banyak permintaan dari teman-teman untuk bisa download source code program aplikasi stok barang, maka pada artikel ini saya akan menjelaskan sebuah contoh program aplikasi stok barang dengan VB6. Dalam contoh tersebut saya menggunakan database SQL Server (Versi 2008) dengan transaksi pembelian dan transaksi penjualan. Selain itu saya juga menggunakan secara bersama-sama dalam program aplikasi dari pembahasan-pembahasan sebelumnya tentang Format dan Validasi Data Numeric pada Textbox VB6, Format dan Validasi Data Date (Tanggal) dengan MaskEdit VB6,Membuat Lookup Data Program Aplikasi VB6 dan Menampilkan Laporan dengan Crystal Reports pada VB6.
Read more...
Dari pengalaman saya dalam membuat program aplikasi, kemudahan operator dalam memasukkan data sangat dibutuhkan sehingga program kita benar-benar friendly dan mudah dalam pemakaian. Salah satu yang perlu dilakukan menurut saya adalah mengaktifkan tombol enter untuk menggantikan peran tombol tab. Hal ini sangat penting karena operator akan lebih cepat dalam memasukkan data sesuai dengan struktur keyboard. Sangat mudah untuk mengaplikasikan hal tersebut, berikut ini akan dibahas bagaimana untuk mengaktifkan tombol enter tersebut.
Read more...
Jika pada artikel sebelumnya yang pernah dibahas, yaitu tentang setting koneksi database SQL Server dengan VB6 dan juga saya berikan contoh program yang mengolah data Master Barang, maka pada artikel ini saya akan memberikan contoh yang hampir sama dengan contoh program tersebut, akan tetapi saya akan menggunakan fasilitas Stored Procedure dari SQL Server sebagai pemroses Query dalam pengolahan data dalam database. Masih menggunakan komponen yang sama dalam menyususn koneksi database SQL Server, yaitu komponen ADODB Connection dan provider SQLOLEDB, akan tetapi CommandType yang digunakan adalah adCmdStoredProc bukan adCmdText.
Stored Procedure
adalah kumpulan dari perintah atau query (TSQL) dalam SQL Server yang tersimpan secara permanen dalam database SQL Server yang menjadikan sebagai sebuah prosedur atau fungsi. Sehingga dengan menggunakan Stored Procedure tersebut kita tinggal melakukan eksekusi dengan menyebutkan nama Stored Procedure nya. Dalam Stored Procedure kita dapat memberikan parameter data yang dilewatkan dalam ekseskusi untuk diproses lebih lanjut dalam perintah-perintah di dalam Stored Procedure.
Sebagai contoh berikut dibawah ini ada 2 Stored Procedure yang tanpa dan yang menggunakan parameter, yaitu sebagai berikut:
CREATE PROCEDURE [dbo].[SP_READ_DATA_MASTERBARANG] BEGIN SELECT * FROM MasterBarang END
ALTER PROCEDURE [dbo].[SP_ADD_MASTERBARANG] @KodeBarang varchar(10), @NamaBarang varchar(50), @Satuan varchar(10), @StokAkhir int, @HargaJual money AS SET NOCOUNT ON DECLARE @LKodeBarang varchar(10) DECLARE @LNamaBarang varchar(50) DECLARE @LSatuan varchar(10) DECLARE @LStokAkhir int DECLARE @LHargaJual money SET @LKodeBarang = @KodeBarang SET @LNamaBarang = @NamaBarang SET @LSatuan = @Satuan SET @LStokAkhir = @StokAkhir SET @LHargaJual = @HargaJual BEGIN INSERT INTO MasterBarang (KodeBarang, NamaBarang, Satuan, StokAkhir, HargaJual) VALUES (@LKodeBarang, @LNamaBarang, @LSatuan, @LStokAkhir, @LHargaJual) END
Eksekusi Stored Procedure
Sebenarnya untuk melakukan eksekusi Stored Procedure lewat kode program VB6 ada banyak cara, tetapi dalam artikel ini saya akan memberikan cara yang paling sederhana dan praktis, yaitu dengan menggunakan komponen ADODB.Command, seperti pada contoh program sebelumnya yang disebutkan di atas.
More....
.
Dalam menggunakan komponen Listview pada VB6 tampilan data untuk view : 3-lvwReport, data yang ditampilkan dengan latar belakang warna putih atau sesuai dengan warna yang kita tentukan. Bagaiman seandainya kita akan memberi warna tiap baris berbeda sehingga data akan lebih mudah dibaca. Pada artikel ini saya akan memberikan contoh program yang bisa anda download untuk membuat program tersebut dengan VB6.
Pada contoh program aplikasi tersebut saya menggunakan komponen Listview dengan jenis view 3-lvwReport, dengan kolom kode barang dan nama barang. Untuk program setting warna baris listview saya menggunakan class yang akan digunakan dalam project, dengan prosedur seperti kode program dibawah ini:
'------------------------------------------------------------------- 'Listview Ledger '------------------------------------------------------------------- Option Explicit Public Enum ImageSizingTypes [sizeNone] = 0 [sizeCheckBox] [sizeIcon] End Enum Public Enum LedgerColours vbledgerWhite = &HF9FEFF vbLedgerGreen = &HD0FFCC vbLedgerYellow = &HE1FAFF vbLedgerRed = &HE1E1FF vbLedgerGrey = &HEEEEEE vbLedgerBeige = &HD9F2F7 vbledgerSoftWhite = &HF7F7F7 vbledgerPureWhite = &HFFFFFF vbledgerSoftBlue = &HFFC0C0 vbledgerSoftRed = &HE1F7FB vbledgerBlackGray = &HE6E7E8 vbledgerSoftYellow = &HD2FCFD vbledgerCyan = &HFCFCEB vbledgerMagenta = &HFCE2FC vbledgerGold = &H80C0FF End Enum Public ListViewBarType As ImageSizingTypes Public BarColor1 As LedgerColours Public BarColor2 As LedgerColours Public Sub FormatLedger(lsvLedger As Object) Dim oPicture As PictureBox Dim oimgLedger As ImageList On Error GoTo ErrorFormat Set oPicture = frmTemplate.picLedger Set oimgLedger = frmTemplate.imgLedger lsvLedger.Visible = False If ListViewBarType = sizeCheckBox Then lsvLedger.Checkboxes = True Else lsvLedger.Checkboxes = False End If If ListViewBarType = sizeIcon Then 'Or ListViewBarType = sizeCheckBox Then Set lsvLedger.SmallIcons = oimgLedger End If Call SetListViewLedgerRows(lsvLedger, BarColor1, BarColor2, ListViewBarType, oPicture, oimgLedger, 1) lsvLedger.Refresh lsvLedger.Visible = True Set oPicture = Nothing Set oimgLedger = Nothing Exit Sub ErrorFormat: MsgBox Err.Description, vbCritical, "Peringatan" On Error GoTo 0 End Sub Public Sub SettingHeighLight(lsvLedger As Object, ListviewColumn As Long) Dim oPicture As PictureBox On Error Resume Next Set oPicture = frmTemplate.picLedger lsvLedger.Visible = False Call SetHighlightColumn(lsvLedger, BarColor1, BarColor2, ListviewColumn, ListViewBarType, oPicture) lsvLedger.Refresh lsvLedger.Visible = True 'Restore visibility Set oPicture = Nothing On Error GoTo 0 End Sub Private Sub SetListViewLedgerRows(lv As ListView, Bar1Color As LedgerColours, Bar2Color As LedgerColours, nSizingType As ImageSizingTypes, _ picLedger As Object, imlLedger As Object, Optional nRowsPerBar As Long = 1) Dim iBarHeight As Long '/* height of 1 line in the listview Dim lBarWidth As Long '/* width of listview Dim diff As Long '/* used in calculations of row height Dim twipsy As Long '/* var holding Screen.TwipsPerPixelY Dim nCol As Integer iBarHeight = 0 lBarWidth = 0 diff = 0 On Error Resume Next On Local Error GoTo SetListViewColor_Error twipsy = Screen.TwipsPerPixelY If lv.View = lvwReport Then '/* set up the listview properties lv.Picture = Nothing lv.Refresh lv.Visible = 1 lv.PictureAlignment = lvwTile lBarWidth = 0 For nCol = 1 To lv.ColumnHeaders.Count lBarWidth = lBarWidth + lv.ColumnHeaders(nCol).Width Next If lBarWidth < lv.Width Then lBarWidth = lv.Width '/* set up the picture box properties picLedger.AutoRedraw = False '/* clear/reset picture picLedger.Picture = Nothing picLedger.BackColor = vbWhite picLedger.Height = 1 picLedger.AutoRedraw = True '/* assure image draws picLedger.BorderStyle = vbBSNone '/* other attributes picLedger.ScaleMode = vbTwips picLedger.Width = Screen.Width picLedger.Visible = False picLedger.Font = lv.Font '/* assure font matches listview font '/* match picture box font properties '/* with those of listview picLedger.Font.Bold = lv.Font.Bold picLedger.Font.Charset = lv.Font.Charset picLedger.Font.Italic = lv.Font.Italic picLedger.Font.Name = lv.Font.Name picLedger.Font.Strikethrough = lv.Font.Strikethrough picLedger.Font.Underline = lv.Font.Underline picLedger.Font.Weight = lv.Font.Weight picLedger.Font.Size = lv.Font.Size '/* used by all sizing routines iBarHeight = picLedger.TextHeight("W") Select Case nSizingType Case sizeNone: '/* 1. text only iBarHeight = iBarHeight + twipsy Case sizeCheckBox: '/* 2. text with checkboxes: add to TextHeight the '/* difference between 18 pixels and iBarHeight '/* all calculated initially in pixels, '/* then converted to twips diff = imlLedger.ImageHeight - (iBarHeight \ twipsy) iBarHeight = iBarHeight + (diff * twipsy) + twipsy 'If (iBarHeight \ twipsy) > 18 Then ' iBarHeight = iBarHeight + twipsy 'Else ' diff = 18 - (iBarHeight \ twipsy) ' iBarHeight = iBarHeight + (diff * twipsy) + twipsy 'End If Case sizeIcon: '/* 3. text with icons: add to TextHeight the '/* difference between TextHeight and image '/* height, all calculated initially in pixels, '/* then converted to twips. Handles 16x16 icons diff = imlLedger.ImageHeight - (iBarHeight \ twipsy) iBarHeight = iBarHeight + (diff * twipsy) + twipsy End Select '/* since we need two-tone bars, the '/* picturebox needs to be twice as '/* high as the number of rows desired picLedger.Height = iBarHeight * (2 * nRowsPerBar) picLedger.Width = lBarWidth '/* paint the two bars of color and refresh '/* Note: The line method does not support '/* With/End With blocks picLedger.Line (0, 0)-(lBarWidth, (iBarHeight * nRowsPerBar)), Bar1Color, BF picLedger.Line (0, (iBarHeight * nRowsPerBar))-(lBarWidth, (iBarHeight * (2 * nRowsPerBar))), Bar2Color, BF picLedger.AutoSize = True picLedger.Refresh '/* set the lv picture to the '/* picLedger image lv.Refresh lv.Picture = picLedger.Image Else lv.Picture = Nothing End If 'lv.View = lvwReport SetListViewColor_Exit: On Local Error GoTo 0 Exit Sub SetListViewColor_Error: lv.Picture = Nothing lv.Refresh Resume SetListViewColor_Exit On Error GoTo 0 End Sub '------------------------------------------------------------------- '------------------------------------------------------------------- Private Sub SetHighlightColumn(lv As ListView, clrHighlight As LedgerColours, clrDefault As LedgerColours, _ nColumn As Long, nSizingType As ImageSizingTypes, picLedger As Object) Dim cnt As Long 'counter Dim cl As Long 'columnheader left Dim cw As Long 'columnheader width On Local Error GoTo SetHighlightColumn_Error If lv.View = lvwReport Then 'set up the listview properties lv.Picture = Nothing 'clear picture lv.Refresh lv.Visible = 1 lv.PictureAlignment = lvwTile 'set up the picture box properties picLedger.AutoRedraw = False 'clear/reset picture picLedger.Picture = Nothing picLedger.BackColor = clrDefault picLedger.Height = 1 picLedger.AutoRedraw = True 'assure image draws picLedger.BorderStyle = vbBSNone 'other attributes picLedger.ScaleMode = vbTwips picLedger.Visible = False picLedger.Height = 1 'only need a 1 pixel high picture picLedger.Width = Screen.Width 'draw a box in the highlight colour 'at location of the column passed cl = lv.ColumnHeaders(nColumn).Left cw = lv.ColumnHeaders(nColumn).Left + _ lv.ColumnHeaders(nColumn).Width picLedger.Line (cl, 0)-(cw, 210), clrHighlight, BF picLedger.AutoSize = True 'set the lv picture to the 'Picture1 image lv.Refresh lv.Picture = picLedger.Image Else lv.Picture = Nothing End If 'lv.View = lvwReport SetHighlightColumn_Exit: On Local Error GoTo 0 Exit Sub SetHighlightColumn_Error: 'clear the listview's picture and exit lv.Picture = Nothing lv.Refresh Resume SetHighlightColumn_Exit End Sub
Memberi Warna Baris ListviewSelanjutnya dalam project yaitu di Form, digunakan dua buah komponen CommandButton dengan event clik dengan menuliskan kode program sperti dibawah ini:
Private Sub cmdHighLightCheckBox_Click() Dim oFormatListview As New SSListViewSetting lsvData.Checkboxes = True oFormatListview.ListViewBarType = sizeCheckBox oFormatListview.BarColor1 = BarColor(cboBarColor1.ListIndex) oFormatListview.BarColor2 = BarColor(cboBarColor2.ListIndex) oFormatListview.FormatLedger lsvData IsiData End Sub Private Sub cmdHighLightNone_Click() Dim oFormatListview As New SSListViewSetting lsvData.Checkboxes = False oFormatListview.ListViewBarType = sizeNone oFormatListview.BarColor1 = BarColor(cboBarColor1.ListIndex) oFormatListview.BarColor2 = BarColor(cboBarColor2.ListIndex) oFormatListview.FormatLedger lsvData IsiData End Sub
Demikian contoh program membuat listview dengan baris berwarna dan untuk lebih jelasnya anda bisa download contoh program tersebut Membuat Listview dengan Baris Berwarna VB6 disini. Semoga artikel ini bermanfaat.
Dalam membuat progam yang berhubungan dengan database, khususnya dengan bahasa VB6 dan database SQL Server, koneksi database tentu merupakan hal pokok yang harus diperhatikan oleh seorang pogrammer. Dalam pengalaman saya sebagai programmer, hal ini sangatlah saya perhatikan karena dengan cara penggunaan yang efektif dan mudah tentu akan menambah produktivitas anda.
Disini saya akan menjelaskan secara prinsip dari bagaimana membuat program yang membutuhkan koneksi database SQL Server dengan komponen ADODB Connection dan provider SQLOLEDB Anda juga bisa download contoh programnya sekaligus contoh database yang bisa anda restore pada mesin MS SQL Server 2005. Baiklah berikut adalah penjelasan secara singkat dari Program VB6 untuk Koneksi database ke SQL Server dengan SQLOLEDB String ConnectionHal utama dalam membuat sistem koneksi database dengan ADODB, kita harus membuat sebuah data string koneksi yang merupakan object utama dalam membuka koneksi (Open Connection) ke database yang dimaksud, dalam contoh tersebut saya menggunakan contoh fungsi dalam class seperti kode program dibawah ini:
Public Function ConnectToServer() As Boolean Dim oSetting As New ConnectionSetting Dim StrConnect As String On Error GoTo ProcessError ConnectToServer = True 'Connect to Server Database StrConnect = "Provider=SQLOLEDB.1;" + _ "Persist Security Info=False;" + _ "Initial Catalog=" + oSetting.Database + ";" + _ "Data Source=" + oSetting.Server oConnect.Open StrConnect, oSetting.UserID, oSetting.Password Set oSetting = Nothing Exit Function ProcessError: ConnectToServer = False End Function
Dalam contoh program di atas, saya membuat sebuah fungsi koneksi database dengan koneksi string yang mana oSetting.Database serta oSetting.Server adalah sebuah data Object Property yang disimpan ke dalam Registry Windows. Sehingga dalam penggunaannya cukup dilakukan dengan sekali setting dan akan dapat digunakan seterusnya. Setting yang kami buat adalah seperti contoh pada gambar berikut ini:
Cara Menggunakan dalam FormSebelum anda menggunakan fungsi koneksi database yang telah dibuat dalam class, anda aktifkan terlebih dahulu komponen
Microsoft ActiveX Data Object (ADO)
dengan memilih menu Projectdan References. Dari siti pilih versi dari ADO yang ingin anda gunakan. Dalam contoh ini saya menggunakan Microsoft ActiveX Data Object 2.7 Library Selanjutnya untuk menggunakan anda perhatikan contoh kode program dibawah ini:
Private oConnection As New ServerConnection Private lConnect As Boolean Private Sub Form_Load() BukaKoneksiDatabase If Not lConnect Then Unload Me Else ResetData End If End Sub Private Sub BukaKoneksiDatabase() Dim oSetting As New ConnectionSetting KoneksiDatabase: lConnect = oConnection.ConnectToServer If Not lConnect Then If MsgBox("Koneksi database gagal...!" + vbCrLf + _ "Apakah akan melakukan setting koneksi database ?", vbQuestion + vbYesNo, "Konfirmasi") = vbYes Then oSetting.ShowSetting GoTo KoneksiDatabase End If End If End Sub Private Sub cmdCommand_Click(Index As Integer) Dim oMasterBarang As New MasterBarang On Error GoTo ErrorProses Select Case Index Case cmdSimpanData 'Simpan Data Master Barang oMasterBarang.Fields.KodeBarang = Trim(txtKodeBarang.Text) oMasterBarang.Fields.NamaBarang = Trim(txtNamaBarang.Text) oMasterBarang.Fields.Satuan = Trim(txtSatuan.Text) oMasterBarang.Fields.StokAkhir = txtStokAkhir.Text oMasterBarang.Fields.HargaJual = txtHargaJual.Text If ModeEdit = TM_DataBaru Then oMasterBarang.TambahData oConnection.Server Else oMasterBarang.EditData oConnection.Server End If ResetData txtKodeBarang.SetFocus Case cmdHapusData 'Hapus Data Master Barang oMasterBarang.Fields.KodeBarang = Trim(txtKodeBarang.Text) oMasterBarang.HapusData oConnection.Server ResetData txtKodeBarang.SetFocus Case cmdBatal 'Reset Form Input ResetData txtKodeBarang.SetFocus Case cmdKeluar Unload Me End Select Set oMasterBarang = Nothing Exit Sub ErrorProses: MsgBox Err.Description, vbCritical, "Peringatan" On Error GoTo 0 Set oMasterBarang = Nothing End Sub
Langkah-langkah yang harus anda lakukan seperti contoh kode program diatas adalah:
Definisikan sebuah variabel koneksi (contoh di atas dengan nama oConnection) dengan jenis merujuk pada class ServerConnection.
Dari event Form_Load, jalankan sub prosedur BukaKoneksiDatabase untuk mengaktifkan koneksi yang akan digunakan dalam program.
Jika koneksi database gagal, maka akan ditampilkan message box konfirmasi untuk melakukan setting koneksi database dengan menentukan Nama Server, Nama Database, User IDdan Password yang digunakan.
Selanjutnya jika koneksi database berhasil, untuk menggunakannya cukup sederhana seperti pada event cmdCommand_Click, anda cukup dengan menyebutkan dengan kodeoConnection.Server
Untuk lebih jelasnya anda bisa download contoh program tersebut Program Koneksi Database SQL Server dengan SQLOLEDB disini.
Dalam contoh program tersebut saya berikan contoh sebuah pengolahan data master barang, dengan penulisan kode yang sederhana dan efektif.
Jika anda masih belum jelas tentang program tersebut diatas, anda bisa bertanya pada kami lewat Contact Form atau gunakan dalam Komentar. Dan bagi yang masih awam tentang bahasa pemrograman VB6, anda bisa mengakses Tutorial VB6 yang telah kami posting sebelumnya.