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]
