Database VB.NET anda yang pertama

Kalau di Visual Basic 6.0 pengolahan database dapat menggunakan DAO (Data Access Object), maupun ADO (ActiveX Data Object), maka di VBnet kita dapat menggunakan ADO.NET untuk pengolahan data. Kelas ADO.NET dapat ditemukan pada namespace System.Data.
ADO.NET memiliki dua komponen utama yaitu DataSet, dan .NET Framework data provider, yang mana merupakan himpunan dari komponen-komponen antara lain objek Connection, Command, DataReader, dan DataAdapter.

Connection, merupakan objek yang menyediakan koneksi ke suatu data source.
Command, merupakan objek yang memungkinkan akses terhadap database untuk pengambilan data, modifikasi data, menjalankan stored procedure, dan mengirim atau menerima informasi parameter.
.NET Framework memiliki .NET Framework Data Provider untuk SQL Server (untuk Microsoft SQL Server version 7.0 atau keatasnya), .NET Framework Data Provider untuk OLE DB, dan .NET Framework Data Provider untuk ODBC.

Anda disaran untuk menggunakan.NET Framework Data Provider untuk SQL Server untuk koneksi ke SQL Server, karena lebih efisien dan cepat, karena melakukan akses langsung tanpa melalui lapisan lainnya.
Pada contoh ini kita akan terfokus pada pemakaian Connection dan Command OLEDB, untuk pembuatan tabel.

Membuat Tabel Siswa

1. Buatlah sebuah database dengan nama Belajar.mdb
2. Dan koding berikut untuk membuat sebuah tabel dengan nama Siswa

Imports System.Data.OleDb
Module Module2
    Public Sub main()
        Dim OledbConn As OleDb.OleDbConnection
        Dim OledbComm As OleDb.OleDbCommand
        Dim sSQL As String
        Try
            OledbConn = New OleDb.OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0; Data Source=D:\BelajarVBnet\Belajar.mdb;")
            OledbConn.Open()
            sSQL = "Create Table Barang (KodeBar Char(10) Constraint PK_Barang Primary Key," & _
                                        "Keterangan Char(50) Not null," & _
                                        "Satuan Char(6) Not null," & _
                                        "Harga Currency)"
            OledbComm = New OleDb.OleDbCommand(sSQL, OledbConn)
            Console.WriteLine("Mulai buat tabel siswa ...")
            OledbComm.ExecuteNonQuery()
            Console.WriteLine("Buat tabel siswa berhasil !")
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        Finally
            OledbConn.Close()
        End Try
    End Sub
End Module

Catatan :

Try...Catch...Finally, merupakan error handling yang baru diperkenalkan pada VBnet, dan saya rasa tidak sulit bagi anda untuk memahaminya.