Use database transactions (BeginTransaction) in VB .NET

Buka project Koneksi String VB.NET 2010 From App.Config dan buat form seperti gambar di bawah ini

Ketikkan kode berikut :

Imports System.Data.SqlClient
Imports System.Configuration

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connectionString As String
        Dim cnn As SqlConnection
        Dim cmd As SqlCommand
        Dim sql As String
        Dim transaction As SqlTransaction

        connectionString = ConfigurationManager.AppSettings("ConString").ToString()

        cnn = New SqlConnection(connectionString)
        sql = "select COUNT(*) as JumlahItem from Barang"

        Try
            cnn.Open()
            transaction = cnn.BeginTransaction
            cmd = New SqlCommand(sql, cnn)
            cmd.Transaction = transaction
            Dim count As Int32 = Convert.ToInt32(cmd.ExecuteScalar())
            transaction.Commit()
            'transaction.Rollback()
            cmd.Dispose()
            cnn.Close()
            MsgBox(" No. of Rows " & count)
        Catch ex As Exception
            MsgBox("Gagal.")
        End Try
    End Sub
End Class

Catatan :
Menggunakan metode Komit atau Rollback akan membantu dalam proses penyimpanan transaksi didalam database agar tidak terjadi redundance/atau data bentrok. Bila keluaran dari proses query sesuai maka metode Komit dijalankan (meneruskan eksekusi database), sebaliknya metode RollBack akan dijalankan (membatalkan eksekusi database).

transaction.Commit()
'transaction.Rollback()

untuk fungsi transaction.Rollback() penulis kasih tanda komentar, untuk menggunakannya silahkan hapus komentarnya

Read more »

Mendapatkan Nilai Tunggal dari Tabel Database dengan Fungsi ExecuteScalar()

ExecuteScalar() digunakan untuk mendapatkan nilai tunggal dari tabel database hasil/nilai kembali diset pada kolom pertama baris pertama. Jika Hasil Set berisi lebih dari satu kolom atau baris, maka yang dibutuhkan hanya kolom pertama dari baris pertama untuk nilai-nilai lain akan diabaikan. Jika Hasil Set kosong nilai kembali adalah Null.
Catatan : hasil/nilai kembalian bisa berbagai macam type data.

Berikut tutorialnya :
Buka project Koneksi String VB.NET 2010 From App.Config dan buat form seperti gambar di bawah ini

Ketikkan kode berikut :

Imports System.Data.SqlClient
Imports System.Configuration

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connectionString As String
        Dim cnn As SqlConnection
        Dim cmd As SqlCommand
        Dim sql As String

        connectionString = ConfigurationManager.AppSettings("ConString").ToString()

        cnn = New SqlConnection(connectionString)
        sql = "select COUNT(*) as JumlahItem from Barang"
        'sql = "select Nama from Barang"
        Try
            cnn.Open()
            cmd = New SqlCommand(sql, cnn)
            Dim count As Int32 = Convert.ToInt32(cmd.ExecuteScalar())
            'Dim Nama As String = cmd.ExecuteScalar().ToString()
            cmd.Dispose()
            cnn.Close()
            MsgBox(" No. of Rows " & count)
            'MsgBox(" No. of Rows " & Nama)
        Catch ex As Exception
            MsgBox("Gagal.")
        End Try
    End Sub
End Class

Catatan :
untuk keluaran berupa string penulis kasih tanda komentar, untuk menggunakannya silahkan hapus komentarnya

'sql = "select Nama from Barang"
'Dim Nama As String = cmd.ExecuteScalar().ToString()
'MsgBox(" No. of Rows " & Nama)

Read more »

Menampilkan Data dari Database menggunakan Fungsi ExecuteReader()

Buka project Koneksi String VB.NET 2010 From App.Config dan buat form seperti gambar di bawah ini

Ketikkan kode berikut :

Imports System.Data.SqlClient
Imports System.Configuration

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connectionString As String
        Dim cnn As SqlConnection
        Dim cmd As SqlCommand
        Dim sql As String
        Dim reader As SqlDataReader

        connectionString = ConfigurationManager.AppSettings("ConString").ToString()

        cnn = New SqlConnection(connectionString)
        sql = "SELECT * FROM Barang"
        Try
            cnn.Open()
            cmd = New SqlCommand(sql, cnn)
            reader = cmd.ExecuteReader()
            While reader.Read()
                MsgBox(reader.Item(0) & "  -  " & reader.Item(1) & "  -  " & reader.Item(2) & "  -  " & reader.Item(3))
            End While
            reader.Close()
            cmd.Dispose()
            cnn.Close()
        Catch ex As Exception
            MsgBox("Gagal.")
        End Try
    End Sub
