On 8/5/2010 2:40 PM, Sidom Raja wrote:
> Coba Pak Aksan beritahu saya bagaimana agar Access bisa bikin query
> untuk mengambil satu baris saja dari salah satu table terabyte
> postgres/oracle tanpa passtrough. Mungkin saya udah ketinggalan jaman
> gak tau klo Access ternyata bisa. Hehe :p
Nah ini saya sudah install postgres, tapi saya belum bisa suplay data
besar ke db, tapi saya berikan contoh kode dengan native oledb sebagai
berikut. tolong cobakan di tempat anda dengan modifikasi kecil, dan anda
mungkin dengan terpaksa mengakui bahwa jaman telah meninggalkan anda ...
Agar bisa ditampilkan dengan interface access, saya ambil cara bound
form ke ADO recordset yang di isi secara real time saat form dibuka.
jadi buat dulu form, lalu isi control source setiap bound control sesuai
dengan sql query yang akan di tarik.
:D
Option Compare Database
Option Explicit
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Close()
rs.Close
Set rs = Nothing
cnn.Close
Set cnn = Nothing
End Sub
Private Sub Form_Open(Cancel As Integer)
Dim startTime As Date, endTime As Date
Set cn = New ADODB.Connection
With cn
.Provider = "MSDataShape"
.ConnectionString = "DATA PROVIDER=PostgreSQL OLE DB
Provider;DATA SOURCE=localhost;LOCATION=XNTest;User
ID=postgres;password=xxx;"
.CursorLocation = adUseServer
.Open
End With
Set rs = New ADODB.Recordset
startTime = Now()
With rs
' mainkan comment di sini untuk menguji ambil data 1 biji record
saja, atau tarik semuanya. apakah ada perbedaan waktu ?
'.Source = "SELECT * FROM datagede"
'.Source = "SELECT * FROM datagede WHERE field1=100"
.ActiveConnection = cn
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open
End With
Set Me.Recordset = rs
Me.UniqueTable = "weather"
endTime = Now()
Debug.Print "opening recordset in " & DateDiff("s", startTime,
endTime) & " seconds.."
End Sub
