Koneksi VB.net dengan Mysql

Untuk membuat kolaborasi VB.net dan Mysql diperlukan Mysql connector (.net tetunya) bisa kawan-kawan download di Mysql connector for .net , and kalau sudah download ya di install.

OK lagsung ke tutorial Vb.net and Mysql

Langkah pertama dan selalu dilakukan saat menggunakan sebuah compnet adaalah ADD REFERENCE
1. Create New Procjet
2. Pilih Project, Add Reference, Cari Mysql.Data lalu OK













3. Kemudian Buat Modul “koneksi”.Caranya,Pilih project, Add Module, missal berikan nama “koneksi”










Pada modul koneksi masukan script berikut

Imports MySql.Data.MySqlClient.MySqlConnection
Module koneksi
Public conn As New MySql.Data.MySqlClient.MySqlConnection
Public Sub konek(ByVal server As String, ByVal user As String, ByVal pass As String, ByVal db As String)
If conn.State = ConnectionState.Closed Then
Dim myString As String = "server=" & server _
& ";user=" & user _
& ";password=" & pass _
& ";database=" & db
Try
conn.ConnectionString = myString
conn.Open()
Catch ex As MySql.Data.MySqlClient.MySqlException
MsgBox(ex.Message)
End
End Try
End If
End Sub
Public Sub disconnect()
Try
conn.Open()
Catch ex As MySql.Data.MySqlClient.MySqlException
End Try
End Sub
End Module

Ok modul koneksi sudah terbuat, trus bagaimana cara memanfaatkanya? Berikut, salah satu contoh sederhana bagaimana koneksi mysql pada vb.net 2005.
Pada sebuah form utama dengan even On Load masukan perintah

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
konek("localhost", "root", "", "nama_db")
Dim cmd As New MySql.Data.MySqlClient.MySqlCommand
cmd.CommandType = CommandType.Text
cmd.CommandText = "SELECT count(id_member) from member"
cmd.Connection = conn
MessageBox.Show(cmd.ExecuteScalar.ToString)
End Sub
End Class

konek("localhost", "root", "", "nama_db") = ini untuk memanggil fungsi koneksi dgn mysql, “nama_db” ya sesuaikan saja dengan db yg tersedia.

Kalau sudah ya eksekusi aja, kalau beruntuk maka akan tampil seperti ini.

Read More

Date Mysql pada Vb.net

Kawan, tentu nikmat jika kita bisa membuat aplikasi database dengan mysql dan vb.net. Dan pembuatan aplikasi database hampir dipastikan terdapat tabel yang mempunya field bertipe DATE. Secara defaut jika kawan mencoba melakukan insert data bertipe date menggunakan vb.net maka yang terjadi adalah error. tentu saja karena format date pada mysql dengan vb.net bebeda.

Secara format data pda mysql adalah tahun-bulan-tanggal sedangkan pada vb.net tanggal/bulan/ tahun. Maka satu-satunya cara adalah mengubah format tanggal pada vb.net agar bisa diterima oleh mysql. Caranya dengan membuat suatu fungsi yang merubah tanggal vb.net menjadi format tanggal mysql. berikut adalah potongan script yang bisa di jalankan

Public Class Form1
Public Function harini(ByVal Input As Date)
Dim hour As String = CStr(Input.Hour)
Dim minute As String = CStr(Input.Minute)
Dim second As String = CStr(Input.Second)
Dim day As String = CStr(Input.Day)
Dim month As String = CStr(Input.Month)
If Len(CStr(Input.Hour)) = 1 Then
hour = "0" & Input.Hour
ElseIf Len(CStr(Input.Hour)) = 0 Then
hour = "00"
End If
If Len(CStr(Input.Minute)) = 1 Then
minute = "0" & Input.Minute
ElseIf Len(CStr(Input.Minute)) = 0 Then
minute = "00"
End If
If Len(CStr(Input.Second)) = 1 Then
second = "0" & Input.Second
ElseIf Len(CStr(Input.Second)) = 0 Then
second = "00"
End If
If Len(CStr(Input.Day)) = 1 Then
day = "0" & Input.Day
ElseIf Len(CStr(Input.Day)) = 0 Then
day = "00"
End If

If Len(CStr(Input.Month)) = 1 Then
month = "0" & Input.Month
ElseIf Len(CStr(Input.Month)) = 0 Then
month = "00"
End If
harini = CStr(Input.Year & "-" & month & "-" & day & " " & hour & ":" & minute & ":" & second)
End Function

