[Programmer-VB] VBA 2 VB6 (Hunno Fingerscan)

Armansyah Wed, 15 Mar 2006 18:18:18 -0800

Maaf. Kawan-kawan semua, saat ini saya sedang mencoba mengembangkan aplikasi dari sistem Absensi Fingerscan dari mesin Hunno 4500 yang menggunakan Microsoft Access (VBA) untuk bisa dibuatkan interfacenya dengan Visual Basic 6 sehingga bisa saya akumulasikan data yang ada didatabase fingerscan itu dengan database penggajian (yang juga masih dalam format Microsoft Access).

Bahwa saya adalah pemula di VB6 ... jadi maaf jika dirasa pertanyaan saya nantinya kurang berbobot ...mudah-mudahan masih ada yang berkenan membantu ...

pertama ... apakah VB6 mengenal perintah DoCmd seperti yang ada pada kode dibawah ini ?

Private Sub cmdReportUser_Click()
On Error GoTo Err_cmdReportUser_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmReportUser"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_cmdReportUser_Click:
Exit Sub

Err_cmdReportUser_Click:
    MsgBox Err.Description
    Resume Exit_cmdReportUser_Click

End Sub

Kedua ... bagaimana cara saya merubah kode berikut kedalam formatnya VB ...atau ini sudah bisa langsung saya copy paste begitu saja dalam code form VB ?

(1)

Private Sub Form_Load()
    Dim myrst As Recordset

    Set fp4000 = New HFPCOMLib.SerialControl
    Set myrst = CurrentDb.OpenRecordset("tblSysParam", dbOpenDynaset, dbReadOnly)

    myrst.FindFirst "Setting = 'AutoDownloadInterval'"
    Me.TimerInterval = CLng(myrst![Value])
    Debug.Print "Timer Interval : " & Me.TimerInterval
    myrst.Close
    DoCmd.OpenForm "frmLogin", acNormal, , , , acDialog
End Sub

(2)

Public fp4000 As HFPCOMLib.SerialControl
Public myDB As Database
....
....
Function RegisterUser(TerminalID As Integer, FPID As Long) As Boolean

    Dim MinutiaeDB() As Byte
    Dim Minutiae(2, 255) As Byte
    Dim bRes As Boolean

    Dim FPdat0(255) As Byte
    Dim FPdat1(255) As Byte
    Dim FPdat2(255) As Byte

    Dim idxSel As Variant
    Dim idxSelU As Variant
    Dim SqlStr As String
    Dim myrst As Recordset
    Dim MyMemo As Variant
    Dim MySplit() As String
    Dim FPidx As Integer

            SqlStr = "SElect * from UserInfo where nFingerPrintID=" & FPID
            Set myrst = CurrentDb.OpenRecordset(SqlStr)

Pada kode yang terakhir diatas, ada sintaksis CurrentDb ... bukankah maksudnya merujuk pada database itu sendiri ...lalu bagaimana kodenya jika saya akan merujuknya dari form Visual Basic ...

Demikian saja ... atas perhatian dan bantuan anda saya ucapkan terimakasih.

Wassalam.

Armansyah
http://armansyah.swaramuslim.net

Wahana Programmer Groups Links <*> Untuk mengunjungi sponsor milis ini, klik link berikut: http://wahanaprogrammer.net <*> Untuk menghubungi owner milis ini, kirim email ke: [EMAIL PROTECTED] <*> Konsultasi pemrogramman bisa chat disini: Yahoo! Messenger: wahanaprogrammer

SPONSORED LINKS

`Programmer`	`Indonesia`	`Basic programming language`
`Computer programming languages`	`Programming languages`	`Java programming language`

YAHOO! GROUPS LINKS

Visit your group "Programmer-VB" on the web.
To unsubscribe from this group, send an email to: [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.

[Programmer-VB] VBA 2 VB6 (Hunno Fingerscan)

Kirim email ke