‘declare ecocollection
Private Eco As New EcoFunctionCollection
‘menjadikan text1 dan text2 input tanggal
Call Eco.EcoCtrlDate(Me, “dd/mm/yyyy”, False, Text1, Text2)
Link download Ecocollection.dll dan contoh Project pengunaan >> Klik Sini
Arsip Harian: 14 Januari 2013
Menampilkan form Setting login ke database dengan Ecocollection.dll
‘delarasikan variabel Ecocollection
Dim eco As New EcoFunctionCollection
‘cara menampilkan form setting login ke database
Call eco.EcoSetDatabase(“Aplikasi1”, [5.SqlServer])
‘cara mengambil nilai settingan login ke database
dim sServer as string, sUser as stringt, sPassword as string, sPort as string, DatabaseName as string
sServe r= eco.EcoGetDBServer(“Aplikasi1”, [5.SqlServer])
sUse r= eco.EcoGetDBUser(“Aplikasi1”, [5.SqlServer])
sPassword = eco.EcoGetDBPassword(“Aplikasi1”, [5.SqlServer])
sPort = eco.EcoGetDBPort(“Aplikasi1”, [5.SqlServer])
DatabaseName = eco.EcoGetDBName(“Aplikasi1”, [5.SqlServer])
bisa memilih database yang anda gunakan (access, mysql, sqlserver, oracle, firebird)
untuk lebih jelasnya bisa download Ecocollection.dll dan contoh project pengunaanya klik sini
Menampilkan form Login dengan Ecocollection.dll
hanya memasukan code ini form login akan muncul
Dim Eco As New EcoFunctionCollection
Private Sub Command1_Click()
Dim Hasil As Integer
Dim con As New ADODB.Connection
‘Koneksi ke database
If Eco.EcoConnection(“127.0.0.1”, “DBDATA”, [2.Mysql Driver ODBC 3.51], “root”, “”, “3306”, con) = False Then
MsgBox “koneksi gagal”
End
End If
‘memanggil form login
Hasil = Eco.EcoShowLogin(con, “tbuser”, “userid”, “password”, [2.EcoEncrypt])
‘nilai 0 jika cancel , nilai 1 login berhasil
If Hasil = 1 Then
MsgBox “Login berhasil”
ElseIf Hasil = 0 Then
MsgBox “Cancel”
End If
End Sub
untuk pengecekan enkripsi syarat enkripsinya harus mengunkan enkripsi yg ada di ecocollection.dll (ada key public dan private)
jika tidak ada enkripsi bisa diisi [1.None]
untuk lebih jelasnya bisa download Ecocollection.dll dan contoh projectnya disini
ekojimmy 