CONTOH KODING VB NET 2010 ( DISESUAIKAN DENGAN MILIK ANDA )

modul///
Imports System.Data
Imports System.Data.Odbc
Module Module1
    Public database As Odbc.OdbcConnection
    Public Tb As Odbc.OdbcDataAdapter
    Public Data As DataSet
    Public Rcd As New BindingSource
    Public perintahsql As New Odbc.OdbcCommand
    Public Cari As Odbc.OdbcDataReader
    Public Sub Koneksi()
        Try
            database = New Odbc.OdbcConnection("Dsn=koneksi")
            database.Open()
            MsgBox("berhasil terkoneksi Lanjutkan")
        Catch ex As Exception
            MsgBox(ex.ToString())
        End Try
    End Sub
End Module

//simpan

   Try
                Call Koneksi()
                Dim cmd As New OdbcCommand("insert into tbps values('" & TextBox1.Text & "','" & TextBox2.Text & "')", database)
                cmd.ExecuteNonQuery()
                MsgBox("tersimpan kedatabase")
                tampil()
                KodeOtomatis1()
                'bersih()

            Catch ex As Exception
                MsgBox("ada kesalahan" + ex.Message)
                'bersih()
            End Try

koreksi////
 Call Koneksi()
        Dim ubah As String = "update  tbps set jns_ps = '" & TextBox2.Text & "' where kd_ps= '" & TextBox3.Text & "'"
        perintahsql = New Odbc.OdbcCommand(ubah, database)
        perintahsql.ExecuteNonQuery()
        MsgBox("data telah dubah")
        tampil()


HAPUS////
 Call Koneksi()
        Dim hapus As String = "delete from tbps where kd_ps='" & TextBox3.Text & "'"
        perintahsql = New Odbc.OdbcCommand(hapus, database)
        perintahsql.ExecuteNonQuery()
        MsgBox("data telah dhapus")
        tampil()


TAMPIL////

 Sub tampil()
        Call Koneksi()
        Tb = New OdbcDataAdapter("select * from tbps ", database)
        Data = New DataSet
        Tb.Fill(Data, "tbps")
        dg1.DataSource = Data.Tables("tbps")
        dg1.ReadOnly = True
        dg1.Refresh()
    End Sub


CARI////

 ' TextBox1.Clear()
        'TextBox2.Clear()
        'TextBox3.Clear()
        ' TextBox4.Clear()
        Dim str As String
        str = "select*from tbps where (kd_ps='" & TextBox3.Text & "')"
        Dim cmd As OdbcCommand = New OdbcCommand(str, database)
        Cari = cmd.ExecuteReader
        While Cari.Read
            TextBox3.Text = Cari("kd_ps").ToString
            TextBox2.Text = Cari("jns_ps").ToString
         

        End While
        'database.Close()
    End Sub


////PANGGIL DATA KE KOMBO///

 ' Call Koneksi()
        Dim cmd As New OdbcCommand("select *from tbpaket where kdpaket='" & c2.Text & "'", database)
        Cari = cmd.ExecuteReader()
        ' c1.Items.Clear()
        Do While Cari.Read
            c2.Items.Add(Cari("kdpaket"))
            t2.Text = Cari("nmpaket")
            t3.Text = Cari("hrgpaket")
            t4.Text = Cari("durasi")

        Loop
        TextBox1.Text = Val(t3.Text) * Val(t4.Text) / 60
        t9.Text = Val(TextBox1.Text)


///KODE OTOMATIS///

 Sub KodeOtomatis1()
      Try
            TextBox1.Text = "S001"
            Koneksi()
            perintahsql = New Odbc.OdbcCommand("SELECT CONCAT( 'S' ,LPAD(( RIGHT( MAX(kd_ps),3)+1),3,'0')) as ps FROM tbps", database)
            Cari = perintahsql.ExecuteReader

            If Cari.Read Then
                TextBox1.Text = Cari.Item("ps")
            Else
                TextBox1.Text = "S001"
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation)
        End Try
    End Sub