Home Archives for October 2014

Friday, October 24, 2014

Auto Number vb.net Mysql

    No comments
Pada tulisan sebelumnya saya sudah menampilkan bagaimana cara mebuat combobo dinamis. yaitu item combobox yang berasal dari database. nah pada tulisan kali ini saya akan menunjukkan bagaimana cara untuk membuat kode otomatis (autonumber) di vb.net

autonumber vb.net


cara untuk menampilkanya kode otomatis :

- buat form dengan code seperti berikut

Imports MySql.Data.MySqlClient


Public Class Form1

    Dim ds As DataSet
    Dim myadp As MySqlDataAdapter
    Dim dt As New DataTable
    Dim query As String
    Dim DREADER As MySqlDataReader
    Dim CMD As MySqlCommand
    Dim sql As String
    

    Sub Kodeotomatis()
        Call hubungkan()
        CMD = New MySqlCommand("Select NoAgt From tbl_agt where NoAgt in(select max(NoAgt) from tbl_agt) ", con)
        DREADER = CMD.ExecuteReader
        DREADER.Read()
        If DREADER.HasRows = 0 Then
            txtNoAgt.Text = "Agt" + Date.Now.ToString("yyMMdd") + "00001"
            DREADER.Close()
        End If
        If Not DREADER.HasRows Then
            txtNoAgt.Text = "Agt" + Date.Now.ToString("yyMMdd") + "00001"
            DREADER.Close()

        Else
            txtNoAgt.Text = Val(Microsoft.VisualBasic.Right(DREADER.Item("NoAgt").ToString, 4)) + 1
            If Len(txtNoAgt.Text) = 1 Then
                txtNoAgt.Text = "Agt" + Date.Now.ToString("yyMMdd") + "0000" & txtNoAgt.Text & ""
            ElseIf Len(txtNoAgt.Text) = 2 Then
                txtNoAgt.Text = "Agt" + Date.Now.ToString("yyMMdd") + "000" & txtNoAgt.Text & ""
            ElseIf Len(txtNoAgt.Text) = 3 Then
                txtNoAgt.Text = "Agt" + Date.Now.ToString("yyMMdd") + "00" & txtNoAgt.Text & ""
            ElseIf Len(txtNoAgt.Text) = 4 Then
                txtNoAgt.Text = "Agt" + Date.Now.ToString("yyMMdd") + "0" & txtNoAgt.Text & ""
            End If
            DREADER.Close()
        End If
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
       Kodeotomatis()
    End Sub

End Class


catatan :
- kode yang berwarna putih adalah nama field tabel sumber dan kode warna kuning adalah nama tabel di databse yang digunakan.
- kode yang berwarna hijau adalah namam kontrol (textfield) yang ada pada form

Selamat mencoba. semoga bermanfaat

Vb.net combobox dinamis

    No comments
     Pada suatu kasus ada kalanya item yang ditampilkan pada combobox berasal dari database. Misalnya untuk combobox fakultas di suatu aplikasi, nama nama fakultas yang di tampilkan berasal dari database. contohnya seperti gambar berikut.

combobox dinamis

berikut langkah langkah untuk menampilkan item combobox dari database mysql

Buat sebuah module koneksi antara vb dengan databsse mysql

Imports MySql.Data.MySqlClient 

Module Conn
Public strConnection As String = "Server=localhost;user id=root; password=; database=Perpus"
        Public con As New MySqlConnection
        Public sdr As MySqlDataReader
        Public sdr1 As MySqlDataReader
        Public cmd As MySqlCommand
          Public Sub hubungkan()
              con = New MySqlConnection(strConnection)
              Try
                  If con.State = ConnectionState.Closed Then
                      con.Open()
                  End If
              Catch ex As MySql.Data.MySqlClient.MySqlException
                  MsgBox("Koneksi ke Database Tidak Berhasil...!!")
                  End
              End Try
          End Sub

          Public Sub tutupkoneksi()
              If con.State = ConnectionState.Open Then
                  Try
                      con.Close()
                  Catch ex As Exception
                     MsgBox("Gagal Menutup Koneksi" & ex.ToString)
                  End Try
              End If
          End Sub
      End Module


      Setelah selesai membuat module koneksi, kemudian buat kode pada Form yang dibuat menjadi seperti berikut untuk memanggil data item yang diinginkan dari database.

      Imports MySql.Data.MySqlClient


      Public Class Form1

          Dim ds As DataSet
          Dim myadp As MySqlDataAdapter
          Dim dt As New DataTable
          Dim query As String
          Dim DREADER As MySqlDataReader
          Dim CMD As MySqlCommand
          Dim sql As String
          

        Sub tampil_fakultas()
         Call hubungkan()
         CMD = New MySqlCommand("select namafakultas from fakultas", conn)
              DREADER = CMD.ExecuteReader
              If DREADER.HasRows Then
                  Fakultas.Items.Clear()            
                  Do While DREADER.Read
                      Fakultas.Items.Add(DREADER("namafakultas"))
                  Loop
              Else
                  MessageBox.Show("data faultas tidak ada di databse..!!")
              End If
          End Sub

          Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
             tampil_fakultas() 
          End Sub

      End Class

      code yang bercetak merah adalah nama field tabel yang ingin ditampilkan dan kode yang berwarna kuning adalah nama tabel dan code yang berwana putih adalah nama database yang menjadi sumber data.

      selamat mencoba. semoga bermanfaat.


      Thursday, October 23, 2014

      Replikasi Database Mysql

          No comments
               Suatu teknik untuk melakukan copy dan pendistribusian data dan objek-objek database dari satu database ke databse lain yang lokasinya terpisah secara fisik di sebut Replikasi Database.      
      replika

              Replikasi adalah duplikasi data dari database sumber dalam hal ini disebut master ke database lainnya atau disebut slave dalam suatu jaringan. Tujuan replikasi adalah untuk mengurangi beban dari server dalam pengaksesan data untuk dibagi ke komputer-komputer lain dan juga untuk meningkatkan kinerja database. selain itu juga database di sisi slave dapat dimanfaatkan sebagai database cadangan jika terjadi kegagalan database utama.

       berikut langkah langkah langkah melakukan replikasi mysql  : tutorial
      Subscribe to: Posts ( Atom )
      Kode-Kecil. Powered by Blogger.