- Katılım
- 27 Ağustos 2006
- Mesajlar
- 69
Accessteki adı soyadı alanlarındaki bilgileri word dosyası içerisine atmam gerekiyor.
Acaba buna benzer bir şekilde word dosyasına adı ve soyadı bilgilerini alabilirmiyim?
Kod:
'ACCESSNOTLARI'nda şöyle bir açıklama var.
ADO KULL EXCELDE İKEN ACCESSDEN VERİ ALMA
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim Nsql As String
'Dim NewBook As Workbook
Dim i As Integer
Set conn = New ADODB.Connection
With conn
.Provider = "Microsoft.JET.OLEDB.4.0"
.Open Application.ActiveWorkbook.Path & "\veritabani1.mdb"
End With
Nsql = "SELECT*from uye"
Set rst = New ADODB.Recordset
With rst
.ActiveConnection = conn
.Open Nsql, conn, adOpenDynamic, adLockBatchOptimistic
End With
'Set NewBook = Workbooks.Add
For i = 0 To rst.Fields.Count - 1
Sheets("alınanveri").Range("a1").Offset(0, i).Value = rst.Fields(i).Name
Next i
Sheets("alınanveri").Range("a2").CopyFromRecordset rst
Set rst = Nothing
conn.Close