Oleh: admin | 25/02/2014

menjawab pertanyaan member [koneksi]

Sudah lama kayanya saya tidak posting lagi. Hari ini saya posting seputar pertanyaan member sourcecode dan jawabannya. Ini salah satunya:

pertanyaanKarena kesibukkan saya, maka baru kemarin saya menjawabnya. Jawaban ini sesuai file project yang dikirimkan ke saya.

1.  Buat modul koneksi. Berikut sourcenya:


Public Koneksi As New ADODB.Connection
Public Rssiswa As New ADODB.Recordset
Public Rslogin As New ADODB.Recordset
Public Rstampil As New ADODB.Recordset
Public pathh As String

Sub BukaDatabase()

On Error GoTo PesanError

Set Koneksi = New Connection

pathh = frmDb.txtPath.Text

With Koneksi
.ConnectionTimeout = 30
.CursorLocation = adUseClient
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & pathh & ";Persist Security Info=False"
.Open
End With

Rssiswa.Open "[siswa]", Koneksi, adOpenDynamic, adLockOptimistic
Rslogin.Open "[login]", Koneksi, adOpenDynamic, adLockOptimistic

PesanError:
Select Case Err.Number
Case -2147467259
MsgBox "File database sudah tidak ada pada folder instalasi", vbInformation, "Peringatan"
End
'Exit Sub
End Select
End Sub

2.  Source pengaturan menu utama


Private Sub DATASISWA_Click()
Frminput.Show
End Sub

Private Sub MDIForm_Load()
INPUTD.Enabled = False
MLOGOUT.Enabled = False
End Sub

Private Sub MKONEKSI_Click()
frmDb.Show
End Sub

Private Sub MLOGOUT_Click()
INPUTD.Enabled = False
MKONEKSI.Enabled = True
MLOGOUT.Enabled = False
Koneksi.Close
End Sub

3.  Buat form masukkan database. Berikut sourcenya:


Private Sub cmdLoad_Click()
BukaDatabase
frmlogin.Show
Unload Me
End Sub
Private Sub cmdbrowse_Click()
On Error Resume Next
dlgPath.Filter = "File database (mdb)|*.mdb"
dlgPath.ShowOpen
txtPath.Text = dlgPath.FileName
cmdLoad.Enabled = True
End Sub

Private Sub Form_Load()
cmdLoad.Enabled = False
End Sub

Lebih lengkap, download PROJECTnya DISINI.


Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Kategori

%d blogger menyukai ini: