rumus form load data pegawai vb.6.0 enterprise

daripada cape-cape menulis script vb mending copy paste di dini di www.rex-venom.blogspot.com

silahkan anda copas seluruh script vb data pegawai di bawah ini:

variabel global untuk koneksi database dan tabel

Dim DB As ADODB.Connection

Dim rsPEGAWAI As ADODB.Recordset

form load:

Private Sub Form_Load()

'koneksi data base

Set DB = New ADODB.Connection

DB.Open "PROVIDER=Microsoft.JET.OLEDB.4.0;Data Source=D:\barang.mdb"

'koneksitabel

Set rsPEGAWAI = New ADODB.Recordset

rsPEGAWAI.Open "SELECT * FROM PEGAWAI order by kdpeg", DB, 3, 2

End Sub

laporan dengan crpt 

Private Sub cmdlaporan_Click()

crpt.DataFiles(0) = "D:\DATA BARANG\Rian\databarang.mdb "

crpt.ReportFilesName = "D:\DATA BARANG\barang.rpt "

crpt.Destination = crptToWindow

crpt.WindowState = crptMaximized

crpt.Action = 1

End Sub

simpan

Private Sub CMDSIMPAN_Click()

Dim Conf

Conf = MsgBox("simpan data barang??", vbQuestion + vbYesNo)

If Conf = vbYes Then

'simpan data

DB.Execute "insert into databarangvalues('" & txtkdbarang & "','" & txtnmbarang & "','" & txtjnsbarang & "','" & txthrgbarang & "','" & 

txtjumlahbarang & "')"

End If

Bersih

End Sub

hapus

Private Sub CMDHAPUS_Click()

'Hpus data

pesan = InputBox("Masukan kode barang")

If pesan <> " " Then

Dim Conf

Conf = MsgBox("Yakin Sia Ek Ngahapus Data??", vbQuestion + vbYesNo)

If Conf = vbYes Then

DB.Execute "delete * From DataBarang where kode barang="

'"&pesan&"'

MsgBox ("Data sudah hilang")

End If

End If

End Sub

bersih procedur

Private Sub Bersih()

txtkdbarang = " "

txtnmbarang = " "

txtjnsbarang = " "

txthrgbarang = " "

txtjumlahbarang = " "

End Sub

Share this post