Jumat, 14 Desember 2012
Hari ini saya ingin membagi ilmu bagi kalian yg mau buat Koneksi Manager/Settingan Koneksi dari VB6 dan di simpan di Registry Komputer ..
Oke ! Tanpa basa basi langsung aje, ikutin tutorial ane ..
1.) Buat 2 Label, 2 TextBox, dan 3 Command/Button
2.) Desain agar seperti gambar di bawah ini :
3.) Nah, kalau sudah, Buat Modul baru, dan masukan script di bawah ini :
Public rs As New ADODB.Recordset
Public nama_user As String
Public kode As String
Public aktip As String
Public User_Name As String
Public Password As String
Public IpAddress As String
Option Explicit
Function Koneksidb(server As String, namadb As String, user As String, pass As String, con As ADODB.Connection) As Boolean
On Error GoTo pesan
con.Open "Provider=SQLNCLI10;Server=" & server & ";Database=" & namadb & ";User =" & user & "; Password =" & pass & ";Trusted_Connection=yes"
Koneksidb = True
Exit Function
pesan:
Koneksidb = False
End Function
4.) Oke, sekarang di form masukan script ini :
Dim con As New ADODB.Connection
Private Sub Koneksi()
Dim ser As String, dat As String
ser = entri(0).Text
dat = entri(1).Text
If Koneksidb(ser, dat, "", "", con) = True Then
MsgBox "Koneksi Success !!", vbInformation, "Informasi Koneksi"
Exit Sub
Else
MsgBox "Koneksi Gagal!!", vbInformation, "Informasi Koneksi"
End If
End Sub
Private Sub entri_GotFocus(Index As Integer)
entri(Index).BackColor = &H80FFFF
End Sub
Private Sub entri_LostFocus(Index As Integer)
entri(Index).BackColor = &HFFFFFF
End Sub
Private Sub Form_Load()
entri(0).Text = GetSetting("Parkir", "Setting_DB", "Server", "")
entri(1) = GetSetting("Parkir", "Setting_DB", "Nama_DB", "")
End Sub
Private Sub Label1_Click()
End Sub
Private Sub XPButton1_Click()
Koneksi
End Sub
Private Sub XPButton2_Click()
SaveSetting "Parkir", "Setting_DB", "Server", entri(0).Text
SaveSetting "Parkir", "Setting_DB", "Nama_DB", entri(1).Text
Unload Me
End Sub
Private Sub XPButton3_Click()
Unload Me
End Sub
5.) Jangan lupa ganti nama nama komponen di script sesuai dengan nama komponen anda ..
6.) Oke, sekarang jalankan program ..
7.) Kalau masih error/bingung ? Silahkan komentar di bawah :D
Oke .. Sekian tutorial dari saya :D
Oke ! Tanpa basa basi langsung aje, ikutin tutorial ane ..
1.) Buat 2 Label, 2 TextBox, dan 3 Command/Button
2.) Desain agar seperti gambar di bawah ini :
3.) Nah, kalau sudah, Buat Modul baru, dan masukan script di bawah ini :
Public rs As New ADODB.Recordset
Public nama_user As String
Public kode As String
Public aktip As String
Public User_Name As String
Public Password As String
Public IpAddress As String
Option Explicit
Function Koneksidb(server As String, namadb As String, user As String, pass As String, con As ADODB.Connection) As Boolean
On Error GoTo pesan
con.Open "Provider=SQLNCLI10;Server=" & server & ";Database=" & namadb & ";User =" & user & "; Password =" & pass & ";Trusted_Connection=yes"
Koneksidb = True
Exit Function
pesan:
Koneksidb = False
End Function
4.) Oke, sekarang di form masukan script ini :
Dim con As New ADODB.Connection
Private Sub Koneksi()
Dim ser As String, dat As String
ser = entri(0).Text
dat = entri(1).Text
If Koneksidb(ser, dat, "", "", con) = True Then
MsgBox "Koneksi Success !!", vbInformation, "Informasi Koneksi"
Exit Sub
Else
MsgBox "Koneksi Gagal!!", vbInformation, "Informasi Koneksi"
End If
End Sub
Private Sub entri_GotFocus(Index As Integer)
entri(Index).BackColor = &H80FFFF
End Sub
Private Sub entri_LostFocus(Index As Integer)
entri(Index).BackColor = &HFFFFFF
End Sub
Private Sub Form_Load()
entri(0).Text = GetSetting("Parkir", "Setting_DB", "Server", "")
entri(1) = GetSetting("Parkir", "Setting_DB", "Nama_DB", "")
End Sub
Private Sub Label1_Click()
End Sub
Private Sub XPButton1_Click()
Koneksi
End Sub
Private Sub XPButton2_Click()
SaveSetting "Parkir", "Setting_DB", "Server", entri(0).Text
SaveSetting "Parkir", "Setting_DB", "Nama_DB", entri(1).Text
Unload Me
End Sub
Private Sub XPButton3_Click()
Unload Me
End Sub
5.) Jangan lupa ganti nama nama komponen di script sesuai dengan nama komponen anda ..
6.) Oke, sekarang jalankan program ..
7.) Kalau masih error/bingung ? Silahkan komentar di bawah :D
Oke .. Sekian tutorial dari saya :D
