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

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.
 
 

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





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



Kirim email ke