กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
327 2
URL.หัวข้อ /
URL
ผมต้องการพัฒนาโปรแกรม MS Access ให้สามารถเชื่อมต่อกับฐานข้อมูลที่เป็น Oracle
คือผมต้องการเขียนโปรแกรม MS Access ให้สามารถเชื่อต่อกับฐานข้อมูลที่อยู่ใน Oracle และรันบน Unix นะครับ แต่มีปัญหาที่ว่าผมยังไม่ค่อยมีพื้นฐานด้านการเชื่อมต่อแบบนี้ ปรกติผมใช้ MS Access เขียนโปรแกรมบนเครื่องเฉยๆ และก็ใช้ข้อมูลที่ดึงมาจาก SQLPlus เวลา Login เข้า UNIX นะครับ คำถามก็คือ
1. การจะเชื่อมต่อฐานข้อมูลนั้นปลายทางเราต้องการทราบค่าอะไรบ้าง (ตอนนี้ผมมี Account Unix, Accout SQLPlus, Server name, Database name แต่ไม่รู้ว่าจะเชื่อมต่ออย่างไร)
2. ช่วยให้อาจารย์แนะนำ การดึงข้อมูลซักหนึ่งตัวอย่างได้มั้ยครับ
ขอบคุณมากครับอาจารย์
1. การจะเชื่อมต่อฐานข้อมูลนั้นปลายทางเราต้องการทราบค่าอะไรบ้าง (ตอนนี้ผมมี Account Unix, Accout SQLPlus, Server name, Database name แต่ไม่รู้ว่าจะเชื่อมต่ออย่างไร)
2. ช่วยให้อาจารย์แนะนำ การดึงข้อมูลซักหนึ่งตัวอย่างได้มั้ยครับ
ขอบคุณมากครับอาจารย์
2 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R03685
ให้ค้นด้วยคำว่า Oracle ดูครับ ผมมีตัวอย่างโค้ดในการติดต่อ Oracle ด้วย
2 @R03706
ผมได้ลองดูแล้วนะครับ แต่ที่อยากทราบคือ Account Unix, Account SQLPlus, Server name, Server IP, Database name) จะเอาไปใช้ที่ตรงไหนของโค้ดครับ
Private Sub Connect_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
'Create a new ADO Connection object
Set cn = New ADODB.Connection
With cn
.Provider = "OraOLEDB.Oracle"
.Properties("Data Source").Value = "xxx"
.Properties("User ID").Value = "yyyyy"
.Properties("Password").Value = "zzzzz"
.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 DEF$_AQCALL"
.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 Connect_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
'Create a new ADO Connection object
Set cn = New ADODB.Connection
With cn
.Provider = "OraOLEDB.Oracle"
.Properties("Data Source").Value = "xxx"
.Properties("User ID").Value = "yyyyy"
.Properties("Password").Value = "zzzzz"
.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 DEF$_AQCALL"
.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
ในกรณีที่ต้องเชื่อมต่อไปยังเครื่องอื่นก่อน นะครับ ขอบคุณมากครับ
Time: 0.0361s