End Class

Bila sukses maka akan muncul kotak dialog seperti gambar di bawah ini

Read more »

Simpan Edit Hapus pada VB.NET dengan Fungsi ExecuteNonQuery()

Buka project Koneksi String VB.NET 2010 From App.Config dan buat form seperti gambar di bawah ini

Ketikkan kode berikut :

Imports System.Data.SqlClient
Imports System.Configuration

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connectionString As String
        Dim cnn As SqlConnection
        Dim cmd As SqlCommand
        Dim sql As String

        connectionString = ConfigurationManager.AppSettings("ConString").ToString()

        cnn = New SqlConnection(connectionString)
        sql = "insert into Barang (Id,Nama,Harga,Stok) values ('1','barang1','1000','1')"
        'sql = "update Barang set Nama='Ganti Nama' where Id = '1'"
        'sql = "delete Barang where Id='1'"
        Try
            cnn.Open()
            cmd = New SqlCommand(sql, cnn)
            cmd.ExecuteNonQuery()
            cmd.Dispose()
            cnn.Close()
            MsgBox("Berhasil.")
        Catch ex As Exception
            MsgBox("Gagal.")
        End Try
    End Sub
End Class

Setelah selesai menambahkan kode diatas jalankan Project dengan klik tombol RUN
Catatan :
untuk update dan delete penulis kasih tanda komentar, untuk menggunakannya silahkan hapus komentarnya

'sql = "update Barang set Nama='Ganti Nama' where Id = '1'"
'sql = "delete Barang where Id='1'"

Read more »

Koneksi String VB.NET 2010 From App.Config

Sebelumnya sudah di jelaskan koneksi string pada pembahasan sebelumnya dengan judul Koneksi String VB.NET 2010 sekarang penulis akan membagikan sedikit ilmu cara Koneksi String VB.NET 2010 dari App.Config. Berikut adalah tutorialnya :

Buka project yang sudah dibuat Membuat Project Baru di VB.NET 2010
Tambahkan Reference : klik kanan pada folder References + Add Reference seperti gambar berikut 

 

Pilih tab .NET + System.Configuration + OK lihat gambar berikut

 

Dibawah ini adalah tampilan isi References yang sudah di tambahkan System.configuration

 

Aktifkan file App.Config dengan cara klik kanan pada file App.Config pilih Include In Project seperti gambar di bawah ini

 

Berikut adalah tampilan App.Config yang sudah di include di  dalam project

 

Untuk menyembunyikan kembali file yang ter-hidden klik tombol yang diberi tanda merah seperti gambar di bawah ini dan file yang tidak terhidden ada didalam kotak warna hijau

Buka  file App.Config dan ketikkan kode seperti berikut

 <?xml version="1.0" encoding="utf-8" ?>
<configuration>
    <startup>
        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0,Profile=Client" />
    </startup>
    <appSettings>
      <add key="ConString" value="uid=sa;pwd=;database=Applications_test;server=."/>
    </appSettings>
</configuration>

Buat form seperti gambar dibawah ini

 

 Ketikkan kode berikut

Imports System.Data.SqlClient
Imports System.Configuration

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connectionString As String
        Dim cnn As SqlConnection

        connectionString = ConfigurationManager.AppSettings("ConString").ToString()

        cnn = New SqlConnection(connectionString)
        Try
            cnn.Open()
            MsgBox("Connection Open ! ")
            cnn.Close()
        Catch ex As Exception
            MsgBox("Can not open connection ! ")
        End Try
    End Sub
End Class

Setelah selesai menambahkan kode diatas, jalankan project dengan menekan tombol RUN. bila ada info Conncetion Open ! seperti gambar dibawah ini berarti sukses.

Read more »

Koneksi String VB.NET 2010

Sebelum membuat koneksi string ke database buat project VB.NET 2010 terlebih dahulu di link Membuat Project Baru di VB.NET 2010. Setelah membuat project buat form seperti gambar di bawah ini

 

Setelah membuat form seperti gambar di atas ketikkan kode seperti berikut :

