Dear MC ;
Saya pernah menggunakannya, hanya saja yg disimpan di file txt adalah ip
address server ybt. Bila disimpan sekalian nama databasenya, bisa saja sih asal
saat membaca diparsing mana IP address server dan nama database, juga port ke
berapa misalnya. Bahkan user dan passwordnya pun bisa disimpan di file TXT.
Namun perlu dipertimbangkan aspek security-nya, tentunya hal spt itu sangat
mudah dibuka,dibaca dan dimanfaatkan oleh orang yang semestinya tidak boleh
tahu .
Saat load pertama, sistem akan mengecek apakah file TXT ada ?? Bila tidak, akan
diciptakan. Selanjutnya file TXT dibaca, dan isi-isinya disimpan ke variable.
If Dir$(App.Path & "\konfig", 16) = "" Then
MkDir App.Path & "\konfig"
End If
If Dir(App.Path & "\konfig\direktori.cfg") = "" Then"
Open App.Path & "\direktori.cfg" For Output As #1
Write #1, "127.0.0.1"
Write #1, "face2happy990701"
write #1,"root"
write #1,"3306"
write #1,"act_db"
Close #1
Else
Open App.Path & "\konfig\direktori.cfg" For Input As #1
Input #1, lokasiserver
Input #1, pwd
Input #1, usr
Input #1, portke
Input #1, db_name
close #1
End If
selanjutnya manfaatkanlah variable lokasiserver,pwd,usr,portke,db_name untuk
koneksi. Selamat mencoba.....................
Semoga membantu, salam .
Nyom2
----- Original Message -----
From: rukawa kaede
To: [email protected]
Sent: Tuesday, March 11, 2008 4:47 PM
Subject: Bls: [Programmer-VB] Koneksi via Fiel.txt
coba jawab, maunya seperti yg anda tulis di bawah ? atau ingin supaya bisa
ganti2 connectionstring ? klo ternyata seperti dibawah, kmu bisa pake
perintah I/O atau kalau mau gampang pake TextStream anda bisa cari
referensinya. baca dulu textfile nya lalu isi dari teksfile tersebut anda
simpan dalam variable. kemudian anda assignment ke dalam properties connection
--> cn.connectionstring = Variable.
moga bantu.
----- Pesan Asli ----
Dari: DerbyFam <[EMAIL PROTECTED]>
Kepada: [EMAIL PROTECTED]; [email protected]; Waroeng VB <[EMAIL
PROTECTED]>
Terkirim: Selasa, 11 Maret, 2008 14:21:01
Topik: [Programmer-VB] Koneksi via Fiel.txt
Dear All,
mohon pencerahannya dong...
saya biasanya membuat koneksi yang ditempatkan di modul, seperti ini :
Public cn As ADODB.Connection
Sub main()
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=SQLOLEDB. 1;database= ERP_EMPLOYE;
server=SERVER- 01;UID=sa; pwd=rahasia"
cn.open
form1.show
End sub
bagaimana caranya kalau saya mengakses koneksi dengan menggunakan file.txt
yang isi
koneksi seperti di atas.
misal saya punya file koneksi.txt sehingga aplikasi harus selalu baca file
koneksi.txt dulu sebelum load form, apa saja yg harus di persiapkan.
sehingga Server dan databasenya bisa dipindah2.
Terimkasih sebelumnya,
salam,
mc
------------------------------------------------------------------------------
Never miss a thing. Make Yahoo your homepage.
------------------------------------------------------------------------------
Kunjungi halaman depan Yahoo! Indonesia yang baru!
