Atau cara nya kaya gini
pertama buat FIle*.ini, misal : System.ini --> Taro di folder yg sama
dengan Exe
Isi System.Ini nya sebagai berikut ( misal juga ) :
DatabaseName1=NorthWind
Server1=Local
UserID=sa
Password=dba
nah di modul tambahin seperti ini
Private gDatabasename1 as string
Private gServer1 as string
Private gUserID as string
Private gPassword as string
Public Sub Main()
Dim strTemp As String, strTemp1 As Variant
Dim lFileNumber As Long
On Error GoTo Err_FileOpen
lFileNumber = FreeFile
Open App.Path & "\system.ini" For Input As lFileNumber
On Error Resume Next
Do While Not EOF(lFileNumber)
Input #lFileNumber, strTemp
strTemp1 = Split(strTemp, "=")
If UBound(strTemp1) = 1 Then
Select Case LCase$(strTemp1(0))
Case "databasename1": gDatabaseName1 = strTemp1(1)
Case "server1": gServerName1 = strTemp1(1)
Case "Password": gPassword = strTemp1(1)
End Select
End If
Loop
Close lFileNumber
msgbox "Nama Database=" & gdatabasename1 & vbcrlf & "Nama Server " &
gserver1 & vbcrlf & "User ID " & guserid & vbcrlf & "Password " &
gpassword & vbcrlf & " Selanjutanya bisa kan ?"
end sub
Thanks
Ronald Irawan
http://www.Foodinvestment.com/?id=ronald_delgeano
Jakarta
"Suroso" <[EMAIL PROTECTED]>
Sent by: [email protected]
12/02/2007 04:51 PM
Please respond to
[email protected]
To
<[email protected]>
cc
Subject
Re: [indoprog-vb] Re: Koneksi ke Database SQL2000 dengan membaca File Text
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]
[Non-text portions of this message have been removed]
