- Katılım
- 2 Haziran 2006
- Mesajlar
- 13
For x = 2 To satir
MBB = Sheet3.Cells(x, 12)
sor = "SELECT * from [MusteriListesi$] where [MBB]=" & MBB & ""
Kayit1.Open sor, Baglanti, adOpenDynamic, adLockOptimistic
If Not Kayit1.EOF Then
Kayit1.MoveFirst
Do While Not Kayit1.EOF
Sheet3.Cells(x, 15) = Kayit1.Fields(1).Value
Kayit1.MoveNext
Loop
End If
Kayit1.Close
Set Kayit1 = Nothing
Next x
İki tablo arasında benzer değerleri karşılaştırarak birleştirme yapmak istiyorum. Yukarıdaki kod ile 1. tablodaki değer ile 2. tablodaki (x) değeri aynı ise 2. tablodaki
değerini 1. tabloya eşleşen satıra yeni bir sutuna ekliyorum. Ancak döngü o kadar yavaşlıyor ki manuel yapmak nerde ise daha hızlı oluyor. Döngüyü ADO kullanmadan yaptığımda bu seçeneğe göre daha hızlı sonuç veriyor. Bu durumda ADO işlemini hızlandırmak için yapılması gerekenler konusunda yardımlarınızı rica ederim.
MBB = Sheet3.Cells(x, 12)
sor = "SELECT * from [MusteriListesi$] where [MBB]=" & MBB & ""
Kayit1.Open sor, Baglanti, adOpenDynamic, adLockOptimistic
If Not Kayit1.EOF Then
Kayit1.MoveFirst
Do While Not Kayit1.EOF
Sheet3.Cells(x, 15) = Kayit1.Fields(1).Value
Kayit1.MoveNext
Loop
End If
Kayit1.Close
Set Kayit1 = Nothing
Next x
İki tablo arasında benzer değerleri karşılaştırarak birleştirme yapmak istiyorum. Yukarıdaki kod ile 1. tablodaki değer ile 2. tablodaki (x) değeri aynı ise 2. tablodaki
değerini 1. tabloya eşleşen satıra yeni bir sutuna ekliyorum. Ancak döngü o kadar yavaşlıyor ki manuel yapmak nerde ise daha hızlı oluyor. Döngüyü ADO kullanmadan yaptığımda bu seçeneğe göre daha hızlı sonuç veriyor. Bu durumda ADO işlemini hızlandırmak için yapılması gerekenler konusunda yardımlarınızı rica ederim.