Re: [Programmer-VB] TextBox Password <-----cara bikin password gmna?

Sun, 23 Oct 2005 17:59:17 -0700

Maaf kemarin kurang jelas penjelasannya, jadi pertama untuk mencari namauser ke database saya buka recordset dengan ADODB connection. query-nya saya simpan di variabel s
 
jadi di sub tersebut deklarasi variabel adalah :
 
Dim s As String, RS As ADODB.Recordset
 
Set Rs = New ADODB.Recordset
 
s = "SELECT NamaUser,Password From TableUser WHERE TableUser.NamaUser = '" & ltrim(txtNamaUser.text) & "'
Rs.Open s, OpenCon, adOpenDynamic, adLockOptimistic
 
Kemudian untuk OpenCon adalah variabel untuk buka koneksi ke ADODB variabelnya saya simpan di module (buat module baru, mis. namanya adalah modmain)
 
'==================== Ini ditaruh di module modmain
Sub InitializeDatabase()
    'Tentukan path database
        mDataBasePath = App.Path & "\" & password.mdb
        'Pastikan database ada
        If Dir(mDataBasePath) = "" Then
            MsgBox "Database file not found", vbCritical, Error
            End
        End If
End Sub

Function OpenCon() As ADODB.Connection
    Dim con As ADODB.Connection
    'Membuka koneksi ke database lewat ADODB
    Set OpenCon = New ADODB.Connection
    OpenCon.Open getcon
   
End Function
   
   
Function getcon() As String
    'connection string dari koneksi ADODB
    getcon = "Provider=Microsoft.Jet.OLEDB.4.0; " _
            & " Data Source= " & mDataBasePath & ";Persist Security Info=False"
End Function
 
 
Mengenai penggunaan adopendynamic & adLockOptimistic bisa dibaca lebih lanjut di reference MSDN mengenai ADO.
 
Mudah2an membantu
CMIIW


larry marzan <[EMAIL PROTECTED]> wrote:
Nanya lagi nih..,
sesuai yg dgn bantuan temen kita kennis kendrasti, saya dapat 2 pertanyaan
 
1. pada line 1 (s = "Select ....dst.)
pertanyaannya, s itu apa yah?
masalahnya waktu saya run program trus klik login(comm.button) langsung keluar message: variable not found.
Untuk kode tsb saya masukkan di dalam command button (dibuat untuk login).
2. Apa kegunaan Rs.Open s, OpenCon, adOpenDynamic, adLockOptimistic?
Makasih sblmnya
 
Salam,
Joen
 
Yahoo! FareChase - Search multiple travel sites in one click.

Yahoo! FareChase - Search multiple travel sites in one click.

Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]



SPONSORED LINKS
Programmer Indonesia Basic programming language
Computer programming languages Programming languages Java programming language

YAHOO! GROUPS LINKS



Kirim email ke