VB.NET Tutorial-01 "Membuat Koneksi Module"

pasti banyak orang yang ingin selalu berkembang. termasuk saya pun begitu. sempat susah belajar otodidak untuk beralih dari VB 6.0 ke VB.NET. tapi jangan khawatir gan.. kita sharing disini. moga-moga aja bermanfaat.

silahkan anda buat sebuah database untuk kita panggil nantinya.
kebetulan pada contoh ini saya membuat database dengan nama (DBMS_POS2010). untuk field dan isi data sementara bebas aja. yang penting ada databasenya lah..

ini adalah bentuk koneksi database pada module. silahkan buka aplikasi VB.Net anda dan buat sebuah module dan ketikan code ini.

*****************************************************************************
Public CONN As OleDb.OleDbConnection = MyKoneksi.KONEKSI_DBMS
  Public Function KONEKSI_DBMS() As OleDb.OleDbConnection

  Dim CONN As OleDb.OleDbConnection

  CONN = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
  "Data Source =" & Application.StartupPath.ToString & "\DBMS_POS2010.mdb")

  Return CONN
  CONN = Nothing

  End Function
*******************************************************************************

note : dengan (" & Application.StartupPath.ToString & ") kita dapat bebas berekspresi dengan database path mana pun kita simpan file tersebut. oh ya gan. aplikasi sederhana ini pake database Ms.Access 2003 yo..

nah langkah kedua, buatlah sebuah form dengan tambahan properti "DataGridView" silahkan saja atur posisi ato layout yang sesuai. then just type below code

********************************************************************************
Inherits System.Windows.Forms.Form
Dim DABARANG As OleDb.OleDbDataAdapter

Private Sub APLIKASI_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

DABARANG = New OleDb.OleDbDataAdapter("SELECT IDUSER,USERNAME,PASSWORD,AUTHENTIFIKASI" & _
"FROM TABEL_USER_SISTEM", MyKoneksi.KONEKSI_DBMS)

Dim DTBARANG As New DataTable
DTBARANG.Clear()
DABARANG.Fill(DTBARANG)

Me.GRIDUSER.DataSource = DTBARANG
Me.GRIDUSER.ReadOnly = True

End Sub
********************************************************************************

note : disini saya mengganti nama properti DataGridView dengan GRIDUSER
jadi silahkan run aplikasi sederhana yang dapat membuktikan anda telah berhasil dalam berkenalan dengan VB.Net menggunakan koneksi pada module.
sehingga pada saat berekspresi dengan koding pada form aplikasi lainnya koneksi database tidak perlu dipanggil pada setiap form yang kita miliki.. so please try it... hope this information gonna be solution for all of you.

salam
Wiratmojo, S.Kom (calon..)