Connection String

Kalau kita sering membuat program yang terkoneksi ke database , tentu sudah tidak asing lagi dengan yang namanya Connection String, yaitu cara koneksi dari program ke database yang di tuju. Setiap database mempunyai cara tersendiri untuk koneksinya.

Untuk koneksi ke database yang kita tuju kita bisa mengetahui caranya dengan mengunjungi ke situs khusus untuk connection string, ada berbagai macam database yang bisa kita pelajari dan bisa kita pakai untuk program yang kita buat, alamatnya sebagai berikut :

http://www.connectionstrings.com/

Database Servers	Data Files	Miscellaneous
SQL Server 2008	Excel 2007	SQL Azure
SQL Server 2005	Excel	Integration Services
SQL Server 2000, 7.0	Textfile	OLAP, Analysis Services
SQL Server Compact Edition	Access 2007	SharePoint
Oracle	Access	MS Project
IBM DB2	Visual FoxPro / FoxPro 2.x	Active Directory
MySQL	DBF / FoxPro	Exchange
Sybase Advantage Database Server	SQLite	Intuit QuickBase
Sybase Adaptive Server Enterprise	Filemaker	Composite Information Server
Informix		Lotus Notes
Postgre SQL		DSN
IBM UniVerse		UDL
IBM UniData		Index Server
AS/400 (IBM iSeries)		HTML Table
Progress		ComputerEase
Firebird
Interbase
Paradox
Ingres
Mimer SQL
Lightbase
Pervasive
SQLBase
Caché
Teradata
VistaDB
DBMaker
Netezza DBMS
Valentina
EffiProz

 

Semoga membantu.

Salam

Master Detail - Simple Sample

Master Detail dibutuhkan untuk menyimpan data / informasi yang saling berhubungan antar beberapa Tabel dalam database. Biasanya informasi di Master/Header berisi informasi/data global, sedangkan untuk detailnya berisi informasi/data yang lebih terperinci.

Dalam contoh ini , saya hanya membuat sample program yang sangat sederhana tetapi setidaknya sudah menggambarkan dari Master Detail tersebut.
Beberapa hal yang penting disini adalah :
1. Membuat Table On The Fly
2. Menghubungkan antara control (TextBox) dengan gridview
3. Menampilkan Data ke Gridview dan manipulasi data di Grid
4. Mengambil nilai di GridView dan menampilkannya ke Control (TextBox)
5. Dan lainnya

Dalam contoh di atas, seperti permintaan dari beberapa rekan sekalian, yaitu bagaimana memasukkan TextBox (No Trans) kedalam GridView, kemudian menampilkan hasil Total di GridView (Value) ke dalam TextBox pada saat Runtime (seperti program POS / Cashier).


Mudah-mudahan dapat menjawab beberapa pertanyaan dari rekan-rekan sekalian.

Salam
Udin Sofyan


Download
MasterDetail

Entry Column Using GridControl With Database (Basic)

Pada Artikel sebelumnya yaitu Entry Column Using GridControl With TableOnTheFly , kita sudah pelajari bagaimana cara untuk menginput/entry data langsung pada GriControl. Jika anda belum mengerti baiknya anda ulas lagi di artikel sebelumnya, karena pada artikerl ini masih sangat berhubungan dengan artikel Entry Column Using GridControl With TableOnTheFly.

Pada artikel ini saya akan melanjutkan apa yang sudah saya bahas, sehingga saya tidak terlalu panjang lagi untuk menjelaskannnya. Pada artikel ini saya akan membahas koneksi ke database (Access 2007) dan cara menyimpan hasil inputan/entry data di GridControl ke dalam database. Anda bisa memodifikasi untuk database yang anda pakai/disesuaikan dengan kebutuhan anda.

Baiklah, kita mulai dengan tampilan seperti pada artikel sebelumnya, hanya di tambahkan beberapa tombol seperti gambar berikut ini

setalah anda buat seperti di atas, sekarang kita setup untuk koneksi ke database access 2007 seperti ini :

Imports System.Data.OleDb
Imports DevExpress.XtraGrid.Views.Grid

Public con As New OleDb.OleDbConnection
Dim dtTable As DataTable
Dim GetCustID As String
Dim dtHutang As DataTable

'Buka koneksi ke database
    Public Sub opencon()
        Try
            Dim Path As String = Application.StartupPath + "\" + "udinsofyanblogspotcom.accdb"
            con = New OleDb.OleDbConnection
            con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & Path & ";Jet OLEDB:Database Password=; "
            If con.State = ConnectionState.Closed Then con.Open()
        Catch ex As OleDbException
            Throw ex
        End Try
    End Sub

Karena saya menggunakan OLEDB untuk mengakses ke database Access 2007, maka saya harus melakukan Imports System.Data.OleDb. sekarang kita telah tersambung dengan database, langkah berikutnya adalah bagaimana jika yang kita input/entry pada GridControl salah dan kita harus menghapusnya, tapi sebelumnya kita harus bisa menangkap posisi kursor pada saat mouse di klik pada baris/row di GridControl:

 Private Sub GridView1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles GridView1.MouseUp
        Try
            For Each i As Integer In GridView1.GetSelectedRows()
                Dim row As DataRow = GridView1.GetDataRow(i)
                GetCustID = String.Format(row("custid")).Trim
            Next
        Catch ex As Exception
            Exit Sub
        End Try
    End Sub

