Ekteki dosyalarda veriyaz.xls isimli dosya ile dene.xls içine "Olumsuz" olan satırın yanına "+" işareti koymam gerekiyor. Yöntem olarak böyle bir şey düşündüm ama istediğim işlemi gerçekleştiremiyorum. Bu konuda yardım edebilirseniz şimdidenteşekkür.
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Kapalı Dosyaya Veri yazma problemi
- Konbuyu başlatan xoro20
- Başlangıç tarihi
- Katılım
- 1 Mart 2005
- Mesajlar
- 22,239
- Excel Vers. ve Dili
- Win7 Home Basic TR 64 Bit
Ofis-2010-TR 32 Bit
Dosyanız ekte.
Kod:
Sub yaz()
[B][COLOR="Red"]Dim baglan As ADODB.Connection, kayit As ADODB.Recordset[/COLOR][/B]
Set baglan = New ADODB.Connection
On Error GoTo hata
baglan.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\dene.xls;" & "Extended Properties=""Excel 8.0;HDR=Yes"""
Set kayit = New ADODB.Recordset
kayit.Open "SELECT * FROM [Sayfa1$] where Durum='Olumsuz'", baglan, adOpenDynamic, adLockOptimistic
[B][COLOR="Red"]kayit.MoveFirst
Do While Not kayit.EOF[/COLOR][/B]
kayit(7) = "+"
[COLOR="Red"] kayit.MoveNext[/COLOR]
[COLOR="Red"]Loop[/COLOR]
kayit.Close
Set kayit = Nothing
baglan.Close
Set baglan = Nothing
MsgBox "Kayıt güncellendi"
Exit Sub
hata:
MsgBox "Hata oluştu : " & Err.Description
Err.Clear
On Error Resume Next
Set kayit = Nothing
Set baglan = Nothing
End Sub- Katılım
- 1 Mart 2005
- Mesajlar
- 22,239
- Excel Vers. ve Dili
- Win7 Home Basic TR 64 Bit
Ofis-2010-TR 32 Bit
Rica ederim.
Bu örnek ile ilgili bir sorum daha olacak ama. dene.xls dosyası içerisinde "Olumsuz" değeri olan ve + işareti olmayan sattırları verial.xls içerisine altalta yazdırmam gerekiyor. Bunun için aşağıdaki gibi bir SQL sorgusu kullandım ama sonuç olarak hiç birşey dönmüyor. Yardımcı olursanız burada AND ve sonrasını yazmazsam sonuç alabiliyorum.teşekkürler
"select * from [Sayfa1$] Where Sonuç='Olumsuz' AND Durum <>'+'"
"select * from [Sayfa1$] Where Sonuç='Olumsuz' AND Durum <>'+'"