---

.

---

---

Metode dan Algoritma | Coding Database ODBC di VB.NET . Anda bisa melakukan konsultasi tentang Coding Database ODBC di VB.NET melalui form di samping kanan !!!

---

Teknologi ODBC dapat digunakan untuk membuat program database menggunakan hampir semua database asal mempunyai driver ODBC yang telah terinsal di Windows seperti yang telah diterangkan sebelumnya. Untuk membuat program database dengan Microsoft Access menggunakan ODBC dengan kode program ikuti langkah-langkah berikut :

Imports System.Data.Odbc

Imports System.IO

Public Class FAccessODBC

    Public cn As OdbcConnection

    Public ds As DataSet

    Public tb As DataTable

    Public WithEvents bs As BindingSource

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

        Dim i As Integer

        cn = New OdbcConnection("Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Path.GetDirectoryName(Application.ExecutablePath) & "\world.mdb")

        cn.Open()

        Dim cm As New OdbcCommand("SELECT name, address, phone FROM contacts", cn)

        Dim rd As OdbcDataReader

        rd = cm.ExecuteReader()

        ds = New DataSet

        tb = New DataTable

        tb.TableName = "contacts"

        ds.Tables.Add(tb)

        ds.Load(rd, LoadOption.Upsert, tb)

        For i = 0 To (tb.Columns.Count - 1)

            tb.Columns(i).MaxLength = -1

        Next

        rd.Close()

        cn.Close()

        bs = New BindingSource()

        bs.DataSource = ds

        bs.DataMember = "contacts"

        gContacts.DataSource = bs

    End Sub

    Private Sub bs_CurrentChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles bs.CurrentChanged

        If ((bs.Count > 0) And (bs.DataMember = "contacts")) Then

            tName.Text = bs.Item(bs.Position)("name").ToString

            tAddress.Text = bs.Item(bs.Position)("address").ToString

            tPhone.Text = bs.Item(bs.Position)("phone").ToString

        End If

    End Sub

    Private Sub bFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bFirst.Click

        bs.Position = 0

    End Sub

    Private Sub bPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bPrev.Click

        bs.Position = bs.Position - 1

    End Sub

    Private Sub bNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bNext.Click

        bs.Position = bs.Position + 1

    End Sub

    Private Sub bLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLast.Click

        bs.Position = bs.Count - 1

    End Sub

    Private Sub bAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bAdd.Click

        bs.AddNew()

    End Sub

    Private Sub bEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bEdit.Click

        '

    End Sub

    Private Sub bSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bSave.Click

        Dim cm As New OdbcCommand

        cn.Open()

        If bs.Item(bs.Position)("name").ToString() = "" Then

            cm.Dispose()

            cm = New OdbcCommand("INSERT INTO contacts (name, address, phone) VALUES (?, ?, ?)", cn)

        Else

            cm.Dispose()

            cm = New OdbcCommand("UPDATE contacts SET name = ?, address = ?, phone = ? WHERE name = ?", cn)

        End If

        cm.Parameters.Add("@name", OdbcType.VarChar, 0, "").Value = tName.Text

        cm.Parameters.Add("@address", OdbcType.VarChar, 0, "").Value = tAddress.Text

        cm.Parameters.Add("@phone", OdbcType.VarChar, 0, "").Value = tPhone.Text

        If bs.Item(bs.Position)("name").ToString() <> "" Then

            cm.Parameters.Add("@Original_name", OdbcType.VarChar, 0, "").Value = bs.Item(bs.Position)("name").ToString

        End If

        cm.ExecuteNonQuery()

        cn.Close()

        bs.Item(bs.Position)("name") = tName.Text

        bs.Item(bs.Position)("address") = tAddress.Text

        bs.Item(bs.Position)("phone") = tPhone.Text

        bs.EndEdit()

    End Sub

    Private Sub bCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bCancel.Click

        bs.CancelEdit()

    End Sub

    Private Sub bDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bDelete.Click

        cn.Open()

        Dim cm As New OdbcCommand("DELETE FROM contacts WHERE name = ?", cn)

        cm.Parameters.Add("@Original_name", OdbcType.VarChar, 0, "").Value = bs.Item(bs.Position)("name").ToString

        cm.ExecuteNonQuery()

        cn.Close()

        bs.RemoveAt(bs.Position)

    End Sub

    Private Sub bRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bRefresh.Click

        Dim i As Integer

        gContacts.DataSource = Nothing

        bs.DataSource = Nothing

        ds.Dispose()

        tb.Dispose()

        cn.Open()

        Dim cm As New OdbcCommand("SELECT name, address, phone FROM contacts WHERE name LIKE '%" & tFind.Text.Trim & "%'", cn)

        Dim rd As OdbcDataReader

        rd = cm.ExecuteReader()

        ds = New DataSet

        tb = New DataTable

        tb.TableName = "contacts"

        ds.Tables.Add(tb)

        ds.Load(rd, LoadOption.Upsert, tb)

        For i = 0 To (tb.Columns.Count - 1)

            tb.Columns(i).MaxLength = -1

        Next

        rd.Close()

        cn.Close()

        bs = New BindingSource()

        bs.DataSource = ds

        bs.DataMember = "contacts"

        gContacts.DataSource = bs

    End Sub

End Class

Setelah program dijalankan hasilnya tampak seperti tampilan berikut :

 

Membuat aplikasi database menggunakan MySQL dapat dilakukan memakai Driver ODBC (System.Data.Odbc), dengan syarat terlebih dahulu telah diinstall Driver MyODBC untuk MySQL yang dapat didownload gratis di internet. Membuat aplikasi database MySQL menggunakan ODBC (System.Data.Odbc) cara pemrogramannya mirip dengan Odbc saat membuat aplikasi database menggunakan Access, hanya saja ConnectionString-nya diganti sebagai berikut :

cn = New OdbcConnection("DRIVER={MySQL ODBC 3.51 Driver};UID=root;STMT=;OPTION=;PORT=;PASSWORD=;SERVER=localhost;DATABASE=world;DESC=")

ConnectionString tersebut dapat dilihat susunannya dari Registry.

Membuat aplikasi database menggunakan Interbase atau Firebird dapat dilakukan memakai Driver ODBC (System.Data.Odbc), dengan syarat terlebih dahulu telah diinstall Driver Firebird/Interbase ODBC untuk Interbase/Firebird yang dapat didownload gratis di internet. Membuat aplikasi database Firebird/Interbase menggunakan ODBC (System.Data.Odbc) cara pemrogramannya mirip dengan Odbc saat membuat aplikasi database menggunakan Access maupun MySQL, hanya saja ConnectionString-nya diganti sebagai berikut :

cn = New OdbcConnection("DRIVER={Firebird/InterBase(r) driver};Dbname=" & Path.GetDirectoryName(Application.ExecutablePath) & "\WORLD.FDB;User=SYSDBA;PASSWORD=DKEBFJENHFCOBHGHLAIMNAAFICELEAEGDNMFNOGALAMHBBGCHFADNKCBPPGMANOGIEKENIOPHDIPBIECPLLLCBIKEJKMJLPLIB")

ConnectionString tersebut dapat dilihat susunannya dari File DSN atau Registry.

---

ActionScript AS3 ASP.NET AJAX C / C++ C# Clipper COBOL ColdFusion DataFlex Delphi Emacs Lisp Fortran FoxPro Java J2ME JavaScript JScript Lingo MATLAB Perl PHP PostScript Python SQL VBScript Visual Basic 6.0 Visual Basic .NET Flash MySQL Oracle Android

---

Related Post :

---

Judul: Coding Database ODBC di VB.NET
Rating: 100% based on 99998 ratings. 5 user reviews.
Ditulis Oleh hank2

Anda sedang membaca artikel tentang Coding Database ODBC di VB.NET, Semoga artikel tentang Coding Database ODBC di VB.NET ini sangat bermanfaat bagi teman-teman semua, jangan lupa untuk mengunjungi lagi melalui link Coding Database ODBC di VB.NET.

---