dan contoh pemanggilan fungsi diatas sebagai berikut

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim tgl As Date = Date.Now
MessageBox.Show("#format mysql :" & harini(tgl) & " #format VB:" & tgl)
End Sub

Read More

Membuat Data Grid View Sebagai Lembar Kerja Pada VB.Net

DataGridView atau sering disingkat DGV, merupakan salah satu tool dalam Visual Basic yaitu berupa tabel seperti layaknya MS Excel yang bisa kita jadikan sebagai lembar kerja. DataGridView pada umunya berfungsi untuk menampilkan daftar barang atau nama dari tabel-tabel yang berasal dari database. Tetapi disini kita akan membahas cara menggunakan DataGridView sebagai lembar kerja atau form seperti pada MS Excel. 

Skenario formnya seperti ini, ada sebuah tabel yang berisi Uraian, Volume, Satuan, Harga satuan, dan Jumlah. Ketika kita mengisikan data pada kolom Volume dan Harga satuan, otomatis  pada kolom Jumlah akan terisi hasil perkalian antara 2 kolom tersebut. Untuk membuatnya ikuti langkah-langkahnya sebagai berikut.

1. Buka program Visual Studio.Net atau Visual Basic. Net 2005

2. Pilih New Project Aplication

3. Pilih DataGridView pada jendela Tool, drag pada form1 dengan menahan klik pada mouse

4. Membuat kolom pada DataGridView, Doubleclick pada halaman Form1 jangan pada halaman DataGridView, sehingga muncul jendela untuk menuliskan source kode. Ketik kode berikut ini di dalam Form1_Load

DataGridView1.Columns.Add("Uraian", "Uraian")
DataGridView1.Columns.Add("Volume", "Volume")
DataGridView1.Columns.Add("Satuan", "Satuan")
DataGridView1.Columns.Add("Harga Satuan", "Harga Satuan")
DataGridView1.Columns.Add("Jumlah", "Jumlah")

5. Menjadikan DataGridView sebagai lembar kerja, ketikkan kode berikut

Private Sub DGV1_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
If e.ColumnIndex = 1 Then
DataGridView1.Rows(e.RowIndex).Cells(4).Value =    DataGridView1.Rows(e.RowIndex).Cells(1).Value * DataGridView1.Rows(e.RowIndex).Cells(3).Value
ElseIf e.ColumnIndex = 3 Then
DataGridView1.Rows(e.RowIndex).Cells(4).Value = DataGridView1.Rows(e.RowIndex).Cells(1).Value * DataGridView1.Rows(e.RowIndex).Cells(3).Value
End If
End Sub

6. Jalankan aplikasi dengan menekan tombol F5. Ingat jangan mengisi kolom Volume dan Harga satuan dengan selain angka karena akan menyebabkan aplikasi error.

Aplikasi ini biasa digunakan sebagai inputan untuk disimpan kedalam database. Mudah bukan? Selamat mencoba.

Read More

Perintah Select...Case pada VB.net

Jika statement If melakukan pemilihan berdasarkan kondisi, maka perintah Select melakukan pemilihan berdasarkan nilai ekspresi dengan syntax sebagai berikut :
Select [ Case ] testexpression
[ Case expressionlist
[ statements ] ]
[ Case Else
[ elsestatements ] ]
End Select

Contoh :
Option Explicit On
Imports System
Module ModHari
Sub Main()
Dim Hari As Byte
Console.Write("Masukkan No Hari :")
Hari = Console.ReadLine()
Select Case Hari
Case 1
Console.WriteLine("Senin")
Case 2
Console.WriteLine("Selasa")
Case 3
Console.WriteLine("Rabu")
Case 4
Console.WriteLine("Kamis")
Case 5
Console.WriteLine("Jumat")
Case 6
Console.WriteLine("Sabtu")
Case 7
Console.WriteLine("Minggu")
Case Else
Console.WriteLine("No Hari tidak sah")
End Select
End Sub
End Module

Contoh Lain :
Option Explicit On
Imports System
Module ModHari
Sub Main()
Dim Angka As Integer
Console.Write("Masukkan Angka 1 s/d 9 :")
Angka = Console.ReadLine()
Select Case Angka
Case Is < 1
Console.WriteLine("Terlalu kecil")
Case 1 To 5
Console.WriteLine("Berada antara 1 dan 5")
Case 6,7,8,9
Console.WriteLine("Berada antara 6 dan 9")
Case Else
Console.WriteLine("Terlalu besar")
End Select
End Sub
End Module

