thanks buat sourcenya.. nanti saya coba dulu...
thank you so much

hudaits <[EMAIL PROTECTED]> wrote:                               ngak masalah 
dengan datagrid dengan file .ini 
 
 sour nya
 * AWAL MODUL
 Private Declare Function GetPrivateProfileString Lib "kernel32" Alias 
 _
 "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal _
 lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString 
 As String, _
 ByVal nSize As Long, ByVal lpFileName As String) As Long
 
 Private Declare Function WritePrivateProfileString Lib "kernel32" 
 Alias _
 "WritePrivateProfileStringA" (ByVal lpApplicationName As String, 
 ByVal _
 lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) 
 As Long
 Const INIFileName ="LOKASI NYIMPEN FILE NYA"
 
 Function WriteTextFileIni(FileName As String) As String
 Dim Result As String
     Result = WritePrivateProfileString("My App Name", "My Key", 
 FileName, INIFileName)
 End
 End Function
 
 Function ReadTextFileIni() As String
   Dim MyValue As String * 1000' -- untuk panjang 1000 karak ter yang 
 di ambil
   Dim Result As String
   Result = GetPrivateProfileString("My App Name", "My Key", "Empty", 
 MyValue, Len(MyValue), INIFileName)
   ReadTextFileIni = MyValue
 End Function
 *AKHIR MODUL
 
 nantinya akhan didapat nilai resutl nya dari hasil read ini file nya
 
 tinggal modifikasi aja masalah enskrip nya
 
 --- In [email protected], Heriyanto KO <[EMAIL PROTECTED]> 
 wrote:
 >
 > Sebelumnya Thanks buat replynya...
 > pake file .ini itu crnya gimana ya? sama gak dengan modul? maklum 
 saya blm pernah pake .ini :D kalo ada contoh share dong
 > 
 > oh ya satu lagi pertanyaan.. kalo filenya di simpan di .ini bisa 
 gak untuk koneksi di datagrid? coz ada beberapa data yang saya 
 tampilkan pake datagrid..
 > 
 > thanks in advance
 > 
 > hudaits <[EMAIL PROTECTED]> wrote:                               ya 
 koneksinya disimpan aja di file ini dan di enscripsi mudah khan
 >  saat awal loading aplikasi tinggal baja file .ini nya sebagai 
 >  penyimpang connection string
 >  
 >  --- In [email protected], "eris_015" <eris_015@> wrote:
 >  >
 >  > dear all
 >  > saya lagi buat program pake VB 6 + SQL Server 2000, saya ada
 >  > kebingungna menentukan jenis koneksi yg baik buat sistem saya. 
 Dr VB
 >  > saya pake metode koneksi yg menggunakan OLEDB, nah di connenction
 >  > string harus mencantumkan password supaya bisa connect ke DB, nah
 >  > menurut saya ini kurang aman. APakah ada cara lain yg lebih 
 efektif?
 >  > thanks...
 >  > 
 >  > salam,
 >  > Hery
 >  >
 >  
 >  
 >      
 >                                
 > 
 >        
 > ---------------------------------
 > Pinpoint customers who are looking for what you sell.
 >
 
 
     
                               

       
---------------------------------
Yahoo! oneSearch: Finally,  mobile search that gives answers, not web links. 

Kirim email ke