Terimakasih atas semua respon teman2
saya sudah berhasil ujicobanya.
sukses untuk kita semua
salam,
mc
Suseno <[EMAIL PROTECTED]> wrote:
Selama ini, koneksi saya saya simpan di file txt, tapi gak di
encrypsi, soalnya buat kantor sendiri.
Contoh :
' sub caristring ini untuk membaca isi koneksi yang aku simpan di file
strCon.txt
' isinya : Provider=SQLOLEDB.1;Persist Securiy Info=False;User ID=Sa;Initial
Catalog=db_transaksi;Data Source=ServerUtama
' yang lokasinya aku taruh satu folder dengan file exe program kita.
' setelah dibaca, koneksi string disimpan dalam variabel strConec
Sub caristring()
StrConec = ""
Open App.Path & "\strCon.txt" For Input As #1
Dim strfile1
Do While Not EOF(1)
Line Input #1, strfile1
StrConec = Trim(StrConec & strfile1 & vbCrLf)
Loop
Close #1
End Sub
Di sub main aku panggil sub cari string tadi :
Sub Main()
On Error GoTo gagal
Set koneksi = New ADODB.Connection
caristring
koneksi.ConnectionTimeout = 0
koneksi.CursorLocation = adUseClient
' untuk password sengaja aku taruh di coding, biar gak dilihat orang lain
dari file strcon.txt
StrConec = StrConec + "; password = dataku"
koneksi.Open StrConec
Dim pesan
pesan = MsgBox("Koneksi Database OK....", vbInformation + vbOKOnly,
"Koneksi....OK")
fr_login.Show
Exit Sub
gagal:
pesan = MsgBox("Error nich.. : " & Err.Number & Err.Description, vbCritical
+ vbOKOnly, "Error Koneksi")
End Sub
Sekedar contoh aja, maklum masih pemula...
CMIIW
-----Original Message-----
From: [email protected] [mailto:[EMAIL PROTECTED] Behalf Of
aguspradikta
Sent: 12 Maret 2008 10:37
To: [email protected]
Subject: [Programmer-VB] Re: Koneksi via Fiel.txt
saya hanya ingin menambahkan aja.
apabila anda ingin lebih aman ada baiknya data setting tsb,
anda enkripsi dulu sebelum di simpan ke text file, begitu jg
sebaliknya.
jadi walaupun text file tsb dibuka, namun informasi setting server
tdk bisa diketahui dengan mudah kecuali "si dia" tau algoritma
enkrispi yang kita gunakan
Salam,
Agus Pradikta
---------------------------------
Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try it now.