Read More

Struktur Keputusan dan Perulangan

Perintah If...Then...Else
Salah satu tujuan pemrograman komputer adalah mengambil tugas rutin manusia untuk dalam mengambil keputusan-keputusan yang dapat diprogram. Misalnya seorang Dosen dalam menentukan Grade (A,B,C,D, atau E) nilai akhir mahasiswa dengan kondisi sebagai berikut :
Jika Nilai >= 85 Kemudian
Cetak "A"
Jika tidak dan Jika Nilai >= 70 Kemudian
Cetak "B"
Jika tidak dan Jika Nilai >= 60 Kemudian
Cetak "C"
Jika tidak dan Jika Nilai >= 25 Kemudian
Cetak "D"
Jika tidak
Cetak "E"Akhir dari keputusan

Logika keputusan diatas dapat diprogram pada Visual Basic dengan menggunakan syntax penulisan sebagai berikut :
If condition [ Then ]
[ statements ]
[ ElseIf elseifcondition [ Then ]
[ elseifstatements ] ]
[ Else
[ elsestatements ] ]
End If

Contoh :
Option Explicit On
Imports System
Module ModIf
  Sub Main()
      Dim Nilai As Single
      Console.Write("Masukkan Nilai Akhir :")
      Nilai = Console.ReadLine()
      If Nilai >= 85 Then
         Console.WriteLine("A")
      ElseIf Nilai >= 70 Then
         Console.WriteLine("B")
      ElseIf Nilai >= 60 Then
         Console.WriteLine("C")
      ElseIf Nilai >= 25 Then
         Console.WriteLine("D")

      Else
         Console.WriteLine("E")
      End If
  End Sub
End Module

Read More

Deklarasi Type dalam pemrogaman VB.Net

Pemrogram yang baik tentu saja menggunakan pendekatan yang terstruktur dalam pengembangan program, salah satu ciri dari program yang terstruktur adalah mendeklarasikan semua variabel yang digunakan dalam program. Pada Visual Basic printah Dim digunakan untuk mendeklarasikan variabel dan memberikan nilai awal kepadanya.
 

Contoh :
Dim Harga, Jumlah As Single
Dim Kuantitas As Integer = 10
Dim Lanjutkan As Boolean = True
Dim Keterangan As String = "Visual Studio .NET"
 

Catatan :
Pada Visual Basic pemakaian variabel harus dideklarasikan terlebih dahulu, jika tidak anda akan mendapatkan kesalahan kompiler, karena default setting Explicit pada Visual Basic adalah Option Explicit On. Kemudian Jika anda tidak memberikan nilai awal pada suatu variabel pada dideklarasikan, maka nilai berikut akan diberikan sebagai nilai awal variabel tersebut :
• 0 untuk semua tipe data numerik (termasuk Byte).
• Binary 0 untuk Char.
• Nothing untuk semua tipe reference (termasuk Object, String, dan semua array).
• False untuk Boolean.
• 12:00 AM pada 1 Januari 1 untuk Date.
Sesuatu hal yang perlu anda perhatikan adalah daya tampung variabel berdasarkan tipe yang ditentukan, jika anda memasukan nilai diluar dari daya tampung variabel, suatu kesalahan overflow exception akan terjadi.

Read More

Dasar pertama dalam belajar pemrograman termasuk VB.Net ( "Hello World" )

Sebagaimana tradisi dari proses belajar pemrograman komputer adalah membuat sebuah program Hello World yang memiliki struktur yang paling sederhana sehingga kita dengan mudah dapat melihat struktur dasar program dari bahasa pemrograman tersebut.

Module Hello
Sub Main()
System.Console.WriteLine("Hello World !")
End Sub
End Module

Ketiklah program diatas dengan text editor (notepad pada Windows ataupun edit pada Dos Prompt), dan kemudian simpan dengan nama hello.vb (anda wajib menyimpannya dengan ekstension .vb). 

Proses Kompilasi

Agar program yang kita buat diatas dapat dijalankan oleh komputer, maka diperlukan suatu kompiler untuk menterjemahkan perintah-perintah yang telah kita buat menjadi instruksi yang dapat dikenali oleh sistem komputer. Kompiler Visual Basic dapat diperoleh dengan melakukan instalasi Microsoft .NET framework sdk v1.1. Sesaat setelah instalasi .NET framework, maka kompiler VB telah tersedia pada komputer anda, dan proses kompilasi dapat dilakukan dengan :

