Metode & Algoritma | List Tutorials | Source Code | About | Sitemap
Konsultan Tesis
Bimbingan dan Konsultasi Tesis Informatika bersama team Project Graduate Indonesia. Konsultasi hanya untuk yang sudah me-Like FB kami (Silahkan LIKE tombol ini jika belum).
. Scroll kebawah untuk memasukan kode AntiSpam Protection. Hasil konsultasi akan kami kirimkan ke email Anda.

Database Coding OLEDB DataAdapter di VB.NET




.


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


Untuk membuat program database menggunakan teknologi OLEDB dengan DataAdapter seperti yang dipakai pada Wizard tetapi menggunakan kode program, yang berbeda hanya koneksi awalnya saja yaitu di event onLoad. Barikut ini kode programnya :

Imports System.Data.OleDb
Imports System.IO

Public Class FAccessOLEDBDataAdapter
    Public cn As OleDbConnection
    Public da As OleDbDataAdapter
    Public ds As DataSet
    Public WithEvents bs As BindingSource

    Private Sub FAccessOLEDBDataAdapter_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Path.GetDirectoryName(Application.ExecutablePath) & "\world.mdb")

        da = New OleDbDataAdapter
        ds = New DataSet

        da.SelectCommand = cn.CreateCommand
        da.SelectCommand.CommandType = CommandType.Text
        da.SelectCommand.CommandText = "SELECT name, address, phone FROM contacts"
        da.Fill(ds, "contacts")

        bs = New BindingSource
        bs.DataSource = ds
        bs.DataMember = "contacts"

        gContacts.DataSource = bs
    End Sub

    Private Sub bRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bRefresh.Click
        gContacts.DataSource = Nothing
        bs.DataSource = Nothing

        ds.Clear()
        da.SelectCommand.CommandType = CommandType.Text
        da.SelectCommand.CommandText = "SELECT name, address, phone FROM contacts WHERE name LIKE '%" & tFind.Text.Trim & "%'"
        da.Fill(ds, "contacts")

        bs = New BindingSource
        bs.DataSource = ds
        bs.DataMember = "contacts"

        gContacts.DataSource = bs
    End Sub



Source Code 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 :


Project-G
Judul: Database Coding OLEDB DataAdapter di VB.NET
Rating: 100% based on 99998 ratings. 5 user reviews.
Ditulis Oleh hank2

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


Posted by: Metode Algoritma Updated at: 16.27

{ 0 komentar... Views All / Send Comment! }

Posting Komentar

Label