Tambahkan scrip berikut pada tombol Delete. Delete disini hanya digunakan pada saat entry data, jadi tidak menghapus data jika sudah disimpan. berikut scripnya :

 Try
            For Each i As Integer In GridView1.GetSelectedRows()
                Dim row As DataRow = GridView1.GetDataRow(i)
                GetCustID = String.Format(row("custid")).Trim
                row.Delete()
                dtHutang.AcceptChanges()
            Next
  Catch ex As Exception
            Exit Sub
  End Try

Scrip di atas akan menghapus baris yang telah di tunjuk oleh mouse, bagaimana jika kita ingin pakai Double Click pada mouse untuk menghapusnya, seperti ini :

 Private Sub GridView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridView1.DoubleClick
        Try
            For Each i As Integer In GridView1.GetSelectedRows()
                Dim row As DataRow = GridView1.GetDataRow(i)
                GetCustID = String.Format(row("custid")).Trim
                row.Delete()
                dtHutang.AcceptChanges()
            Next
        Catch ex As Exception
            Exit Sub
        End Try
    End Sub

kita sudah membuat event delete, sekarang bagaimana jika data yang telah di input/entry dimasukkan ke dalam database, berikut scriptnya :

Private Sub InsertTransaksi()
        opencon()
        Dim count As Integer
        For Each Row As DataRow In dtHutang.Rows
            Dim cmd As New OleDbCommand
            With cmd
                .CommandType = CommandType.Text
                .Connection = con
            End With
            cmd.CommandText = "insert into sample " & _
                    "(custid, nama, hutang, tgl_jatuhtempo) " & _
                    "values (" & _
                    "'" & Row("custid") & "'," & _
                    "'" & Row("nama") & "'," & _
                    "'" & Row("hutang") & "'," & _
                    "'" & Row("tgl_jatuhtempo") & "' " & _
                    ")"
            opencon()
            count = cmd.ExecuteNonQuery()
        Next
        Try
            If count > 0 Then
                MessageBox.Show("Success...", "Save", MessageBoxButtons.OK, MessageBoxIcon.Information)
                dtHutang.Clear()
            Else
                MessageBox.Show("Failed...", "Save", MessageBoxButtons.OK, MessageBoxIcon.Error)
            End If
        Catch ex As OleDbException
            MessageBox.Show(ex.Message)
        Finally
            con.Close()
        End Try
    End Sub

Pada tombol Save, anda hanya memanggil prosesedure di atas seperti ini :

       Try
            InsertTransaksi()
        Catch ex As Exception
            Exit Sub
        End Try

Tombol Retrieve dibuat hanya untuk mengecek apakah hasil dari input/entry yang telah dibuat masuk kedalam database atau tidak, seperti ini :

        Try
            opencon()
            Using dsReg As New DataSet()
                Dim cmd As New OleDbCommand("select * from sample", con)
                Dim daReg As New OleDbDataAdapter(cmd)
                daReg = New OleDbDataAdapter(cmd)
                dsReg.Tables.Clear()
                daReg.Fill(dsReg, "data") ' data hanya penamaan di dataset, bisa diisi bebas
                dtTable = Nothing
                dtTable = dsReg.Tables("data")
                GridControl1.DataSource = Nothing
                GridControl1.DataSource = dtTable
            End Using
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Exit Sub
        Finally
            con.Close()
        End Try
   

Untuk Tombol New, jika anda ingin membuat input/entry data baru kedalam GridControl

        Try
            dtHutang.Clear()
            GridControl1.DataSource = Nothing
            TableOnTheFlay()
        Catch ex As Exception
            Exit Sub
        End Try

Jika sudah selesai, maka jalankan dengan menekan tombol F5, maka hasilnya akan seperti ini

semoga membantu...

Salam

Microsoft OLEDB : provider is not registered on the local machine

Pernah mengalami error seperti dibawah ini ketika anda menggunakan OleDb atau menggunakan Database Access (saya gunakan Access 2007).

Komputer yang saya gunakan adalah Windows 7 professional x64 dengan Visual Studio 2008,
Sampai saat ini belum ada OleDb untuk x64 bit, yang tersedia sampai saat saya tulis ini masih untuk versi x32 bit, bagaimana solusinya jika anda menggunakan Visual Studio ?

Caranya adalah sebagai berikut :
1. Anda ke Main Project anda (Project Utama), atau MyProject kemudian Double Click
2. Anda Pilih Compile --> AdvancedCompile Options
3. Akan muncul menu seperti di bawah ini, kemudian cari Target CPU --> x86

Pertanyaannya adalah apakah masih bisa jalan jika kita deploy ke komputer yang menggunakan x64 bit ? TIDAK MASALAH, program anda masih tetap jalan seperti biasa.

Jika telah selesai pastikan tekan tombol OK, kemudian jalankan program anda kembali...
Semoga membatu....


Salam