มีคนถามคำถามนี้ไว้ที่
http://pantip.inet.co.th/tech/software/topic/SP874955.html

ดังนี้

เนื่องจากที่Officeใช้โปรแกรมที่เขียนขึ้นมาเอง แต่เก็บข้อมูลที่ Oracle แต่โปรแกรมนี้ยังเขียนไม่เสร็จโดยคนฮ่องกงเป็นคนเขียนใช้เวลานานมาก แต่เนื่องจากที่ Office มีความจำเป็นต้องใช้ report ซึ่งมีข้อมูลอยู่แล้ว และหนูโดนสั่งให้เป็นคนดึงข้อมูลมาเขียน report โดยใช้ access ไม่ทราบว่าทำได้ไหมคะ และจะติดต่อกับ Oracle ยังงัยคะ ช่วยด้วยค่ะ กลุ้มใจมากเลย หรือหากใช้ VB จะดีกว่าไหมคะ

จากคุณ : ติ๊ก [22 ก.พ. 2545 - 10:53:04]

ผมเลยได้ตอบคำถามไว้ดังนี้

ผมใช้ ADO ในการดึงข้อมูลจาก Oracle เพื่อมาใช้ใน Form ของ Access ลองปรับไปใช้ดูครับ

Private Sub Form_Open(Cancel As Integer)
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

'Create a new ADO Connection object
Set cn = New ADODB.Connection

With cn
.Provider = "MSDAORA"
.Properties("Data Source").Value = "basiceng"
.Properties("User ID").Value = "scott"
.Properties("Password").Value = "tiger"
.Open
End With

'Create an instance of the ADO Recordset class, and
'set its properties
Set rs = New ADODB.Recordset
With rs
Set .ActiveConnection = cn
.Source = "SELECT * FROM CUSTOMERS"
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.CursorLocation = adUseClient

.Open
End With

'Set the form's Recordset property to the ADO recordset
Set Me.Recordset = rs
Set rs = Nothing
Set cn = Nothing
End Sub

Private Sub Form_Unload(Cancel As Integer)
'Close the ADO connection we opened
Dim cn As ADODB.Connection
Set cn = Me.Recordset.ActiveConnection
cn.Close
Set cn = Nothing
End Sub
*** Edited by Supap Chaiya *** 22/4/2546 7:43:13