1. Mengatur path environment pada Command Prompt 

    path=%path%;c:\windows\microsoft.net\framework\v1.1.4322
2. Selanjutnya anda dapat mengkompilasi program anda dengan perintah :
    Vbc <nama file>.vb 

    Pada saat kompilasi, anda wajib menulis lengkap nama file dan ekstension 

Contoh :
  

vbc hello.vb
 Microsoft (R) Visual Basic .NET Compiler version 7.10.3052.4

 for Microsoft (R) .NET Framework version 1.1.4322.573
Copyright (C) Microsoft Corporation 1987-2002. All rights reserved.

Jika proses kompilasi tidak menampilkan adanya kesalahan, maka akan terbentuk suatu hello.exe yang dapat dijalankan langsung pada Command Prompt.

Sesuatu hal yang perlu anda pahami adalah file hello.exe hanya dapat dijalankan pada komputer yang sudah terinstalasi Microsoft .NET framework.
Kemudian suatu hal yang perlu anda ketahui adalah file hello.exe bukanlah berisi binari yang merupakan kode mesin, melainkan merupakan binari yang berisi Intermediate Language (IL) yang pada saat dijalankan akan dikompilasi menjadi bahasa mesin oleh kompiler Just In Time (JIT) yang terdapat pada Common Language Runtime (CLR) yang merupakan salah satu komponen dari .NET framework.

Read More

Cara Membuat Form Login Yang Aman (Secure From SQL Injection) VB6/VBNET

Secara singkat sql injection adalah menambahkan perintah sql query melalui input box (textbox, combobox, dll) dengan tujuan untuk memodifikasi sql query yang sudah ada atau menciptakan sql query baru. Biasanya orang yang baru belajar programming sering mengabaikan masalah security ini, contoh kasus:

Sintak/sql quer untuk Login biasanya seperti ini :

"SELECT USER_ID, PASSWORD FROM MS_USER WHERE USER_ID='" + Txt_User.Text + "' AND PASSWORD='" + Txt_Pass.Text + "'"

Nah jika user/operator menginputkan pada Txt_User dan Txt_Pass seperti ini : ' OR '1'='1
Maka setelah aplikasi/program Run, sintak/sql query tersebut akan berubah menjadi seperti ini :

"SELECT USER_ID, PASSWORD FROM MS_USER WHERE USER_ID='' OR '1'='1' AND PASSWORD='' OR '1'='1'"

Dan ini akan menghasilkan nilai TRUE, sehingga user (anonymous) akan dapat masuk sesuka hati tanpa harus tahu user id dan password-nya.

Ada beberapa solusi untuk mengatasi masalah ini, diantaranya adalah :

