Autonumber Pada VB.Net Database SQL Server

Autonumber Pada VB.Net Database SQL Server

Sebelum membuat pencarian data alangkah baik nya lihat tutorial di bawah ini :

- Membuat database Sql server

- Koneksi Akurat pada VB.Net 

Tutorial kali ini saya mau membahas tentang Autonumber pada VB.Net.

Buat lah sebuah fungsi pada vb.net, koding seperti di bawah ini

    Sub autonumber()
        Dim cmd As SqlClient.SqlCommand
        Dim reader As SqlClient.SqlDataReader
        cmd = New SqlCommand("select * from barang order by kode desc", Conn)
        reader = cmd.ExecuteReader
        If reader.Read Then
            Dim no As Integer
            no = reader(0) + 1

            TextBox1.Text = "0" & no
        Else
            TextBox1.Text = "01"
        End If
        reader.Close()
    End Sub

Setelah di buat, double klik form ( pada event load ) panggil fungsi autonumber
Koneksi , database harap di sesuaikan .

Note :
barang  : nama table
kode : nama field table database yang akan di buat autonumber

Bagi yang butuh project nya silahkan download di bawah ini

Semoga Bermanfaat Bagi Kita Semua

By: thoestone On 3:35 PM

Continue Reading

Autonumber Kombinasi ( otomatis acak nomor ) Dari Tgl Sekarang

Autonumber Kombinasi ( otomatis acak nomor ) Dari Tgl Sekarang

Buatlah fungsi pada form lalu tambahkan koding di bawah ini.

Public Sub Autonumber_kombinasi()
        v_sql = "SELECT RIGHT(NO_BUKTI,3) AS NO_BUKTI FROM TBL_HEAD WHERE LEFT(NO_BUKTI,1)='A' ORDER BY RIGHT(NO_BUKTI,3) DESC"
        If reader.HasRows Then
            reader.Read()
            Return "A" + Mid("000", 1, 3 - (Val(Trim(reader.Item(0).ToString)) + 1).ToString.Length) + (Val(Trim(reader.Item(0).ToString)) + 1).ToString
        Else
            Return "A001"
        End If

        'Contoh No Bukti yyyymmdd-xxx : 20120801-001,20120801-002
        'Jika Ingin Setiap TAHUN Ganti/Reset Ke 001 Lagi
        v_sql = "SELECT RIGHT(NO_BUKTI,3) AS NO_BUKTI FROM TBL_HEAD WHERE YEAR(LEFT(NO_BUKTI,8))=YEAR(GETDATE()) ORDER BY RIGHT(NO_BUKTI,3) DESC"
        'Jika Ingin Setiap BULAN Ganti/Reset Ke 001 Lagi
        v_sql = "SELECT RIGHT(NO_BUKTI,3) AS NO_BUKTI FROM TBL_HEAD WHERE YEAR(LEFT(NO_BUKTI,8))+MONTH(LEFT(NO_BUKTI,8))=YEAR(GETDATE())+MONTH(GETDATE()) ORDER BY RIGHT(NO_BUKTI,3) DESC"
        'Jika Ingin Setiap HARI Ganti/Reset Ke 001 Lagi
        v_sql = "SELECT RIGHT(NO_BUKTI,3) AS NO_BUKTI FROM TBL_HEAD WHERE YEAR(LEFT(NO_BUKTI,8))+MONTH(LEFT(NO_BUKTI,8))+DAY(LEFT(NO_BUKTI,8))=YEAR(GETDATE())+MONTH(GETDATE())+DAY(GETDATE()) ORDER BY RIGHT(NO_BUKTI,3) DESC"
        If reader.HasRows Then
            reader.Read()
            Return Format(Now.Date, "yyyyMMdd") + "-" + (Val(Trim(reader.Item(0).ToString)) + 1).ToString
        Else
            Return Format(Now.Date, "yyyyMMdd") + "-001"
        End If
    End Sub

Cukup panggil nama fungsi diatas pada form load atau button

Sekian dan terima kasih

By: thoestone On 11:57 AM

Continue Reading

Tampilkan List ComboBox Dari Records Database

Tampilkan List ComboBox Dari Records Database

Harap perhatikan koneksi pada database di tiap PC anda.
langsung copas biar seperti di bawah ini .

Langsung copas :

Public Sub caricombo()
        Dim conn As New SqlConnection
        Dim cmd As SqlCommand
        Dim rdr As SqlDataReader

        conn = New SqlConnection(dinas_penduduukan_pencatatan_sipil.My.Settings.db1ConnectionString)

        Try
            conn.Open()
            cmd = New SqlCommand("SELECT id_penduduk FROM penduduk", conn)
            rdr = cmd.ExecuteReader()

            While rdr.Read()
                TextBox7.Items.Add(rdr("id_penduduk"))
            End While

        Catch ex As Exception
            MessageBox.Show("Koneksi Gagal !!!, karena " & ex.Message)
        End Try

        'ComboBox1.SelectedIndex = 0
    End Sub

