Just another WordPress.com site

Posts tagged ‘database program’

Konek Database Access VB

Bagaimana cara menghubungkan database access ke Visual Basic, itulah pertanyaan dibenak saya ketika baru pertama kali belajar Visual Basic. Bagi teman-teman yang baru belajar VB dibawah ini adalah cara menghubungkan/mengkoneksikan Database Access ke VB.

Pertama yang harus disiapkan adalah Database yang akan kita gunakan. Lalu buka buat project baru pada Visual Basic Jika sudah ikuti langkah sebagai berikut.

1  Klik menu project > Add Modul

2. Klik Open

3. Lalu ketik koding berikut ini, kemudian Simpan  Module tersebut.

Public Conn As New ADODB.Connection
Public Rs As ADODB.REcordset

Public sub BukaDb ( )

Set Conn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Conn.Open “PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source”   &
App.Path & “\Databasekamu.mdb”
end sub

Pada koding diatas, pembacaan database menggunkaan Path String tujuannya adalah jika folder tempat database berada di-copy atau diindahkan kemposisi lain, maka database tersebut tetap dapat dibaca.

koding selanjutnya

Private Sub Form_Load ( )

Call BukaDb

End Sub

Selesai…

Ket : Buka menu Project lalu pilih References beri check list pada Microsoft ActiveX Data Object 2.7 Library

Sekian Semoga Bermanfaat…………!!!

Membuat Auto Number Di VB 6

Program ini akan memberi kemudahan pada kita saat mengentry kode atau nomer atau string lainnya ketika akan ditambahkan.Karena Kode/Nomor akan muncul denagn urut secara otomatis.

Contoh, struktur pada kode barang adalah SN-001 , SN-002, SN-003 dan seterusnya.Dengan program ini tidak akan direpotkan dengan memperkirakan kode selanjutnya dan yang lebih penting mengurangi tingkat kesalahan.

yang pertama yang harus dilakukan adalah membuat database program dahulu terserah mau menggunakan access atau yang lainnya juga boleh.Penulis disini menggunkan database access, karena kita hanya akan membuat AutoNumber saja maka  rancanglah form terserah anda yang penting ada textboxtnya untuk menampung AuoNumber.Penulis disini hanya menggunakan 1 button dan 1 textboxt saja.

Baiklah jika sudah salin koding dibawah ini.

Private Sub AutoNumber ()

Call BukaDb

RsBarang.Open (“select * from Barang where KdBarang In (Select Max(KdBarang) From Barang) Order By KdBarang Desc”), Conn
RsBarang.Requery
Dim Urutan as String * 6
Dim Hitung as Long
With RsBarang
If .EOF Then
Urutan = “SN-” + “001”
TextBoxt1.Text= Urutan
Else
Hitung = Right (!KdBarang, 3) + 1
Urutan = “SN-” + Right  (“000” & Hitung, 3)
End If
TextBoxt1.Text= Urutan
End With

End Sub

Pada Command Input masukan koding dibaah ini

Call AutoNumber

Selesai…

Jika anda malas menyalinya silahkan download sourecode disini.

%d blogger menyukai ini: