MEMBUAT INPUT DATA DAN SAVE DATA DARI VISUAL BASIC 6.0

 

Selamat
pagi, Sahabat. Langsung saja memulai tips dan trik dasar mengenai input data di
visual basic 6.0, dengan menggunakan  DBMS (Database Management System) MICROSOFT OFFICE ACCESS 2007. Baiklah langsung
saja Step by step pembuatan database.

Langkah
pertama sahabat buka Ms. Access 2007,
kemudian buat database dengan (nama database = db1), ( Tabel nama : Tabelsiswa
) hingga seperti ini .

Langkah ke dua buka Microsoft Visual Basic 6.0.

Kemudian Click.

-
Pilih Standart EXE

- Pilih OPEN

Tekan
pada keyboard untuk membuka Tabel Components.

-   
Pilih
Controls

-      
Pilih
Microsoft ADO DATA control 6.0 (OLEDB)

-         
Pilih
Microsoft Datagrid Control 6.0 (OLEDB)

-         
Kemudian
ok

Hasil Selected Items Only

komponen	Name Default	Properties
Label	Label1	Caption = nama
	Label2	Caption = alamat
DataGrid1	DataGrid1	Name =  DataGrid1
Adodc1	Adodc1	Caption =  Adodc1
Command1	Command1	Name = CMD_INPUT
		Caption = &INPUT
Command2	Command2	Name = CMD_SAVE
		Caption = &SAVE

Sehingga
Seperti Gambar Dibawah ini.

Kemudian masuk Tahap Design.

Buatlah form menarik sesuai dengan keinginan mu dan
kreasimu seperti hasil di bawah ini.

Setelah
proses DESIGN selesai,  kemudian masuk kedalam
tahap CODING atau yang bisa di sebut SCRIPT.

Langkah
untuk CODING awal ialah koneksi

Dari
FORM vb 6.0 ke sebuah DATABASE, yaitu CODING MODULE :

Public
koneksi As New ADODB.Connection

Sub bukadb()

Set koneksi = New ADODB.Connection

koneksi = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=" & App.Path & "\db1.mdb"

End
Sub

Setelah module,
masukan Coding ke dalam form dengan cara mengClick pada bagian Form.

'--------koneksi siswa------

Dim
conn As New ADODB.Connection

Dim rssiswa As New ADODB.Recordset

Private Sub aktif()

    txtnama.Enabled = True

   
txtalamat.Enabled = True

End Sub

Private Sub nonaktif()

    txtnama.Enabled = False

txtalamat.Enabled = False

End Sub

Private Sub kosong()

    txtnama = ""

    txtalamat
= ""

End Sub

Private Sub tampildata()

    Set rs = New ADODB.Recordset

        mysql = "select*from tbsiswa"

        conn.Execute (mysql)

        Adodc1.RecordSource = mysql

    Set DataGrid1.DataSource = Adodc1

        Adodc1.Refresh

DataGrid1.Columns(0).Width
= 2000

DataGrid1.Columns(1).Width
= 4000

End Sub

Private Sub Form_Load()

 Call bukadb

        Adodc1.ConnectionString = koneksi

        conn.Open koneksi

    Call tampildata

    Call nonaktif

End Sub

Private Sub CMD_INPUT_Click()

    Call aktif

    Call kosong

        txtnama.SetFocus

            CMD_INPUT.Enabled = False

CMD_SAVE.Enabled = True

End Sub

Private Sub CMD_SAVE_Click()

  '---SIMPAN DATA---

    If txtnama.Enabled = True Then

    pesan = MsgBox("Data Mau
Disimpan?", 4 + 32, "pesan")

        If pesan = vbYes Then

            mysql = "Insert into tbsiswa
values('" & txtnama & "','" & txtalamat &
"')"

             conn.Execute (mysql)

    '---SIMPAN DATA---

             Call tampildata

             Call kosong

    End If

                CMD_INPUT.Enabled = True

                CMD_SAVE.Enabled = False

   
End If

End Sub

Setelah Coding Dimasukan Semua Selesai.
Tinggal jalan kan Kemudian Input kan data dan simpan data, Apabila data
tersebut dapat terinput dan tersimpan, Ada satu kelemahan yaitu ketika Mnyimpan
data Doubel dengan nama yang sama Terjadilah error !!

Penyebabnya Ada di primary key.

 Penyelesaian.

Primary Key di gunakan untuk Mencegah data
Doubel, Maka dari itu Harus menggunakan Coding Validasi.

Semoga Bermanfaat.