Lalu panggil fungsi caricombo di form load.

Sekian dan terima kasih

By: thoestone On 12:11 PM

Continue Reading

Auto Number ( Kombinasi Angka Dan Huruf )

Auto Number ( Kombinasi Angka Dan Huruf )

Sebelumnya harap pahami koneksi ke database, bagi yang udah paham bisa langsung ke sini .

Langsung Copas kode di bawah ini :

    Sub AutoGenerate()
        Dim no_dftr As String

        Try
            Using Conn As New SqlConnection(dinas_penduduukan_pencatatan_sipil.My.Settings.db1ConnectionString)
                Conn.Open()
                Dim cmd As SqlCommand = New SqlCommand("SELECT * FROM bayi ORDER BY no_dftr DESC", Conn)
                Dim dr As SqlDataReader = cmd.ExecuteReader
                dr.Read()

                Try
                    If Not dr.HasRows Then
                        no_dftr = "PB0001"
                    Else
                        no_dftr = Val(Microsoft.VisualBasic.Mid(dr.Item("no_dftr").ToString, 5, 3)) + 1
                        If Len(no_dftr) = 1 Then
                            no_dftr = "PB000" & no_dftr & ""
                        ElseIf Len(no_dftr) = 2 Then
                            no_dftr = "PB00" & no_dftr & ""
                        ElseIf Len(no_dftr) = 3 Then
                            no_dftr = "PB0" & no_dftr & ""
                        End If
                    End If
                Catch ex As Exception
                    MsgBox(ex.ToString)
                Finally
                    TextBox8.Text = no_dftr
                    Conn.Close()
                End Try
            End Using
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

Sekian dan terima kasih

Semoga bermanfaat

By: thoestone On 12:06 PM

Continue Reading

Cara Play Audio (*.wav) dan SystemSound (Beep,Asterisk,Exclamation,Hand,Question) VBNET

Cara Play Audio (*.wav) dan SystemSound (Beep,Asterisk,Exclamation,Hand,Question) VBNET

Kali ini saya posting yang ringan saja, bagaimana cara play sound wav dan play system sound di VBNET dengan mudah ?.Pertama kita bisa pasang systemsound pada aplikasi kita, misalnya saat tekan button, saat text_change dan lain sebainya, systemsound adalah suara default windows seperti bunyi beep, asterik dan sebagainya (contoh jika ada MessageBox suka ada bunyi "Ting"), berikut ini contoh sintaknya :

My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Beep) 'suara beep

My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Asterisk)

My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Exclamation) 'suara pesan warning

My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Hand)

My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Question) 'suara pesan pertanyaan / yes no / ok cancel

Nah selanjutnya jika ada punya file music dengan type data wav, anda bisa gunakan sintak yang sederhana ini untuk memutar (play dan stop) file tersebut :

My.Computer.Audio.Play("C:\DJIESOFT_files\sample.wav")

Untuk stop gunakan sintak ini :

My.Computer.Audio.Stop()

By: thoestone On 2:10 PM

Continue Reading

Fungsi Terbilang Pada VB.Net

Fungsi Terbilang Pada VB.Net

Buat;ah sebuah module/class .

Copas koding dibawah ini :

'untuk module / class
Public Function Terbilang(ByVal nilai As Long) As String
        Dim bilangan As String() = {"", "satu", "dua", "tiga", "empat", "lima", _
        "enam", "tujuh", "delapan", "sembilan", "sepuluh", "sebelas"}
        If nilai < 12 Then
            Return " " & bilangan(nilai)
        ElseIf nilai < 20 Then
            Return Terbilang(nilai - 10) & " belas"
        ElseIf nilai < 100 Then
            Return (Terbilang(CInt((nilai \ 10))) & " puluh") + Terbilang(nilai Mod 10)
        ElseIf nilai < 200 Then
            Return " seratus" & Terbilang(nilai - 100)
        ElseIf nilai < 1000 Then
            Return (Terbilang(CInt((nilai \ 100))) & " ratus") + Terbilang(nilai Mod 100)
        ElseIf nilai < 2000 Then
            Return " seribu" & Terbilang(nilai - 1000)
        ElseIf nilai < 1000000 Then
            Return (Terbilang(CInt((nilai \ 1000))) & " ribu") + Terbilang(nilai Mod 1000)
        ElseIf nilai < 1000000000 Then
            Return (Terbilang(CInt((nilai \ 1000000))) & " juta") + Terbilang(nilai Mod 1000000)
        ElseIf nilai < 1000000000000 Then
            Return (Terbilang(CInt((nilai \ 1000000000))) & " milyar") + Terbilang(nilai Mod 1000000000)
        ElseIf nilai < 1000000000000000 Then
            Return (Terbilang(CInt((nilai \ 1000000000000))) & " trilyun") + Terbilang(nilai Mod 1000000000000)
        Else
            Return ""
        End If
    End Function

