Jawaban SOAL 3 (M.Sulaiman Silalahi)

Kasus : Klik Disini

Public Class form_Login

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        Close()

    End Sub

    Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click

        If user.Text = "sulaiman" And pwd.Text = "silalahi" Then

            Form_Menu.Show()

            Me.Hide()

        Else

            MsgBox("MaaF! PAsword Salah!")

            user.Text = ""

            pwd.Text = ""

        End If

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Form_Menu.Show()

    End Sub

End Class

Public Class Form_Menu

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click

        End

    End Sub

    Private Sub DataKaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataKaryawanToolStripMenuItem.Click

        Form_DataKaryawan.Show()

    End Sub

End Class

Public Class Form_DataKaryawan

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

        Close()

    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click

        Call addapus()

    End Sub

    Sub buattabel()

        LV.Columns.Add("Golongan", 80, HorizontalAlignment.Center)

        LV.Columns.Add("Gaji Pokok", 180, HorizontalAlignment.Center)

        LV.Columns.Add("pajak", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Status Kerja", 50, HorizontalAlignment.Center)

        LV.Columns.Add("Jam Lembur", 50, HorizontalAlignment.Center)

        LV.Columns.Add("Upah Lembur", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Status", 100, HorizontalAlignment.Center)

        LV.Columns.Add("Jumlah Anak", 120, HorizontalAlignment.Center)

        LV.Columns.Add("Tunjangan Istri", 120, HorizontalAlignment.Center)

        LV.Columns.Add("Tunjangan Anak", 120, HorizontalAlignment.Center)

        LV.Columns.Add("Total Gaji", 100, HorizontalAlignment.Center)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim Lst As New ListViewItem

        Lst.Text = gol.Text

        Lst.SubItems.Add(gajpokok.Text)

        Lst.SubItems.Add(pajak.Text)

        Lst.SubItems.Add(Slembur.Text)

        Lst.SubItems.Add(jamlembur.Text)

        Lst.SubItems.Add(lembur.Text)

        Lst.SubItems.Add(status.Text)

        Lst.SubItems.Add(jmlanak.Text)

        Lst.SubItems.Add(tunjanganistri.Text)

        Lst.SubItems.Add(tunjangananak.Text)

        Lst.SubItems.Add(totgaji.Text)

        LV.Items.Add(Lst)

    End Sub

    Private Sub addapus()

        lembur.Text = ""

        gol.Text = ""

        gajpokok.Text = ""

        pajak.Text = ""

        status.Text = ""

        jmlanak.Text = ""

        tunjanganistri.Text = ""

        tunjangananak.Text = ""

        totgaji.Text = ""

        jamlembur.Text = ""

        Slembur.Text = ""

        gol.Focus()

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click

        totgaji.Text = Val(gajpokok.Text) + Val(tunjangananak.Text) + Val(tunjanganistri.Text) + Val(lembur.Text) - Val(pajak.Text)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        gol.Items.Add("Mandor")

        gol.Items.Add("Kepala Bagian")

        gol.Items.Add("Staf")

        Slembur.Items.Add("Lembur")

        Slembur.Items.Add("Tidak Lembur")

        status.Items.Add("MENIKAH")

        status.Items.Add("BELUM MENIKAH")

        jmlanak.Enabled = False

        Dim i As Integer

        For i = 1 To 5

            jamlembur.Items.Add(i)

        Next

        buattabel()

    End Sub

    Private Sub gol_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles gol.SelectedIndexChanged

        If gol.Text = "Mandor" Then

            gajpokok.Text = 1750000

            pajak.Text = (0.015 * Val(gajpokok.Text))

        ElseIf gol.Text = "Kepala Bagian" Then

            gajpokok.Text = 2500000

            pajak.Text = (0.015 * Val(gajpokok.Text))

        ElseIf gol.Text = "Staf" Then

            gajpokok.Text = 1250000

            pajak.Text = (0.015 * Val(gajpokok.Text))

        Else

            gajpokok.Text = 0

        End If

    End Sub

    Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged

        If status.Text = "BELUM MENIKAH" Then

            tunjangananak.Text = 0

            tunjanganistri.Text = 0

            jmlanak.Enabled = False

        ElseIf status.Text = "MENIKAH" Then

            jmlanak.Enabled = True

            tunjanganistri.Text = (0.09 * Val(gajpokok.Text))

        End If

    End Sub

    Private Sub jmlanak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jmlanak.TextChanged

        If jmlanak.Text = "" Then

            tunjangananak.Text = 0

Jawaban SOAL 2 (M.Sulaiman Silalahi)

Kasus : Klik Disini 


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call buatTable()

    End Sub

    Private Sub npm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.TextChanged

        Call addjurusan()

        Call addjenjang()

        Call addtahun()

    End Sub

    Private Sub nAngka_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nAngka.TextChanged

        Call addnhuruf()

    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click

        Call isiTable()

        Call bersih()

    End Sub

    Private Sub btnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBersih.Click

        Call bersih()

    End Sub

    Private Sub btnHapusSemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapusSemua.Click

        LV.Items.Clear()

    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

        On Error Resume Next

        LV.Items.Remove(LV.SelectedItems(0))

    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click

        End

    End Sub

    Sub addjurusan()

        Select Case Microsoft.VisualBasic.Mid(npm.Text, 3, 2)

            Case "11"

                jurusan.Text = "Teknik Informatika"

            Case "12"

                jurusan.Text = "Sistem Informatika"

            Case "13"

                jurusan.Text = "Manajemen Informatika"

        End Select

    End Sub

    Sub addjenjang()

        Select Case Microsoft.VisualBasic.Mid(npm.Text, 3, 1)

            Case "1"

                jenjang.Text = "S1"

            Case "2"

                jenjang.Text = "D3"

            Case "3"

                jenjang.Text = "D1"

        End Select

    End Sub

    Sub addtahun()

        thnMasuk.Text = "20" & Microsoft.VisualBasic.Left(npm.Text, 2)

    End Sub

    Sub addnhuruf()

        On Error Resume Next

        If nAngka.Text >= 80 Then

            nHuruf.Text = "A"

        ElseIf nAngka.Text >= 70 Then

            nHuruf.Text = "B"

        ElseIf nAngka.Text >= 60 Then

            nHuruf.Text = "C"

        ElseIf nAngka.Text >= 50 Then

            nHuruf.Text = "D"

        ElseIf nAngka.Text < 50 Then

            nHuruf.Text = "E"

        End If

    End Sub

    Sub buatTable()

        LV.Columns.Add("NPM", 50, HorizontalAlignment.Center)

        LV.Columns.Add("Nama", 180, HorizontalAlignment.Left)

        LV.Columns.Add("Jurusan", 150, HorizontalAlignment.Left)

        LV.Columns.Add("Jenjang", 70, HorizontalAlignment.Center)

        LV.Columns.Add("Tahun Masuk", 90, HorizontalAlignment.Left)

        LV.Columns.Add("Nilai Angka", 70, HorizontalAlignment.Center)

        LV.Columns.Add("Nilai Huruf", 70, HorizontalAlignment.Center)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub isiTable()

        Dim lst As New ListViewItem

        lst.Text = npm.Text

        lst.SubItems.Add(nama.Text)

        lst.SubItems.Add(jurusan.Text)

        lst.SubItems.Add(jenjang.Text)

        lst.SubItems.Add(thnMasuk.Text)

        lst.SubItems.Add(nAngka.Text)

        lst.SubItems.Add(nHuruf.Text)

        LV.Items.Add(lst)

    End Sub

    Sub bersih()

        npm.Text = ""

        nama.Text = ""

        jurusan.Text = ""

        jenjang.Text = ""

        thnMasuk.Text = ""

        nAngka.Text = ""

        nHuruf.Text = ""

        npm.Focus()

    End Sub

End Class

Pertian VB Basic

Microsoft Visual Basic (sering disingkat sebagai VB saja) merupakan sebuah bahasa pemrograman yang menawarkan Integrated Development Environment (IDE) visual untuk membuat program perangkat lunak berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman (COM), Visual Basic merupakan turunan bahasa pemrograman BASIC dan menawarkan pengembangan perangkat lunak komputer berbasis grafik dengan cepat, Beberapa bahasa skrip seperti Visual Basic for Applications (VBA) dan Visual Basic Scripting Edition (VBScript), mirip seperti halnya Visual Basic, tetapi cara kerjanya yang berbeda.[1] Para programmer dapat membangun aplikasi dengan menggunakan komponen-komponen yang disediakan oleh Microsoft Visual Basic Program-program yang ditulis dengan Visual Basic juga dapat menggunakan Windows API, tapi membutuhkan deklarasi fungsi luar tambahan.[1] Dalam pemrograman untuk bisnis, Visual Basic memiliki pangsa pasar yang sangat luas.[1]Dalam sebuah survey yang dilakukan pada tahun 2005, 62% pengembang perangkat lunak dilaporkan menggunakan berbagai bentuk Visual Basic, yang diikuti oleh C++, JavaScript, C#, dan Java.

Sejarah
billgate , pendiri Microsoft, memulai bisnis softwarenya dengan mengembangkan interpreter bahasa Basic untuk Altair 8800, untuk kemudian ia ubah agar dapat berjalan di atas IBM PC dengan sistem operasi DOS, Perkembangan berikutnya ialah diluncurkannya BASICA (basic-advanced) untuk DOS, Setelah BASICA, Microsoft meluncurkan Microsoft QuickBasic dan Microsoft Basic (dikenal juga sebagai Basic Compiler), Visual basic adalah pengembangan dari bahasa komputer BASIC (Beginner’s All-purpose Symbolic Instruction Code), Bahasa BASIC diciptakan oleh Professor John Kemeny dan Thomas Eugene Kurtz dari Perguruan Tinggi Dartmouth pada pertengahan tahun 1960-an (Deitel&Deitel, 1999).[2]Bahasa program tersebut tersusun mirip dengan bahasa Inggris yang biasa digunakan oleh para programer untuk menulis program-program komputer sederhana yang berfungsi sebagai pembelajaran bagi konsep dasar pemrograman komputer, Sejak saat itu, banyak versi BASIC yang dikembangkan untuk digunakan pada berbagai platform komputer.[2]Beberapa versinya seperti Microsoft QBASIC, QUICKBASIC, GWBASIC ,IBM BASICA, Apple BASIC dan lain-lain, Apple BASIC dikembangkan oleh Steve Wozniak, mantan karyawan Hewlett Packard dan teman dekat Steve Jobs (pendiri Apple Inc.).[2] Steve Jobs pernah bekerja dengan Wozniak sebelumnya (mereka membuat game arcade “Breakout” untuk Atari),Mereka mengumpulkan uang dan bersama-sama merakit PC, dan pada tanggal 1 April 1976 mereka secara resmi mendirikan perusahaan komputer Apple, Popularitas dan pemakaian BASIC yang luas dengan berbagai jenis komputer turut berperan dalam mengembangkan dan memperbaiki bahasa itu sendiri, dan akhirnya berujung pada lahirnya Visual Basic yang berbasis GUI (Graphic User Interface) bersamaan dengan Microsoft Windows, Pemrograman Visual Basic begitu mudah bagi pemula dan programer musiman karena ia menghemat waktu pemrograman dengan tersedianya komponen-komponen siap pakai.[2] Hingga akhirnya Visual Basic juga telah berkembang menjadi beberapa versi, sampai yang terbaru, yaitu Visual Basic 2008, Bagaimanapun juga Visual Basic 6.0 tetap menjadi versi yang paling populer karena mudah dalam membuat programnya dan ia tidak menghabiskan banyak Memori (komputer).[2] Sejarah BASIC di tangan Microsoft sebagai bahasa yang diinterpretasi (BASICA) dan juga bahasa yang dikompilasi (BASCOM) membuat Visual Basic diimplementasikan sebagai gabungan keduanya.[3] Programmer yang menggunakan Visual Basic bisa memilih kode bahasa pemrograman yang dikompilasi atau kode yang harus bahasa pemrograman yang diinterpretasikan sebagai hasil Porting dari kode VB.[3]Sayangnya, meskipun sudah terkompilasi jadi bahasa mesin, DLL bernama MSVBVMxx.DLL tetap dibutuhkan, Namun karakteristik bahasa terkompilasi tetap muncul (ia lebih cepat dari kalau kita pakai mode terinterpretasi).

Perkembangan Visual Basic

VB 1.0 dikenalkan pada tahun 1991, pendekatan yg dilakukan untuk menghubungkan bahasa pemrograman dengan GUI berasal dari prototype yg dikembang oleh “Alan Cooper” yg di sebut TRIPOD, Kemudian Microsoft mengontrak copper dan asosiasinya utk mengembangkan tripod agar dapat digunakan di windows 3.0 dibawah nama kode Ruby.[3] Berikut Perjalanan Visual Basic (VB 1.0 Sampai VB 10) :[1] Perjalanan dari Visual Basic (VB1 to VB 10):[4]

1. Proyek “Thunder” dirintis
2. Visual Basic 1.0 (May 1991) di rilis untuk windows pada COMDEX/Windows Wordltrade yg dipertunjukan di Atlanta , Georgia
3. Visual Basic 1.0 untuk DOS dirilis pada bulan September 1992. Bahasa ini tidak kompatibel dengan Visual Basic For Windows. VB 1.0 for DOS ini pada kenyataaanya merupakan versi kelanjutan dari compiler BASIC, QuickBasic dan BASIC Professional Development System.
4. Visual Basic 2.0 dirilis pada November 1992, Cakupan pemrogramannya cukup mudah untuk digunakan dan kecepatannya juga telah di modifikasi. Khususnya pada Form yg menjadikan object dapat dibuat secara seketika, serta konsep dasar dari Class modul yg berikutnya di implementasikan pada VB 4
5. Visual Basic 3.0 , dirilis pada musim panas 1993 dan dibagi menjadi versi standard dan professional. VB 3 memasukan Versi 1.1 dari Microsoft Jet Database Engine yg dapat membaca serta menulis database Jet (atau access) 1.x
6. Visual Basic 4.0 (Agustus 1995) merupakan versi pertama yg dapat membuat windows program 32 bit sebaik versi 16 bit nya. VB 4 juga memperkenalkan kemampuan untuk menulis non-GUI class pada Visual Basic
7. Visual Basic 5.0 (February 1997), Microsoft merilis secara eksklusif Visual basic untuk versi windows 32 bit . Programmer yg menulis programnya pada versi 16 bit dapat dengan mudah melakukan import porgramnya dari VB4 ke VB5. dan juga sebaliknya, program VB5 dapat diimport menjadi VB4. VB 5 memperkenalakan kemampuan untuk membuat User Control.
8. Visual Basic 6.0 (pertengahan 1998) memperbaiki beberapa cakupan, temasuk kemapuannya untuk membuat Aplikasi Web-based . Visual Basic 6 di jadwalkan akan memasuki Microsoft “fasa non Supported” dimulai pada maret 2008

1. Visual Basic .NET, dirilis pada tahun 2002, Beberapa yang mencoba pada versi pertama .NET ini mengemukakan bahwa bahasa ini sangat powerful tapi bahasa yg digunakan sangat berbeda dengan bahasa sebelumnya, dengan kekurangan diberbagai area, termasuk runtime-nya yang 10 kali lebih besar dari paket runtime VB6 serta peningkatan penggunan memory.
2. Visual Basic .NET 2003, dirilis dengan menggunakan NET framework versi 1.1.
3. Visual Basic 2005, merupakan itegrasi selanjutnya dari Visual Basic .NET. dan Microsoft memutuskan untuk menghilangkan kata kata .NET pada judulnya. Pada Rilis ini , Microsoft memasukan bebrapa fitur baru, diantaranya : Edit and Continue , mungkin inilah kekurangan fitur terbesar dari VB .NET. pada VB 2005 ini kita diperbolehkan melakukan perubahan kode pada saat program sedang dijalankan Perbaikan pada Konversi dari VB ke VB NET12 Visual Basic .NET 2003 (VB 7.1) , dirilis dengan menggunakan NET Kerangka kerja versi 1.1. IsNot Patent, merupakan salah satu fitur dari Visual Basic 2005 merupakan konversi If=Not X Is Y menjadi If X IsNot Y
4. Visual Basic 2005 Express , merupkan bagian dari Product Visual Studio. Microsoft membuat Microsoft Visual Studio 2005 Express edition untuk pemula dan yg gemar dengan VB, salah satu produknya adalah Visual Basic 2005 Express yg merupakan produk gratis dari Microsoft
5. Visual Basic “Orcas”, dijadwalkan akan dirilis pada tahun 2007 dan dibangung diatas .NET 3.5. Pada rilis ini , Microsoft menambahkan beberapa fitur , diantaranya : True Tenary operator , yaitu fungsi If(boolean,value, value) yg digunakan untuk menggantikan fungsi IIF, LINQ Support, Ekspresi Lambda, XML Literals, Nullable types, Type Inference
6. Visual Basic ‘VBx’, Visual Basic 10, yang juga dkenal dengan nama VBx, akan menawarkan dukungan untuk Dynamic Language Runtime. VB 10 direncanakan akan menjadi bagian da 15. an dari SilverLight 1.1

Pemrograman Berorientasi Objek (OOP)
Visual Basic merupakan bahasa yang mendukung Pemrograman berorientasi objek , namun tidak sepenuhnya, Beberapa karakteristik obyek tidak dapat dilakukan pada Visual Basic, seperti Inheritance tidak dapat dilakukan pada class module, Polymorphism secara terbatas bisa dilakukan dengan mendeklarasikan class module yang memiliki Interface tertentu. Visual Basic (VB) tidak bersifat case sensitif.

Desain Visual dan Komponen
Visual Basic menjadi populer karena kemudahan desain form secara visual dan adanya kemampuan untuk menggunakan komponen-komponen ActiveX yang dibuat oleh pihak lain.[4] Namun komponen ActiveX memiliki masalahnya tersendiri yang dikenal sebagai DLL hell,Pada Visual Basic .NET, Microsoft mencoba mengatasi masalah DLL hell dengan mengubah cara penggunaan komponen (menjadi independen terhadap registry).

Tentang VB net

Koneksi VB dengan Database

Koneksi VB dengan data base

Untuk dapat mengakses suatu database dari visual basic, Anda harus membuat koneksi  ke database tersebut. Visual basic dapat menangani berbagai database, teks bakan worksheet excel. Terdapat beberapa cara yang tersedia untuk itu sesuai dengan database yang digunakan

Cara 1. Menggunakan Object ADO

Anda dapat menggunakan icon Adodc (Microsoft ActiveX Data Objects Data Control) pada toolbox. Jika pada toolbox tidak terdapat icon Adodc, Anda dapat menambahkannya dengan memilih menu Project, Components (Ctrl+T) lalu beri tanda pilih pada Microsoft ADO Data Control (OLEDB) dan klik Apply. Sekarang kita akan mencoba mengaitkan database Ms. Acess yang diberi nama Pembelian.mdb. Untuk itu, lakukan langkah-langkah sebagai berikut:

1. Pilih menu File lalu New.
2. Pilih VB Enterprise (Professional) Edition Controls.
3. Klik OK.
4. Klik ganda pada folder Forms pada jendela proyek lalu klik ganda pada Form 1 sampai muncul tampilan form.
5. Klik icon Adodc pada toolbox.
6. Klik dan seret pada jendela form, sehingga muncul tampilan seperti Gb. Objek yang tergambar dalam form disebut objek data.
7. Tentukan properti data sebagai berikut:
1. Name db         Pembelian
2. Caption           Data Barang
3. EOFAcction    2
8. Tentukan properti ConnectionString dengan cara mengklik tombol … pada kolom ConnectionString sehingga muncul tam pilan seperti pada Gb
9. Pilih OptionButton pada Use Connection String lalu klik Build sehingga muncul tampilan seperti pada Gb
10. Pilih Microsoft Jet 4.0 OLEDB Provider lalu klik Next.
11. Pilih (dengan mengklik tombol …) atau ketik nama database yang dipakai pada kolom Select or enter a database name.
12. Klik Test Connection jika perlu, lalu kllk OK dua kali sampai tampilan kembali ke jendela Form.
13. Tentukan properti RecordSource dengan cara mengklik tombol pada kolom RecordSource sehingga muncul tampilan seperti pada Gb
14. Pada kolom Command Type pilih 2-adCmdTable. Setelah kolom ini diisi, maka Anda akan dapat mengisi kolom Table or Stored Procedure Name. lsilah dengan memilib tabel Barang seperti pada Gb
15. Klik OK.
16. Simpan form dan proyek dengan nama VB-Lat-01

Cara 2: Mendeklarasikan Objek Ado

Object ado dapat dideklarasi melalui coding. Tiga object bawaan ADO dalam pengembangan aplikasi adalah :

1. Obcet Connection

untuk menangani koneksi antara program dengan sumber data atau server. Deklarasi dapat bersifat lokal maupun global serta dapat diletakan pada level form, modul atau class modul. ADO paling umum membuka suatu koneksi dengan menggunakan obyek Connection Open metoda. Sintaks untuk Metoda Open ditunjukkan sbb:  

Dim connection as New ADODB.Connection

connection.Open ConnectionString, UserID, Password, OpenOptions

Sebagai alternatif, anda dapat menggunakan teknik pintas, recordset.Open, untuk membuka koneksi yang tersembunyi dan mengeluarkan suatu perintah atas koneksi dalam satu operasi. Lakukan hal ini dengan mengaktivkan suatu koneksi yang valid seperti argumentasi ActiveConnection ke Metoda Open. Ini adalah sintaksis untuk masing-masing metoda di Visual Basic: 

Dim recordset as ADODB.Recordset Set

recordset = New ADODB.Recordset

recordset.Open Source, ActiveConnection, CursorType, LockType, Options

Contoh :

Deklarasi object Connection:

     Dim cn As New ADODB.Connection

atau

     Public cn As New ADODB.connection

Selanjutnya mengalokasikan memori untuk onject connection sbb:

     Set cn = New ADODB.Connection

Kemudian isi property object connoction tersebut sbb:

Contoh berikut adalah property untuk MSSQL Server

     cn.connectionString = “Perovider=SQLOLEDB;” & _

                                                 ”Server=NamaServer; ” & _

    “Initial catalog= inventory” & _

                                               “user Id = zulidamel” _

                                              “Password=terserah”

     cn.Open

atau

    koneksi =  “Perovider=SQLOLEDB;” & _

                       ”Server=NamaServer; ” & _ 

                       “Initial catalog= inventory” & _

                       “user Id = zulidamel” _

                       “Password=terserah”

cn.Open koneksi

Jika tidak ingin menggunak authentik pada proses koneksi gunakan cara berikut:     

koneksi = “Provider=SQLOLEDB.1;” & _

                  “Integrated Security Info=False;” & _

                 “Data Source = NamaServer” cn.Open koneksiBila koneksi sudah tidak diperlukan tutuplah koneksi dengan perintah

 ”Set cn = Nothing”

2. Object Command

Digunakan untuk perintah SQL ke sumber data atau server. Deklarasi object command sbb:

      Dim CmdBarang As New ADODB.Command

atau

     Public Cmd as New ADODB.Command

selanjutnya alokasikan memori untuk object Command sbb:

     Set CmdBarang = New ADODB.Command

 Kemudian Isi property object command

      CmdBarang.ActiveConection = cn

     CmdBarang.CommandText = “select * from barang”

      CmdBarang.CommandType = adCmdText

3. Object Recordset

Digunakan sebagao penampung hasil eksekusi dalam bentuk tabel. Deklarasi object record sbb:

      Dim rsBarang As New ADODB.Recordset

atau

      Public rsBarang As New ADODB.Recordset

selanjutnya alokasikan memori ynryk object recordset sbb:

      Set rsBarang = New ADODB.recordset

lalu isikan property object record set

      rsBarang.CusrsorTYpe = adOpenDynamic

     rsBarang.LockType = adLockOptimistic

     rsbarang.Open cmdBarang

atau

   rsbarang,open CmdBarang,, adOpenDynamic, adlockOptimistic,  adCmdtext

Data ControVisual Basic terus berkembang dalam pengembangan general purpose Windows, tetapi kemampuan database tidaklah bagian murni dari desainnya. Data Control,  Visual Basic menambahkan, membuat Visual Basic suatu alat yang jauh lebih tangguh untuk pembuatan pemrograman database.

Data Control memberikan kemudahkan untuk mendapat data ke dalam program anda. Anda dapat dengan mudah mengaitkan  suatu file database, lalu mengaitkan  data lainnya  untuk memindahkan data dari database ke aplikasi anda dan sebaliknya. Data Control pada suatu database dan menetapkan tabel mana yang akan diambil, lalu mengaitkan  ke pengendali Data Control, menetapkan  field yang akan ditampilkan. Pada waktu itu aplikasi anda dapat mengambil, menampilkan, memperbaharui dan membuat database merekam. Alir data di dalam skenario ini ditandai pada gambar.