Friday, June 28, 2013

Lanjutan Dari ADO

Ini Lanjutan Dari ADO yang beberapa artikel yang lalu saya buat :
1. Pertama Kita Bangun Modul dulu

Option Explicit

Public db As New ADODB.Connection

Public Function OpenTbl()
On Error Resume Next
    With db
      
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & ".\Database\Data.mdb"
        .Open
      
    End With
  
End Function


2. Setelah Modul Terbuat langkah selanjutnya kita bangun desain program

Setelah Desain Form Selesai kita buat, lalu kita masukan kode programnya, seperti dibawah ini

Option Explicit
Dim TmpMusnah As New ADODB.Recordset
Private Sub Form_Activate()

Modul.OpenTbl

With TmpMusnah
   
    If .State = adStateOpen Then
        .Close
    End If
   
    .CursorLocation = adUseClient
    .CursorType = adOpenDynamic
    .LockType = adLockOptimistic
    .Open "Select * from TmpPemusnahan", db
   
    Set Me.DataGrid1.DataSource = TmpMusnah
   
End With

End Sub


Nah Pertanyaan dimana letak perintah modul yang kita buat, perhatian di tulisan Private Sub Form_Activate
didalam tulisan kode disana saya masukan perintah modul.opentbl (ini modul yang kita kasih perintah untuk koneksi yang tadi). sekian dari saya mudah2 berguna bagi kawan-kawan semua

No comments: