- Katılım
- 21 Nisan 2005
- Mesajlar
- 61
arkadaşlar bir bağlantı buldum güzel çalıştı. Ama aynı klasör içindeki access dosyasına bağlayamadım. kod:
Sub Import()
Dim cn As Object, rs As Object
Dim MySql As String
Let MySql = "SELECT * from Table1"
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\temp\test.mdb"
Set rs = CreateObject("ADODB.Recordset")
With rs
.Open MySql, cn, 3, 3
Sheets("3").Range("a1").CopyFromRecordset rs
.Close
End With
cn.Close
Set rs = Nothing: Set cn = Nothing
End Sub
Sub Import()
Dim cn As Object, rs As Object
Dim MySql As String
Let MySql = "SELECT * from Table1"
Set cn = CreateObject("ADODB.Connection")
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\temp\test.mdb"
Set rs = CreateObject("ADODB.Recordset")
With rs
.Open MySql, cn, 3, 3
Sheets("3").Range("a1").CopyFromRecordset rs
.Close
End With
cn.Close
Set rs = Nothing: Set cn = Nothing
End Sub