----- Original Message -----
Sent: Thursday, March 16, 2006 10:48
AM
Subject: Re: [Programmer-VB] VBA 2 VB6
(Hunno Fingerscan)
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.
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
YAHOO! GROUPS LINKS
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
YAHOO! GROUPS LINKS
