Sabtu, 01 September 2012

Conection VB My SQL Server with file externel (.ini)

Basic code:
Buat file external :

Open (App.Path & "\Conection.ini") For Output As #1
        Print #1, data yang disimpan
    Close #1

  ' format Conection.ini, format(.ini) bisa anda ganti sesuka anda misalkan "Conection.rhm" atau "Conection.db" dan lain-lain
   'jika anda merubah format filenya jangan lupa menyamkan format x pada sub "ReadKoneksi"
 
Sub ReadKoneksi()
'MEMBACA FILE CONFIG CONEKSI DATABASE

On Error GoTo err
        Open (App.Path & "\Conection.ini") For Input As #1
            While Not EOF(1)
            Input #1, judul
                Data file = Mid(judul, a + 1, Len(judul) - a)
            Wend
        Close #1
    Exit Sub
err:
End Sub

Data file adalah variable penampung daya yang dibaca dari file external
   
 Langkan pertama pilih add form pilih jenis form ODBC log in




Tambahkan 1 form lagi dan sisipkan Adodc dan Datagrid
Pada form 1 even  form load ketikkan kode
 
Private Sub Form_Load()
ReadKoneksi
KonekDatabase

'utuk window 7 tuliskan
Adodc1.ConnectionString = ConnString

'untuk window XP bias juga  di tulis
'Adodc1.ConnectionString = Conn.ConnectionString
Adodc1.RecordSource = "Nama_Tabel"
Set DataGrid1.DataSource = Adodc1
End Sub

kenudian buat module
=====================
||      Buat module
======================= 
Public Conn As New ADODB.Connection
Public ConnString As String
Sub KonekDatabase()
On Error GoTo err
With Conn
    .ConnectionString = ConnString
    .Open
End With
On Error GoTo 0
Exit Sub
err:
    MsgBox "Ada kesalahan dengan server, periksa apakah server sudah berjalan !", vbInformation, "Cek Server"
End Sub

Public Sub CloseDB()
 If Conn.State = adStateOpen Or ConnSIAK.State = adStateConnecting Then
   Conn.Close
   Set Conn = Nothing
End If
End Sub

Sub ReadKoneksi()
'MEMBACA FILE CONFIG CONEKSI DATABASE
On Error GoTo err
        Open (App.Path & "\Conection.ini") For Input As #1
            While Not EOF(1)
            Input #1, judul
                ConnString = Mid(judul, a + 1, Len(judul) - a)
            Wend
        Close #1
    Exit Sub
err:
End Sub
 
 
untuk lebik jelasnya download Project dan artikel nya:
Setting koneksi Vb My SQL Server dengan file external.pdf

Project Conection Vb My SQL Server