Form Filter Data Export to Excel

Form Filter Data Export to Excel

untuk export ke excel : project -->references -->microsoft excel 12

Dim xls As New Excel.Application
Dim baris As Integer
Dim rssql As New ADODB.Recordset

Private Sub cmbtabel_Click()
    Me.cmbkriteria.Clear
    Select Case Me.cmbtabel.Text
        Case Is = "Barang"
            Me.cmbkriteria.AddItem "Jenis"
            Me.cmbkriteria.AddItem "Nama Barang"
        Case Is = "Operator"
            Me.cmbkriteria.AddItem "Kode"
            Me.cmbkriteria.AddItem "Nama"
            Me.cmbkriteria.AddItem "Kota"
        Case Is = "Supplier"
            Me.cmbkriteria.AddItem "Kode"
            Me.cmbkriteria.AddItem "Nama"
    End Select
End Sub

Read more »

Form Data Operator

&& Form Data Operator Metode Adodb &&

&& Modul &&

Public koneksi As New ADODB.Connection

Public rsoperator As New ADODB.Recordset

Sub buka_koneksi()

    koneksi.CursorLocation = adUseClient

    koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _

    App.Path & "\Access\data.mdb"

End Sub

&& Koding &&

Dim EDIT As Boolean     'edit variabel bebas, hanya ada 2 pilihan true & false

Read more »

Form Hardware

& Form Hardware Metode Data Environment &

& Data Environment &

‘Pada data environment double klik supaya tidak selalu ganti folder ketika buka vb

Private Sub DataEnvironment_Initialize()

    DataEnvironment1.Connection1.Open App.Path & "\Access\data.mdb"

End Sub

& Sql Statement &

‘Pada sql statement jika ingin diurutkan menurut kdhard

select * from hardware order by kdhard

& Koding &

Dim tambah As Boolean

Read more »

Form Transaksi Penjualan

&& Form Transaksi Penjualan Metode Adodb &&

&& Modul &&

Public koneksi As New ADODB.Connection

Public rsoperator As New ADODB.Recordset

Public rstransaksi As New ADODB.Recordset

Public rsdetail As New ADODB.Recordset

Public rsbarang As New ADODB.Recordset

Sub buka_koneksi()

    koneksi.CursorLocation = adUseClient

    koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _

    App.Path & "\Access\data.mdb"

End Sub

Function nilaiangka(nteks As String)

    nilaiangka = Format(nteks, "##0")

End Function

&& Koding &&

Dim lvbarang As ListItem

Dim lvopr As ListItem

Dim sqlbarang As New ADODB.Recordset

Read more »