Maaf iku nyambung.....ada sedikit yang saya masih bingung : 1. pada coding pembacaan textnya itu letaknya dimana?di module atau di form load? 2. apakah module ini berlaku juga untuk koneksi database ke Access atau hanya untuk MS SQL Server aja...?
trims ----- Original Message ----- From: Udin Sofyan To: [email protected] Sent: Friday, February 09, 2007 9:34 AM Subject: [indoprog-vb] Re: Koneksi ke Database SQL2000 dengan membaca File Text terima kasih untuk pak mawardi amat sangat membantu dan lengkap --- In [email protected], "mawardi" <[EMAIL PROTECTED]> wrote: > > Pada Modules tambahkan script berikut ini > 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 > Private gstrKeyValue As String * 256 > > Public Sub SetIni(iSection As String, iKey As String, iValue As String) > Dim lonSts As String > lonSts = WritePrivateProfileString(iSection, iKey, iValue, App.Path & "\" & iniFile) > End Sub > > Public Function GetIni(iSection As String, iKey As String, Optional iDefault As String) > Dim lonSts As String > lonSts = GetPrivateProfileString(iSection, iKey, iDefault, gstrKeyValue, 256, App.Path & "\" & iniFile) > If lonSts > 0 Then > GetIni = Left(gstrKeyValue, lonSts) > Else > GetIni = "" > End If > End Function > > Nah ini untuk pembacaan file Textnya, di sini saya menggunakan nama TEST.INI > iniFile = Trim(Command()) > If iniFile = "" Then iniFile = "TEST.ini" > > Server = GetIni("Connect", "Server") > If Server = "" Then > 'Jika nama Server SQL tidak ketemu tampilkan Dialog Setting Database & Nama Servernya > GoTo 10 > End If > Userid = GetIni("Connect", "Userid") > Password = LCase(GetIni("Connect", "Password")) > Database = GetIni("Connect", "Database") > AttcDir = GetIni("Attachment", "Folder") > TempDir = Environ("TEMP") > > ConnectS = "Provider=SQLOLEDB.1;" _ > & "Persist Security Info=False;" _ > & "User ID=" & Userid & ";" _ > & "Password=" & Password & ";" _ > & "Initial Catalog=" & Database & ";" _ > & "Data Source=" & Server > > DB.CursorLocation = adUseClient > DB.Open ConnectS > > Untuk file TEST.INI, isinya sbb > [Connect] > Server=SEPNMS11 > Userid=sa > Password=apasaja > Database=employee > > Untuk Password database silahkan cari untuk di encript supaya orang lain tidak tahu passwordnya > > Salam > Mawardi > -----Original Message----- > From: Udin Sofyan [mailto:[EMAIL PROTECTED] > Sent: Tuesday, February 06, 2007 14:55 > To: [email protected] > Subject: [indoprog-vb] Koneksi ke Database SQL2000 dengan membaca File Text > > > > Dear All, > > gimana caranya kita koneksi dengan ADO, tapi dengan membaca dari file > text, jadi keterangan mengenai Database Name, Server Name dan Password > kita letakkan di satu file tersebut (Koneksi di Luar), mohon > pencerahannya, jika berkenan mohon source code-nya, karena saya masih > baru. > > salam > udin sofyan > > > > > > > [Non-text portions of this message have been removed] > [Non-text portions of this message have been removed]
