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: [email protected] [mailto:[email protected]]
On Behalf Of MBA
Sent: Wednesday, 10 March, 2010 16:54
To: [email protected]
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: [email protected] [mailto:[email protected]]
On Behalf Of GALIH PERSADHA
Sent: Wednesday, 10 March, 2010 4:27 PM
To: [email protected]
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=accessprivate;User ID=sa;Initial Catalog=rsgolekduit1;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 <[email protected]>
Kepada: [email protected]
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
<http://sg.rd.yahoo.com/id/search/toolbar/mail/signature/*http:/id.toolbar.y
ahoo.com/> 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
