accses den excele veri aktarımı

[onur3466]

kapalı olan accses .mdb dosyasından excele veri aktarma nasıl yapılabilir? ve bunlara da şart koyabilirmiyiz?

 

[ÖmerBey]

Merhaba,
Zamanınız varsa buyurun.

ADO-DAO-Kapalı Dosya Uygulamaları

Bu başlıkta, ADO ve DAO kullanımını içeren kodları ve kapalı dosyadan veri alma ile veri kaydetme uygulamalarını bulabilirsiniz.

www.excel.web.tr

Bu da videolusu...

https://www.excel.web.tr/threads/190769

 

[onur3466]

çok teşekkür ederim ama benim hep microsoft.jet.oledb.4.0 satırında debug hatası veriyor yada hataşlı satır uyarısı , bulunamadı vs.

 

[ÖmerBey]

microsoft.jet.oledb.4.0 yerine Microsoft.Ace.Oledb.12.0 deneyiniz.

 

[onur3466]

teşekkür ederim bilgilendirmeniz için

 

[onur3466]

CalibrationResult access dosyasında RowAndStepResults tablosundaki 1. sütunda yer alan SerialNumber da yer alan sayı ile excel de yer alan sayfa1 de yer alan e4 hücresindeki sayı eşleşirse,e5 hücresi CalibrationDate değerle ve e6 daki metin TestDirection eşleşiyor ise o sayıya ait accses dosyasındaki MasterValue sütunundaki değerler h4 den itibaren alt alta yazsın istemekteyim ama yapamadım.

 

[ÖmerBey]

CalibrationResult access dosyasında RowAndStepResults tablosundaki

Tekrar merhaba,
Öncelikle bu konuda kapsamlı bir bilgiye sahip değilim. Ancak yine de biraz uğraşayım diye dosyanızı indirdim, fakat bahsettiğiniz tablo dosyanızda yer almıyor. Sonrasında dosya isminin de farklı olduğunu fark ettim. Acaba yanlış dosyayı paylaşmış olabilir misiniz?

 

[onur3466]

aynen ömer bey . farketmedim yanlış dosyayı iletmişim size

 

[ÖmerBey]

Örnek dosyanız için aşağıdaki kodu deneyiniz.
Excel dosyası ile veri tabanı dosyanız aynı klasörde değilse kırmızı satırı dosya konumunuza göre değiştiriniz.

Sub Kod()
Dim Con As Object, Rs As Object, Sorgu As String
Dim sn As String, yon As String, trh As String, kynk As String

kynk = ThisWorkbook.Path & "\CalibrationResult.mdb"
sn = "'" & Range("F4").Value & "'"
yon = "'" & Range("F6").Value & "'"
trh = "#" & Format(Range("F5").Value, "dd\/mm\/yyyy") & "#"

Set Con = CreateObject("AdoDB.Connection")
Set Rs = CreateObject("AdoDB.RecordSet")

Con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & kynk
Sorgu = "Select [MasterValue] From [RowAndStepResults] where [SerialNumber] = " & sn & " And [TestDirection] = " & yon & " And [CalibrationDate] = " & trh
Rs.Open Sorgu, Con, 1, 1

Range("H4:H500").ClearContents
Range("H4").CopyFromRecordset Rs

Rs.Close
Con.Close
End Sub

 

[onur3466]

Ömer bey elinize emeğiniz sağlık çok teşekkür ederim. minnettarım size

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...

 

[onur3466]

ömer bey tekrar dan rahatsız ediyorum özür diliyorum .
benim bir ricam daha olacaktı

sayfa 3 de renklendirdim
RowDirection ve TestDirectionNum sütunudaki değerler 1 ise ve TestDirection sütununda zug yazıyor ise ve Row sütunu 1 ise Step sütununu Row sütunu 2 olana kadar MasterValueAdjusted değerleri yine aynı şekilde excel de H sütununa yazdır,Row sütunu 2 ise Step sütununu Row sütunu 3 olana kadar MasterValueAdjusted değerleri yine aynı şekilde excel de H sütununa yazdır, bu Row 5 e kadar gidebilir.

ben kırmızılar alt alta maviler alta mor lar alt alt yazsın istiyorum.

Aynı şekilde RowDirection 1 ve TestDirectionNum 2 olduğunda aynı döngü olsun ve renkler alt alta yazdırılsın.

En son ise şekilde RowDirection 1 ve TestDirectionNum 1 ve 2 olduğunda yeşil hücreler de excel de I sütununa yazılsın istiyorum.

O zaman TestDirection sütununa gerek kalmamakta zug veya druck diye döngüye girmemize gerek yok.