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]
>
