protek dari Accessnya ma passwordnya aja... trus kalo mo
cepat dari odbc propertinya pilih database trus
passwordnya... saya dah lupa dulu pernah buat
On Mon, 11 Apr 2005 00:22:23 -0700 (PDT)
poniran itperson <[EMAIL PROTECTED]> wrote:
>
>
> Yth. Rekan-rekan programmer
>
> Saya buat form Master departemen yang sudah running
>dengan coding form loadnya sbb :
>
> Private Sub Form_Load()
>
> Set cn = New ADODB.Connection
>
> cn.Provider = "microsoft.jet.oledb.4.0"
>
> cn.CursorLocation = adUseClient
>
> cn.Open App.Path & "\DBASSETIT.MDB"
>
>
>
>
>
> Set rs = New ADODB.Recordset
>
> rs.Open "select * from tbldept", cn, adOpenDynamic,
>adLockOptimistic
>
> Set DataGrid1.DataSource = rs
>
> DataGrid1.ReBind
>
> dg1
>
>
>
> If rs.RecordCount = 0 Then
>
> Call KondisiRecordKosong
>
> Else
>
> rs.MoveFirst
>
> Call TampilkanData
>
> Call KunciTextEditor
>
> End If
>
> statusubah = False
>
>
>
> End Sub
>
>
>
>
>
> Dengan tetap menggunakan coding seperti diatas, saya
>ingin menambahkan sbb :
>
> Database (DBASSETIT.MDB) saya proteksi dengan password
>misalnya : �admin� Mohon pencerahaan coding yang harus
>ditambahkan dan diletakkan dibagian mana ( untuk
>digunakan di PC Client )
>
>
>
> 2. Jika Database (DBASSETIT.MDB) saya letakkan di
>server (windows2000
> server ) dan tetap dipassword misalnya �admin�,
> kemudian untuk koneksinya
> ingin saya ubah melalui ODBC Microsoft Access
>setup ( sbgai client � server )
>
> mohon pencerahaan untuk perubahan coding
>diatas, supaya form master
> departemen bisa running.
>
> Sebelumnya mohon maaf apabila pernah dibahas
>
> Rgds,
> ipong
>
>
>
> ---------------------------------
> Yahoo! Mail Mobile
> Take Yahoo! Mail with you! Check email on your mobile
>phone.
>
> [Non-text portions of this message have been removed]
>
>
>
> Untuk berhenti berlangganan kirim email kosong ke :
>[EMAIL PROTECTED]
>
> Ikuti juga forum diskusi VB.net dengan
> mengirim email kosong ke [EMAIL PROTECTED]
>
> Yahoo! Groups Links
>
>
>
>
>
>
>
juliani
========================================================================================
Akses Internet TELKOMNet-Instan beri Diskon s.d. 50 % khusus untuk wilayah Jawa
Timur.
Informasi selengkapnya di www.telkomnetinstan.com atau hub 0800-1-INSTAN
(467826)
========================================================================================
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Ikuti juga forum diskusi VB.net dengan
mengirim email kosong ke [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
