 |
|
จริงๆแล้ว มันก็ไม่มีที่ให้ถามเรื่องนี้โดยเฉพาะอ่ะนะครับ ในเว็บนี้ เพราะส่วนใหญ่จะเรื่องเว็บ
แต่ผมก็ขอเสนอหน้ามาตอบ 
ตัว connection ใน VBA โดยปรกติแล้ว ก้ใช้ data source อยู่แล้วนี่ครับ ซึ่งหลักๆก้คือต้องระบุ ที่อยู่ของไฟล์ .mdb ให้ถูก
ตัวอย่าง เดิมเคยใช้ไฟล์ในเครื่องเดียวกัน
Code
Public Sub GetCn(ByRef dbcon As ADODB.Connection, ByRef dbrs As ADODB.Recordset, _
sqlstr As String, dbfile As String, usernm As String, pword As String)
Set dbcon = New ADODB.Connection
dbcon.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfile & ";", _
usernm, pword
Set dbrs = New ADODB.Recordset
dbrs.Open sqlstr, dbcon
End Sub
Public Sub getrs()
Dim adoconn As ADODB.Connection
Dim adors As ADODB.Recordset
Dim sql As String
Dim filenm As String
sql = "Select * from Table1"
filenm = "C:\Data\sampledb.mdb" ' ไฟล์ในเครื่องเดียวกัน
Call GetCn(adoconn, adors, sql, filenm, "", "")
Dim xlsht As Excel.Worksheet
Set xlsht = Sheets("Sheet1")
xlsht.Range("A1").CopyFromRecordset adors
adors.Close
adoconn.Close
Set adors = Nothing
Set adoconn = Nothing
Set xlsht = nothing
End Sub
ถ้าต้องการใช้ไฟล์ที่อยู่เครื่องอื่น
Code
filenm = "192.168.1.123/sampledb.mdb" ' ไฟล์ในเครื่องอื่น
ก้น่าจะประมาณนี้ครับ คำตอบผมอาจไม่ถูกต้องทั้งหมดซะทีเดียวแต่ก็คงจะพอเป็นแนวทางได้บ้างนะครับ
|
 |
 |
 |
 |
| Date :
2009-07-16 11:28:11 |
By :
lozomac |
|
 |
 |
 |
 |
|
|
 |
