TERIMA KASIH PAK MBA. FUNCTION NYA NGGAK ADA YANG SALAH.
________________________________ Dari: MBA <[email protected]> Kepada: [email protected] Terkirim: Kam, 11 Maret, 2010 08:43:33 Judul: RE: [belajar-access] menampilkan username dan password server di adp Saya lanjutkan functionnya: Function fGetDataServer( ByVal intIndex As Integer) As String 'Nilai intIndex ' 2: Server ; 3:UserName ; 4:Password/SSPI; 5:Database curConnect = CurrentProject. Connection xSPL = Split (curConnect, ";") For i = 0 To UBound(xSPL) Pos = InStr(1, xSPL(i), "=") xSPL(i) = Replace(xSPL( i), Left(xSPL(i) , Pos), "") Next fGetDataServer = xSPL(intIndex) End Function Bisa dipanggil di sbb: Server = fGetDataServer( 2) User = fGetDataServer( 3) Pass=fGetDataServer (4) àkalau nilainya SSPI berarti dalam mode WinNT Integrated Security DB = fGetDataServer( 5) BTW, kalau ada yang salah2 dari function ini, tolong bilangin ya… Salam hangat dan jabat erat, MBA ________________________________ From:belajar-access@ yahoogroups. com [mailto: belajar-access@ yahoogroups. com ] On Behalf Of MBA Sent: Wednesday, 10 March, 2010 16:54 To: belajar-access@ yahoogroups. com Subject: RE: [belajar-access] menampilkan username dan password server di adp Dari File àConnection àData Link Properties. Kalau connectnya pake Use Windows NT Integrated security: Provider=Microsoft. Access.OLEDB. 10.0;Persist Security Info=False;Data Source=MYMACHINE; User ID=sa;Integrated Security=SSPI; Initial Catalog=MYDB; Data Provider=SQLOLEDB. 1 Kalau dengan Use A Specific User Name and Password dan Allow Saving Pasword di centang; Provider=Microsoft. Access.OLEDB. 10.0;Persist Security Info=True;Data Source=MYMACHINE; User ID=sa;Password= MYPASSWD; Initial Catalog=MYDB; Data Provider=SQLOLEDB. 1 Maksud saya, gunakan itu dalam fungsi. Bedakan perlakukan untuk tiap koneksi yang memungkinkan, sehingga info yang didapat bisa di olah. Misalnya untuk yang pake Windows NT Integrated, ndak mungkin ngambil nilai passwordnya. Seperti: Function GetServerData( byval CurrConnection as string) X= currentproject. connection XX=replace(x,”DATA SOURCE=”,””) XX=Replace(xx,”Password=”,””) XX Dst End function Sorry, silahkan dilanjut. Mesti off dulu. Salam hangat dan jabat erat, MBA ________________________________ From:belajar-access@ yahoogroups. com [mailto: belajar-access@ yahoogroups. com ] On Behalf Of GALIH PERSADHA Sent: Wednesday, 10 March, 2010 4:27 PM To: belajar-access@ yahoogroups. com Subject: Bls: [belajar-access] menampilkan username dan password server di adp sudah saya coba pak dan keluar hasilnya : Provider=Microsoft. Access.OLEDB. 10.0;Persist Security Info=False;Data Source=accessprivat e;User ID=sa;Initial Catalog=rsgolekduit 1;Data Provider=SQLOLEDB. 1 disini saya masih bingung cara penerapam atau extrak string dengan kombinasi split, left, right, atau replace. maksudnya bagaimana ya. dalam database saya samenggunakan userid = sa dan passwordnya = malang tetapi dalam keterangan diatas saya tidak emnemukan kata " malang " mohon pencerahannya terimakasih ________________________________ Dari:MBA <murid.belajaraccess @yahoo.co. id> Kepada: belajar-access@ yahoogroups. com Terkirim: Rab, 10 Maret, 2010 15:34:01 Judul: RE: [belajar-access] menampilkan username dan password server di adp Kalau ADP anda sudah terkoneksi ke SQL Server, coba tuliskan di immediate window: ? currentproject. connection Extract string di sana dengan kombinasi split, left, right, atau replace. Nanti hasilnya bisa di passing ke tempat laen. Silahkan mencoba. Salam hangat dan jabat erat, MBA ________________________________ From:belajar-access@ yahoogroups. com [mailto: belajar-access@ yahoogroups. com ] On Behalf Of GALIH PERSADHA Sent: Wednesday, 10 March, 2010 3:06 PM To: belajar-access@ yahoogroups. com Subject: [belajar-access] menampilkan username dan password server di adp pak mau tanya, apakah mungkin kita menampilkan nama server, database, username dan password server yang telah kita terkoneksi oleh file adp yang kita buat. jika bisa mohon bantuan cara menampilkannya terima kasih No virus found in this incoming message. Checked by AVG - www.avg.com Version: 9.0.733 / Virus Database: 271.1.1/2733 - Release Date: 03/10/10 02:33:00 ________________________________ Yahoo! Toolbar kini dilengkapi Anti-Virus dan Anti-Adware gratis. Download Yahoo! Toolbar sekarang . No virus found in this incoming message. Checked by AVG - www.avg.com Version: 9.0.733 / Virus Database: 271.1.1/2733 - Release Date: 03/10/10 02:33:00 No virus found in this incoming message. Checked by AVG - www.avg.com Version: 9.0.733 / Virus Database: 271.1.1/2733 - Release Date: 03/10/10 02:33:00 "Coba Yahoo! Mail baru yang LEBIH CEPAT. Rasakan bedanya sekarang! http://id.mail.yahoo.com"
