[Programmer-VB] Syntax Membuat Koneksi SQL Server dengan File *.ini

Mon, 11 Jul 2005 02:12:41 -0700

Dear rekan-rekan ini source code untuk koneksi SQL Server menggunakan File * ini.
Saya Gak Jadi Attachment-nya karena saya sibuk banget nih, jadi untuk rekan-rekan programmer yang masih pemula, bisa tanya lagi di forum kalau ada yang belum dimengerti, untuk rekan2 yang sudah mahir, mudah-mudahan ini sebagai bahan referrensi.....
 
Nb : Untuk File Connection.ini, anda create blank aja (tanpa isi) di notepad, kemudian simpan file connection.ini di lokasi folder Project VB rekan2.
 
Ok Guys...... sekali lagi Semoga Programmer Indonesia Jaya Selalu........ n gak pelit ilmu
 
' ++++ Copy Syntak ini di Module ++++

Public StrConnection As New ADODB.Connection
Public FileINILocation,GetFileINI,WriteFileINI
 
Public 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

Public 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
 
Public Function Enkripsi_Pass(p_str As String) As String
    For i = 1 To Len(p_str) Step 1
        strs = strs + Chr(Asc(Mid(p_str, i, 1)) * 2)
    Next i
        Enkripsi_Pass = strs
End Function
 
Public Function Dekripsi_Pass(p_str As String) As String
   For i = 1 To Len(p_str) Step 1
        strs = strs + Chr(Asc(Mid(p_str, i, 1)) / 2)
    Next i
       Dekripsi_Pass = strs
End Function
 
Public Function Cnn_Sql(Tserver As String, TDBName As String, _
                        TUserName As String, TPassword As String) As String
      On Error GoTo err

      Dim ServerName As String, DatabaseName As String
      Dim UserName As String, Password As String
      ServerName = Tserver
      DatabaseName = TDBName
      UserName = TUserName
      Password = TPassword
 
      StrConnection.Provider = "SQLOLEDB.1"
      StrConnection.Properties("Data Source").Value = ServerName
      StrConnection.Properties("Initial Catalog").Value = DatabaseName
      StrConnection.Properties("User ID").Value = UserName
      StrConnection.Properties("Password").Value = Password
      StrConnection.Open
 
      err: If err.Number = -2147467259 Then
                Frm_Read_INI.Show vbModal
                            Else
                              Unload frm_Read_INI
             End If
End Function
 
Public Sub Read_Ini_File()
    Dim GetServer As String * 25, GetLoginName As String * 25
    Dim GetPass As String * 30, GetDBName As String * 30
   
    FileINILocation = App.Path + "\Connection\connection.ini"
    GetFileINI= GetPrivateProfileString("SQL SERVER CONNECTION", "Server Name", "Empty",        
 GetServer, _
    Len(GetServer), FileINILocation)
    GetFileINI = GetPrivateProfileString("SQL SERVER CONNECTION", "User ID", "Empty",          
GetLoginName, _
    Len(GetLoginName), FileINILocation)
    GetFileINI = GetPrivateProfileString("SQL SERVER CONNECTION", "Password", "Empty",        
GetPass, _
    Len(GetPass), FileINILocation)
    GetFileINI = GetPrivateProfileString("SQL SERVER CONNECTION", "Initial Catalogue", "Empty",   
    GetDBName, _
    Len(GetDBName), FileINILocation)
   
    Call Cnn_Sql(GetServer, GetDBName, GetLoginName, Deskripsi_Pass(GetPass))
End Sub

' ++++++ Untuk Form Read INI Syntaxnya Sbb : ++++++
 
Sub Write_File_INI()
 
    FileINILocation = App.Path + "\Connection\connection.ini"
    WriteFileINI = WritePrivateProfileString("SQL SERVER CONNECTION", "Server Name",    
txtServer.Text, FileINILocation)
   WriteFileINI= WritePrivateProfileString("SQL SERVER CONNECTION", "User ID",      
txtLoginName.Text, FileINILocation)
   WriteFileINI = WritePrivateProfileString("SQL SERVER CONNECTION", "Password",       
Enkripsi_Pass(txtPassword), FileINILocation)
   WriteFileINI = WritePrivateProfileString("SQL SERVER CONNECTION", "Initial Catalogue",        
txtDBName.Text, FileINILocation)
    WriteFileINI = WritePrivateProfileString("EDP TEAM", "1", "Bambang I.W", FileINILocation)
    WriteFileINI= WritePrivateProfileString("EDP TEAM", "2", "Rokhmad W", FileINILocation)
    WriteFileINI = WritePrivateProfileString("EDP TEAM", "3", "Sigit P", FileINILocation)
    WriteFileINI= WritePrivateProfileString("EDP TEAM", "4", "Riyan Tengku", FileINILocation)
End Sub
 
Private Sub Save_Click()
    Write_File_INI 
    For each control in Frm_Read_INI
         If control is Textboxt then
            control.text=""
         End If
    Next
 End sub
 
Private Sub Exit_Click()
 
   Unload Me
 
End sub

__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com

Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]


YAHOO! GROUPS LINKS



Kirim email ke