Imports System.Data.SqlClient
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim connectionString As String
        Dim cnn As SqlConnection
        connectionString = "Data Source=.;Initial Catalog=Applications_test;User ID=sa;Password="
        cnn = New SqlConnection(connectionString)
        Try
            cnn.Open()
            MsgBox("Connection Open ! ")
            cnn.Close()
        Catch ex As Exception
            MsgBox("Can not open connection ! ")
        End Try
    End Sub
End Class

Setelah selesai menambahkan kode di atas jalankan project dengan cara klik tombol RUN, apabila muncul kotak dialog Connection Open! seperti gambar dibawah ini berarti sukses.

Read more »

Instalasi syntax highlighting

Penulis beritahukan kepada teman-teman bahwa dengan adanya update library dari http://alexgorbatchev.com/SyntaxHighlighter/ maka tutorial di blog ini yang berjudul Cara memasang Syntax-Highlighter di Blog sudah kadaluarsa karena sudah tidak bisa digunakan lagi.

Untuk update tutorial Instalasi syntax highlighting yang terbaru silahkan simak tutorial berikut :

Misi membuat style kode pemrograman seperti gambar dibawah ini

Caranya :

cari (pakai Find, CTRL+F) :

Salin kode berikut lalu paste sebelum kode </head> .

<link href='http://alexgorbatchev.com/pub/sh/current/styles/shCore.css' rel='stylesheet' type='text/css'/> 
<link href='http://alexgorbatchev.com/pub/sh/current/styles/shThemeDefault.css' rel='stylesheet' type='text/css'/> 
<script src='http://alexgorbatchev.com/pub/sh/current/scripts/shCore.js' type='text/javascript'></script> 
<script src='http://alexgorbatchev.com/pub/sh/current/scripts/shBrushCpp.js' type='text/javascript'></script> 
<script src='http://alexgorbatchev.com/pub/sh/current/scripts/shBrushCSharp.js' type='text/javascript'></script> 
<script src='http://alexgorbatchev.com/pub/sh/current/scripts/shBrushCss.js' type='text/javascript'></script> 
<script src='http://alexgorbatchev.com/pub/sh/current/scripts/shBrushJava.js' type='text/javascript'></script> 
<script src='http://alexgorbatchev.com/pub/sh/current/scripts/shBrushJScript.js' type='text/javascript'></script> 
<script src='http://alexgorbatchev.com/pub/sh/current/scripts/shBrushPhp.js' type='text/javascript'></script> 
<script src='http://alexgorbatchev.com/pub/sh/current/scripts/shBrushPython.js' type='text/javascript'></script> 
<script src='http://alexgorbatchev.com/pub/sh/current/scripts/shBrushRuby.js' type='text/javascript'></script> 
<script src='http://alexgorbatchev.com/pub/sh/current/scripts/shBrushSql.js' type='text/javascript'></script> 
<script src='http://alexgorbatchev.com/pub/sh/current/scripts/shBrushVb.js' type='text/javascript'></script> 
<script src='http://alexgorbatchev.com/pub/sh/current/scripts/shBrushXml.js' type='text/javascript'></script> 
<script src='http://alexgorbatchev.com/pub/sh/current/scripts/shBrushPerl.js' type='text/javascript'></script> 
<script language='javascript'> 
SyntaxHighlighter.config.bloggerMode = true;
SyntaxHighlighter.config.clipboardSwf = 'http://alexgorbatchev.com/pub/sh/current/scripts/clipboard.swf';
SyntaxHighlighter.all();
</script>

Penulisan source code seperti berikut, disesuaikan dengan bahasa pemrograman

<pre class="brush: html">
.....kode programmu
</pre>

atau

<pre class="brush: js">
.....kode programmu
</pre>

atau

<pre class="brush: css">
.....kode programmu
</pre>

dll..
untuk lebih lengkapnya lihat daftar class brush di link berikut http://alexgorbatchev.com/SyntaxHighlighter/manual/brushes/

Read more »

Visual Basic Dot Net 2010

Membuat Project Baru di VB.NET 2010

Koneksi String VB.NET 2010

Koneksi String VB.NET 2010 From App.Config

Simpan Edit Hapus pada VB.NET dengan Fungsi ExecuteNonQuery()

Menampilkan Data dari Database menggunakan Fungsi ExecuteReader()

Mendapatkan Nilai Tunggal dari Tabel Database dengan Fungsi ExecuteScalar()

Use database transactions (BeginTransaction) in VB .NET

Read more »