1. Menghilangkan (Replace) karakter kutip satu (') dengan karakter kosong, contoh :
   Txt_User.Text.Replace("'", "")
2. Memendekan MaxLength TextBox sesuai dengan field database, contoh jika di table field User_Id = Varchar(10), maka Txt_User pun harus MaxLenght=10 juga agar user tidak bebas/kepanjangan menginput sesuatu/apapun pada textbox tersebut.
3. Mengubah sintak/sqlquery menjadi seperti ini :

"SELECT USER_ID, PASSWORD FROM MS_USER WHERE USER_ID='" + Txt_User.Text.Replace("'", "") + "'"

'...sintak anda untuk mengecek keberadaan user, Jika User Ada Maka Cek Password, Contoh :

IF reader.Item("PASSWORD") = Txt_Pass.Text.Replace("'", "") Then

    '...sintak anda jika login SUKSES

Else

    '...sintak anda jika login GAGAL

End IF

3 cara diatas adalah sebagian dari banyak cara yang dapat anda lakukan untuk mencegah terjadinya sql injection dari tangan tangan yang jahil dan tidak bertanggung jawab. Semoga artikel saya ini bermanfat ntuk anda. Terimakasih.

 

Sumber : http://djiesoft.blogspot.com/

Read More

Cara Insert/Save Kutip Satu/Single Quote ( ' ) dan Validasi di VBNET

Salah satu test untuk mengetahui sebuah apliaksi database itu baik (bebas Error/Bugs) adalah dengan test input karaker kutip satu / single quote ('). Contoh saja di form master (contoh master barang), anda input nama barang misal barang xx' , atau barang'. terus save. Jika tidak error berarti aplikasi itu dapat dikatakan baik. Karena kebanyakan programmer sering melupakan hal single quote. Biasanya jika aplikasi itu tidak validasi single quote, akan muncul error :

Unclosed quotation mark after the character string '''. Incorrect syntax near '''.

Penjelasan detailnya seperti ini :

Contoh sintak Save anda seperti ini :

sql = "INSERT INTO M_BARANG (KD_BRG,NM_BRG) VALUES ('" + txt_kd.text + "','" + txt_nm.text + "')"

Kemudian Jika anda menginput nama barang dengan kutip satu (') contoh barang xx', maka sintak anda akan menjadi :

INSERT INTO M_BARANG (KD_BRG,NM_BRG) VALUES ('B001','barang xx'')

Nah ini akan error seperti diatas karena menjadi ada kutip satu yang tidak ada pasangannya, karena seharusnya sintak yang benar adalah :

INSERT INTO M_BARANG (KD_BRG,NM_BRG) VALUES ('B001','barang xx')

Lalu bagaimana caranya agar kutip satu dapat di insert ke database ?

caranya adalah dengan selalu menambahkan single quote jika ada value single quote, coba anda buka query analyzer sql:

Jika anda ingin menampikan data :

A'B

'AB'

AB'

AA''BB'

caranya ?

SELECT 'A''B'

SELECT '''AB'''

SELECT 'AB'''

SELECT 'AA''''BB'''

Hasilnya ?

Lalu bagaimana mem-validasi di VBNET nya ? banyak sekali.............i carannya.

1.Validasi di setiap textbox saat membuat string sql

Sql = "INSERT INTO M_BARANG (KD_BRG,NM_BRG) VALUES ('" + txt_kd.text.Replace("'", "''") + "','" + txt_nm.text.Replace("'", "''") + "')"

2.Validasi di setiap textbox saat event TextChanged atau LostFocus

    Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus

        TextBox1.Text = TextBox1.Text.Replace("'", "''")

    End Sub

3.Validasi saat tombol simpan (looping ke semua object di form)

        For Each obj As TextBox In Me.Controls 'Atau GroupBox1.Controls atau Panel1.Controls (sesuikan saja object container nya)

            If TypeOf obj Is TextBox Then

                obj.Text = obj.Text.Replace("'", "''")

            End If

        Next

Tambahan:
Hal ini juga salah satu cara untuk dapat mencegah dari SQL Injection yang sebelumnya saya bahas pada postingan Form Login.

Sumber : http://djiesoft.blogspot.com/

Read More

Koneksi PostgreSQL dengan VB.Net

Pada kesempatan kali ini aku akan coba membahas cara koneksi dari VB.net 2008 ke server database PostgreSQL. Sebelum memulai membahas, ada baiknya menjelaskan ketentuan awal.

• Server database PostgreSQLsudah terinstal

• Koneksi pada contoh program yang disediakan menggunakan server localhost ; port:5432

OK, mari kita lanjut ke pokok pembahasan.

Seperti halnya koneksi vb.net ke server database pada umumnya, koneksi ke server database PostgreSQL juga memerlukan sebuah konektor .net provider yang berguna untuk membantu dalam menjembatani antara program vb.net yang akan kita buat dengan server database. Setelah bertanya dengan om google, akhirnya jatuhlah pilihan terhadap Npsql (http://npgsql.projects.postgresql.org/). Konektor ini dikembangkan dengan menggunakan bahasa C# dan kompatibel penuh dengan database posgre 7.x dan versi diatasnya. Apabila hanya ingin tinggal pakai saja, maka Npsql dapat di unduh melalui link ini.

Setelah mendapatkan file .net provider Npsql, ada baiknya file tersebut di letakan di folder yang sama di mana file .exe dari program yang akan dibuat berada. Sebagai contoh, pada proses pembuatan aplikasi berbasis .net masih berstatus debug, oleh karena itu file .net provider Npsql dapat diletakan pada folder Debug.

Apabila dikemudian hari, status dari program yang dibuat ingin beralih ke Release, maka jangan lupa untuk menyertakan ke-4 file tersebut.

Sekarang kita mulai pengaturan di bagian VB.net 2008, setelah membuat project baru, maka tambahan referensi baru pada aplikasi tersebut.

Pilih bagian Browse dan arahkan ke folder dimana file-file dari Npsql.dll berada.

Kemudian, pada form yang akan digunakan, jangan lupa juga tambahankan perintah Imports Npsql.

Imports Npsql

Perihal urusan Connection String, aku menggunakan perintah sebagai berikut ini :

str1 = String.Format("Server={0};Port={1};User Id={2};Password={3};Database={4};", "localhost", "5432", "postgres", "postgres", "coba")

Connection String tersebut merupakan connection string yang digunakan jika pada sisi server sudah terdapat database. Jika pada sisi server belum ada database yang dituju, maka dapat menggunakan connection string berikut ini :

str2 = String.Format("Server={0};Port={1};User Id={2};Password={3};", "localhost", "5432", "postgres", "postgres")

Sedangkan untuk urusan koneksi ke database, dapat menggunakan sub rutin berikut ini :

'digunakan setelah database dibuat
Public Function KonekFB1() As Boolean
    If conn.State = ConnectionState.Open Then
        conn.Close()
    End If
    conn.ConnectionString = str1
    Try
        conn.Open()
        cmd.Connection = conn
        Return True
    Catch ex As Exception
        conn.Close()
        Return False
    End Try
End Function)

Setelah terkoneksi, maka untuk melakukan query dan menampilkan data ke dalam datagrid dapat menggunakan sub rutin berikut ini :

Public Function ViewTabel(ByVal namadatatable As String, ByVal namaDG As DataGridView, ByVal query As String) As Boolean
    If conn.State = ConnectionState.Open Then
        conn.Close()
    End If
    conn.ConnectionString = str1
    Try
        conn.Open()
        cmd.Connection = conn
        cmd.CommandText = query
        dspg = New DataSet("namadataset")
        dapg = New NpgsqlDataAdapter(cmd)
        dapg.Fill(dspg, namadatatable)
        namaDG.DataSource = dspg.Tables(namadatatable)
        namaDG.AutoGenerateColumns = True
        conn.Close()
    Catch ex As Exception
        conn.Close()
    End Try
End Function

Kemudian lakukan pemanggilan untuk sub-rutin KonekFB1() dan ViewTabel()

'melakukan koneksi dengan postgre server
KonekFB1()

'melakukan query table dan menampilkan ke dalam datagrid
ViewTabel("coba1", dg, "select * from " & Chr(34) & "TABLE1" & Chr(34))

Rutin untuk pembuatan database secara runtime adalah sebagai berikut ini :

Private Sub cmd_CreateDB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_CreateDB.Click
    If CmdSQL2("CREATE DATABASE " & Chr(34) & "coba" & Chr(34) & " With Owner = postgres ENCODING = 'UTF8' TABLESPACE = pg_default CONNECTION LIMIT = -1") = False Then MsgBox("Periksa kembali nama database, pastikan nama database belum terdaftar di server")
End Sub

Rutin untuk pembuatan table secara runtime adalah sebagai berikut ini :

Private Sub cmd_CreateTable_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_CreateTable.Click
    If CmdSQL1(" CREATE TABLE " & Chr(34) & "TABLE1" & Chr(34) & "(" & _
                 Chr(34) & "Column1" & Chr(34) & " integer NOT NULL," & _
                 Chr(34) & "Column2" & Chr(34) & " character(20)," & _
                 "CONSTRAINT " & Chr(34) & "LOGGER_pkey" & Chr(34) & " PRIMARY KEY (" & Chr(34) & "Column1" & Chr(34) & " ));") = False Then MsgBox("Periksa kembali nama tabel, pastikan nama tabel belum terdaftar di database")
End Sub

Rutin untuk pengisian data dummy adalah sebagai berikut ini :

Private Sub cmd_CreateDataDummy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_CreateDataDummy.Click
    Dim baris1 As Integer = 0
    Dim baris2 As String = Nothing
    For i = 0 To 99
        baris1 += 1
        baris2 = "Baris" & baris1
        If CmdSQL1(" INSERT INTO " & Chr(34) & "TABLE1" & Chr(34) & " VALUES (" & baris1 & ",'" & baris2 & "')") = False Then
            MsgBox("Periksa kembali nama tabel, pastikan nama tabel belum terdaftar di database")
            Exit For
        End If
    Next
    ViewTabel("coba1", dg, "select * from " & Chr(34) & "TABLE1" & Chr(34))
End Sub

Berikut ini tampilan dari program yang telah tersebut.

Adapun data tersebut dapat dilihat pada program pgadmin (GUI untuk database PostgreSQL)

Read More

Membuat Form Pencarian Menggunakan Visual Basic 6.0

 

Buat Form Pencarian Diatas Menggunakan Visual Basic 6.0 saya akan share kepada kalian semua. Kode Script Programnya sebagai berikut:

Private Sub Cari(kodeabarang)_Click()

If Option1.Value = True Then
    Data1.RecordSource = "SELECT * FROM BARANG WHERE KODE_BRG = '" & Text1 & "'"
    Data1.Refresh
    If Data1.Recordset.EOF Then
    MsgBox "Data Barang belum ada" + Chr(13) + "Coba kode yang lain", vbCritical, "Informasi"
    Data1.RecordSource = ""
    Text1.SetFocus
    End If
ElseIf Option2.Value = True Then
    Data1.RecordSource = "SELECT * FROM PELANGGAN WHERE KODE_PLG = '" & Text1 & "'"
    Data1.Refresh
    If Data1.Recordset.EOF Then
    MsgBox "Data Pelanggan belum ada" + Chr(13) + "Coba kode yang lain", vbCritical, "Informasi"
    Data1.RecordSource = ""
    Text1.SetFocus
    End If
Else: Option3.Value = True
    Data1.RecordSource = "SELECT * FROM Supplier WHERE KODE_SUP = '" & Text1 & "'"
    Data1.Refresh
    If Data1.Recordset.EOF Then
    MsgBox "Data Supplier belum ada" + Chr(13) + "Coba kode yang lain", vbCritical, "Informasi"
    Data1.RecordSource = ""
    Text1.SetFocus
    End If
End If
End Sub

Private Sub Cari(nama barang)_Click()
If Option1.Value = True Then
    Data1.RecordSource = "SELECT * FROM BARANG WHERE NAMA_BRG = '" & Text2 & "'"
    Data1.Refresh
    If Data1.Recordset.EOF Then
    MsgBox "Data Barang belum ada" + Chr(13) + "Coba kode yang lain", vbCritical, "Informasi"
    Data1.RecordSource = ""
    Text1.SetFocus
    End If
ElseIf Option2.Value = True Then
    Data1.RecordSource = "SELECT * FROM PELANGGAN WHERE NAMA_PLG = '" & Text2 & "'"
    Data1.Refresh
    If Data1.Recordset.EOF Then
    MsgBox "Data Pelanggan belum ada" + Chr(13) + "Coba kode yang lain", vbCritical, "Informasi"
    Data1.RecordSource = ""
    Text1.SetFocus
    End If
Else: Option3.Value = True
    Data1.RecordSource = "SELECT * FROM Supplier WHERE NAMA_SUP = '" & Text2 & "'"
    Data1.Refresh
    If Data1.Recordset.EOF Then
    MsgBox "Data Supplier belum ada" + Chr(13) + "Coba kode yang lain", vbCritical, "Informasi"
    Data1.RecordSource = ""
    Text1.SetFocus
    End If
End If
End Sub

Private Sub TampilSemua_Click()
If Option1.Value = True Then
    Data1.RecordSource = "SELECT * FROM BARANG"
    Data1.Refresh
ElseIf Option2.Value = True Then
    Data1.RecordSource = "SELECT * FROM PELANGGAN"
    Data1.Refresh
Else: Option3.Value = True
    Data1.RecordSource = "SELECT * FROM SUPPLIER"
    Data1.Refresh
End If

End Sub

Private Sub Command4_Click()
Unload Me
End Sub

Private Sub DBGrid1_Click()

End Sub

Private Sub Form_Load() ----- Pemanggilan database -------
Data1.DatabaseName = App.Path & "\victory.MDB"
End Sub

Private Sub Option1_Click()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Option2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Option3_Click()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Option4_Click()
Text2.Enabled = False
Command2.Enabled = False
Text1.Enabled = True
Text1.SetFocus
Command1.Enabled = True
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Option5_Click()
Text2.Enabled = True
Command2.Enabled = True
Text1.Enabled = False
Text2.SetFocus
Command1.Enabled = False
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
    If Text1 = "" Then
        Text1.SetFocus
    Else
        Command1.SetFocus
    End If
End If
End Sub

Private Sub text2_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
    If Text2 = "" Then
        Text2.SetFocus
    Else
        Command2.SetFocus
    End If
End If
End Sub

Read More