Mengakses database dengan menggunakan Script pada Visual Basic

Kita juga dapat mengakses database melalui kode program pada visual basic. Caranya :

·         Buatlah sebuah project baru pada VB, dengan objek-objek Form1, DataGrid1, Adodc1.

·         Buatlah variable global yang akan mewakili ADODB Connection

Contoh : Public ADOCon As New ADODB.Connection

·         Membuat seting ADODB Connetion. Disarankan untuk membuat seting tersebut pada prosedur yang terpisah.

Contoh :

Sub SetConn()

            ADOCon.ConnectionString = connection_string

            If ADOCon.State = adstateOpen Then

               ‘ do nothing

            Else

               ADOCon.Open ADOCon.ConnectionString

            End if

End sub

 

            ADODB ConnectionString bisa didapatkan dengan cara membuat connection string pada ADodc, kemudian di-copy.

·         Membuat seting ADODC Source, juga disarankan untuk membuatnya pada prosedur yang terpisah.

Contoh :

Public sub SetADOSource (conName as ADDB.Connection, adoname as Adodc, adosql as string)

            If adosql <> “” then

                With adoname

                 .connectionString = conname

                 .commandType = adCmdText

                 .cursorType = adOpenStatic

                 .LockType = adLockReadOnly

                 .RecordSource = adosql

                 .Refresh

               End with

               Adosql = “”

           End if

End sub

·         Untuk mengetahui hasilnya kita dapat memanggil prosedur-prosedur tersebut dengan memasukan nilai pada parameter-parameter yang telah ditentukan.

Contoh :

Private sub Form_Load()

Dim SQLText As String

    setConn

    SQLText = “SELECT * FROM Mahasiswa”

    SetADOSource ADOCon, Adodc1,SQLText

    Set DataGrid1.DataSource = Adodc1

End sub

·         Untuk menghindari terjadinya konflik dan untuk melakukan pembebasan terhadap memori yang digunakan, kita jangan lupa untuk menutup semua koneksi serta membebaskan memori saat keluar dari program.

Contoh :

Private Sub Form_Unload(Cancel as Integer)

   Set DataGrid1.dataSource = Nothing

   If ADOCon.State = adStateOpen then ADOCon.Close

   Seet ADOCon = Nothing

            End sub