Agus Richie Blog

Dim RsTempAFI As New ADODB.Recordset Public kodex, namax As String Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 'saat ditekan tombol esc maka akan keluar dari form If KeyCode = vbKeyEscape Then Unload Me End Sub

Dim RsBarang As New ADODB.Recordset Private Sub CmdAdd_Click() 'saat menekan tombol add 'txtkode diisi kode jenis barang otomatis TxtKode = Trim(KodeAuto) 'menghapus semua isian pada field TxtNama = "" TxtAktif = "Y" End Sub Private Sub CmdCancel_Click() 'saat ditekan tombol cancel maka '1. ambil data dari db -> grid refreshData '2. membersihkan semua field isian bersih TxtKode.SetFocus End Sub

Public dbcon As New ADODB.Connection Public SQL As String Public RsFind As New ADODB.Recordset Public RsTmp As New ADODB.Recordset Sub bukaDatabase() With dbconn .ConnectionString = "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Option=131072;Stmt=;Database=mysql;" & _ " User=root;Password=6664691;" .CursorLocation = adUseClient .Open End With End Sub

Table jenis barang berisi field sebagai berikut :

List table (MySQL) Table jenis barang.  Module Module Utama List Flowchart Flowchart jenis barang    Flowchart cari jenis barang Design Design jenis barang Design cari jenis barang   Coding Coding jenis barang Coding cari jenis barang