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

Purwedi Kurniawan Wed, 15 Mar 2006 19:49:03 -0800

pada dasarnya sih vba di msaccess sama saja dg vb6 mas, coba liat bagian yg pake '#

DoCmd.OpenForm stDocName, , , stLinkCriteria

'# buka dan tampilkan frmReportUser di vb6 sama dg frmReportUser.Show

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

'# buat object baru HFPComlib.serialcontrol dg nama fp4000, di vb6 sama saja, tapi jangan lupa add reference dulu ke NFPCOMLib lewat menu projects - references

'# cari data TimerInterval yg disimpan di tabel tblSysParam dan simpan ke variable TimerInterval, CurrentDb bisa diganti dg ADODB.Connection object, sedangkan recordsetnya sama dg ADODB.Recordset object (ms access menggunakan ADODB secara default). coba liat referensi ADO u. lebih detail mengenai cara koneksi dan query ke database. jangan lupa add reference dulu ke Microsoft Activex Data Object 2.x Library

'# open form frmLogin, sama seperti pertanyaan 1

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

'# sama dg jawaban sebelumnya, cuma query ke database, contoh sederhana di vb6

dim cn as adodb.connection, myrst as adodb.recordset

set cn = new adodb.connection

cn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Data.mdb;Persist Security Info=False"

set rs = new adodb.recordset

SqlStr = "SElect * from UserInfo where nFingerPrintID=" & FPID
rs.open sqlstr,cn,adOpenDynamic ,adLockOptimistic

semoga bisa dimengerti :)

best regards

[wwn]

On 3/16/06, Armansyah <[EMAIL PROTECTED] > wrote:

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.

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.

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

Kirim email ke