posted by aryo tejo w on May 7, 2019

Syntax suatu bahasa pemrograman pada dasar hampir semua sama. Baik itu deklarasi variabel,prosedure, function, if then else dan lainnya, mempunyai kemiripan. Akan tetapi untuk  lebih dalam lagi, pasti ada hal yang beda.

Developer aplikasi, biasanya sudah paham akan sistem informasi, sehingga untuk meningkatkan skill, tinggal belajar untuk syntax ( aturan baku bahasa pemrograman agar dapat berjalan dengan baik ). Agar untuk menguasai bahasa pemrograman, tidak “ngalor ngidul” yang artinya tidak fokus, lebih baik melakukan translate bahasa pemrograman yang sudah dikuasai selama ini.

Oleh karena developer mempunyai target agar mempunyai skil yang menghasilkan produk, maka untuk developer sistem informasi, disarankan fokus di bagian manajemen databasenya.

  1. Koneksi string database

Untuk VB 6, bisa dengan coding sebagai berikut:

‘’ awal Koneksi string

strKon = "Provider=Microsoft.Jet.OleDB.4.0;Data Source=" + App.Path + "\db_4rd1to\db_4rd1to.mdb;Jet OLEDB:Database Password=ini_password"

 Set cN = New ADODB.Connection

 cN.Open strKon

‘’ akhir Koneksi string

Terlihat bahwa project memakai ADODB dalam mengelola databasenya. Apabila seorang meng copy dan paste source code di atas, banyak kemungkinan akan error.

compile error:  User-defined type not defined

Sebelum menjalankan project, terlebih dulu seting di menu Project > References > pilih lah Microsoft ActiveX Data Objects 2.0 Library

 

Untuk VB.NET

Ada suatu Namespace, yang harus di Import terlebih dulu.

Namespace adalah cara untuk menghilangkan salah perintah satu antarmuka publik dari yang lain. Atau bisa diartikan; untuk menghindari error saat menggunakan nama class yang sama.

Letak namespace, berada paling atas suatu list code form antar muka. Sebelum memulai penulisan coding, harus menuliskan namespace ini.

 

Imports System.Data.OleDb ‘ ini namespace

‘deklarasi variabel diletakkan di file Module1.vb

Module Module1

  Public Cn As OleDbConnection

  Public DA As OleDbDataAdapter

  Public DS As DataSet

  Public Cmd As OleDbCommand

  Public DR As OleDbDataReader

  Public StrKey As String, strS1 As String, strS2 As String, strS3 As String, strS4 As String

Public strKon As String, strCR As String

Public Sub Konek()

        strKon = "Provider=Microsoft.Jet.OleDB.4.0;Data Source= db_4rd1to\ db_4rd1to.mdb;Jet OLEDB:Database Password=rejeki"

 

        Cn = New OleDbConnection(strKon)

        Cn.Open()

 

 

        'mengubungkan command ke connection

        Cmd.Connection = Cn

    End Sub

End Module

Leave a Comment

Fields with * are required.

Please enter the letters as they are shown in the image above.
Letters are not case-sensitive.