Untuk Form Textbox event change :

        If TextBox2.Text = "" Then Exit Sub
        Label17.Text = Terbilang(TextBox2.Text)


Koding Keseluruhan

'untuk module / class
Public Function Terbilang(ByVal nilai As Long) As String
        Dim bilangan As String() = {"", "satu", "dua", "tiga", "empat", "lima", _
        "enam", "tujuh", "delapan", "sembilan", "sepuluh", "sebelas"}
        If nilai < 12 Then
            Return " " & bilangan(nilai)
        ElseIf nilai < 20 Then
            Return Terbilang(nilai - 10) & " belas"
        ElseIf nilai < 100 Then
            Return (Terbilang(CInt((nilai \ 10))) & " puluh") + Terbilang(nilai Mod 10)
        ElseIf nilai < 200 Then
            Return " seratus" & Terbilang(nilai - 100)
        ElseIf nilai < 1000 Then
            Return (Terbilang(CInt((nilai \ 100))) & " ratus") + Terbilang(nilai Mod 100)
        ElseIf nilai < 2000 Then
            Return " seribu" & Terbilang(nilai - 1000)
        ElseIf nilai < 1000000 Then
            Return (Terbilang(CInt((nilai \ 1000))) & " ribu") + Terbilang(nilai Mod 1000)
        ElseIf nilai < 1000000000 Then
            Return (Terbilang(CInt((nilai \ 1000000))) & " juta") + Terbilang(nilai Mod 1000000)
        ElseIf nilai < 1000000000000 Then
            Return (Terbilang(CInt((nilai \ 1000000000))) & " milyar") + Terbilang(nilai Mod 1000000000)
        ElseIf nilai < 1000000000000000 Then
            Return (Terbilang(CInt((nilai \ 1000000000000))) & " trilyun") + Terbilang(nilai Mod 1000000000000)
        Else
            Return ""
        End If
    End Function


'untuk change di text change

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        If TextBox2.Text = "" Then Exit Sub
        Label17.Text = Terbilang(TextBox2.Text)
    End Sub

By: thoestone On 11:49 AM

Continue Reading

Membuat Form Login Pada VB.Net

Membuat Form Login Pada VB.Net ( Database SQL Server )

Sebelum membaca tutorial login pada vb.net maka terlebih dahulu buatlah database login dan koneksi, yang belum mengetahui harap baca postingan sebelumnya.

Bagi yang udah paham silahkan simak tutorial di bawah ini .

Semua koding :


Imports System.Data
Imports System.Data.SqlClient
Imports System.Security.SecurityException

Public Class login
    Dim Conn As New SqlConnection(WindowsApplication1.My.Settings.db1ConnectionString)

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim sqlQRY As String = "SELECT * FROM login_system WHERE pengguna= '" & Me.TextBox1.Text & "' AND Password= '" & Me.TextBox2.Text & "'"
        Dim cmd As SqlCommand = New SqlCommand(sqlQRY, Conn)
        'create data reader
        Dim rdr As SqlDataReader = cmd.ExecuteReader
        rdr.Read()
        If rdr.HasRows = True Then
            Dim Username As String = rdr("pengguna").ToString
            Dim Password As String = rdr("Password").ToString
            MsgBox("Username dan password benar", , "")
            splash.Show()
            Me.Hide()
        Else
            MessageBox.Show("Invalid Password or Username", "Sorry", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End If
    End Sub


    Private Sub login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            ' Open connection
            conn.Open()
        Catch ex As SqlException
            MessageBox.Show(ex.Message, "Error..", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            ' Close connection
            'conn.Close()
        End Try
        TextBox1.Text = ""
        TextBox2.Text = ""
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox1.Focus()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
End Class

Semoga Bermanfaat

By: thoestone On 12:09 PM

Continue Reading

Menghapus File Pada VB.Net

Menghapus File Pada VB.Net

contohnya kita  akan menghapus file c:/photoku.jpg

Jadi koding keseluruhan nya.


Public Class Form1

    Dim FileToDelete As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        FileToDelete = "C:\photoku.jpg"
        If System.IO.File.Exists(FileToDelete) = True Then
            System.IO.File.Delete(FileToDelete)
        End If
    End Sub
End Class

Semoga Bermanfaat

By: thoestone On 11:42 AM

Continue Reading