Sekarang saya akan memberitahukan tentang bagaimana sich cara menyambungkan vb ke acces.
Itu salah satu program yang sangat sederhana yang saya buat tentang Laporan Data Siswa.
pertama, sebelum anda buat program vb yang nantinya akan masuk ke data base ms. acces jangan lupa untuk membuat data basenya terlebih dahulu.
Bagaimana caranya pastinya dah bisa dunk :P
Then kita masuk ke codenya, lets GOOOO!!!:

1. Code untuk commad SIMPAN
'Ini code yang dibutuhin biar bisa masuk di database jangan lupa pakai tanda titik (.) soalnya udah setingan dari sononya :P'
with data1.recordset
.add new
.fields!No = text_no.text
.fields!Nama = text_nama.text
.fields!Alamat = text_alamt.text
.update
end with
'end with diatas merupakan sebagai pernutup code untuk masukin data didatabase' 'code dibawah ini merupakan code untuk menghilangkan data yang ada di txt_no,nama,alamat supaya mempermudah untuk memasukkan data lainnnya'
txt_no.text = " "
txt_nama.text = " "
txt_alamat.text = " "
data1.refresh
' data1.refresh berfungsi untuk menyegarkan data base setelah dimasukin data'
End sub

2. Code untuk command BATAL
Private sub cmd_batal_click()
txt_no.text = " "
txt_nama.text = " "
txt_alamat.text = " "
End sub

3. Code untuk command HAPUS
Private sub cmd_hapus_click()
if data1.recordset.BOF or data1.EOF then exit sub
data1.recordset.delete
data1.refresh
End sub

4. Code untuk command EDIT
Private sub cmd_EDIT_click()
'Code edit hampir sama dengan code untuk simpan yang menjadi perbedaan kalau di cmd _simpan itu pakai .addnew and kalau di cmd_edit pakai .edit'
'code ini fungsinya, jika txt_nama, no, dan alamat tidak diisi maka akan tampil pesan box yang digunakan sebagai pengingat kalau anda lupa mengisi pada text tersebut'
if txt_nomor.text = " " then msgbox "Anda lupa mengisi nomor" :exit sub
if txt_nama.text = " " then msgbox "Anda lupa mengisi nama" :exit sub
if txt_alamat.text = " " then msgbox "Anda lupa mengisi alamat" :exit sub
'Ini code yang dibutuhin biar bisa masuk di database jangan lupa pakai tanda titik (.) soalnya udah setingan dari sononya :P'
with data1.recordset
.edit
.fields!No = text_no.text
.fields!Nama = text_nama.text
.fields!Alamat = text_alamt.text
.update
end with
'end with diatas merupakan sebagai pernutup code untuk masukin data didatabase' 'code dibawah ini merupakan code untuk menghilangkan data yang ada di txt_no,nama,alamat supaya mempermudah untuk memasukkan data lainnnya'
txt_no.text = " "
txt_nama.text = " "
txt_alamat.text = " "
data1.refresh
' data1.refresh berfungsi untuk menyegarkan data base setelah dimasukin data'
End sub

5. Code untuk command EXIT
private sub cmd_exit_click()
'anda bisa pkai code unload me atau exit'
unload me
end sub

itulah code yang saya buat yang sangat sederhana, kalau anda tanya bagaimana code untuk pencarian, wihh saya lagi cari, kalau anda punya code buat pencarian data di acces, share aja bro..

Baca Selengkapnya Tentang “Menyambungkan VB ke MS. Acces”  »»

Kondisi pernyataan IF - Then yang pada pascal dibedakan menjadi 2 yaitu sebagai berikut :
1. IF kondisi Then pernyataan

IF kondisi then pernyataan

2. IF kondisi Then pernyataan 1 Else pernyataan2

IF kondisi Then pernyataan 1 Else pernyataan2

a. Penggunaaan Pernyataan (IF kondisi Then pernyataan)
Kondisi ini hanya akan dijalankan kalau kondisinya bernilai True saja.
Sekarang kita memasuki contoh :
Saya memilih penggunaan if - then di program nilai apabila nilai > 60 maka LULUS.
program contoh;
uses crt;
var
nilai : integer;
begin
clrscr;
write('Masukkan Nilai Anda:');
readln(nilai);
if nilai>60 then
writeln('LULUS');
readln;
End.

b. Penggunaan if then else

IF kondisi Then pernyataan 1 Else pernyataan2

Program :
program contoh 2;
uses crt;
var
nilai:integer;
begin
clrscr;
write('Ketikkan Nilai anda:");
readln(nilai);
if nilai>60 then
writeln('LULUS');
Else
writeln('Gagal');
end.

Baca Selengkapnya Tentang “Pernyataan IF - THEN Pada Pascal”  »»

Sekarang saya membuat salah satu program yang menggunakan kondisi if - then...program sederhana yang saya buat adalah program Data Pembayaran SPP Siswa
kondisi if then saya pakai pada pemilihan kelas, selain itu semuanya hanya pakai label command bottom, frame, dan juga textbox..
Sebelumnya edit dulu name di text box ma command bottomnya, dah ngertikan...
Langsung saja pada Codeng programnya :

1. Code untuk Form Data :
Private Sub cmd_exit_Click()
End
End Sub
######################################
Private Sub cmd_view_Click()
Form_display.Show
Form_display.txt_nama = Form_data.txt_nama
Form_display.txt_noinduk = Form_data.txt_no
If Form_data.opt_1.Value = True Then
Form_display.txt_kelas = "1 TI"
End If
If Form_data.opt_2.Value = True Then
Form_display.txt_kelas = "2 TI"
End If
If Form_data.opt_3.Value = True Then
Form_display.txt_kelas = "3 TI"
End If
Form_display.txt_jumlah = " Rp " & Form_data.txt_uang
End Sub

2. Code untuk form Display
Private Sub cmd_back_Click()
Form_data.Show
Unload Me
End Sub
######################################
Private Sub cmd_exit_Click()
Unload Me
End Sub

Itulah codengnya semoga bermanfaat . . . kalau mau dundut tuch program klik ajah diSINI!!
Buat anda yang punya code yang lebih simpel dari pada punyaku, jagan lupa commentYa...
keep visit :)

Baca Selengkapnya Tentang “Penggunaan kondisi IF - THEN di VB”  »»