Excel ADO Recordset ilk kayıda yazma

[tamer42]

Merhaba,

ADO Recordset nesnesi ile kapalı bir excel dosyasında sadece ilk kayda veri yazdırmak istiyorum, ilk kayıt dışındaki diğer kayıtlara "" olarak geçecek
bunun için aşağıdaki kodda nasıl bir düzenleme yapmak gerekecek?

SQL12 = "SELECT * FROM [TblHesap] where [Kod]= 'k1'"

RS12.Open SQL12, Conn, 1, 3

If RS12.RecordCount > 0 Then

RS12("Field10") = "XXXXXXXXXXX"

  RS12.Update

End If

  RS12.Close
[code]

ilginize teşekkürler,
iyi Çalışmalar.

 

[Erdem Akdemir]

Merhaba,

Tablonuzda sıra numarası varsa where sno=1 diyerek yapabilirsiniz.
Verilerin nasıl işlendiğini görmemiz lazım.

 

[tamer42]

Merhaba,

Tablonuzda sıra numarası varsa where sno=1 diyerek yapabilirsiniz.
Verilerin nasıl işlendiğini görmemiz lazım.

Erdem Hocam konuyu başa almak gerekirse; olay aslında şu şekilde

SQL12 = "SELECT * FROM [TblHesap] where [Kod]= 'k1'"

burada 10 kayıt var, sıra numarası da var.

SQL11 =  "SELECT SUM(Toplam) AS kgToplam  FROM [TblHesap] where [Kod]= 'k1'"

aynı tabloda "Toplam" alanını bu kritere göre ("k1") toplatıp "GenelToplam" sütununda sadece en üstteki satıra yazdırmak istiyorum, diğer satırlar boş kalsın istiyorum.

ekli dosyada anlatmaya çalıştığım durumu elde etmeye çalışıyorum. diğer bir ifadeyle buradaki SQL11 ve SQL12 sorgularındaki olayı birleştirmeye çalışıyorum, umarım anlatabilmişimdir.

iyi akşamlar.

 

[Erdem Akdemir]

Aşağıdaki kodu kullanabilirsiniz.

Sub denemememmem()

Range("D2:D" & Rows.Count).Clear
Range("D2:D" & Rows.Count).NumberFormat = 0

Set con = VBA.CreateObject("adodb.Connection")
Set rs = VBA.CreateObject("adodb.Recordset")

con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""

sorgu = "select kod,sum(toplam) from[TblHesap$] group by kod "
rs.Open sorgu, con, 1, 3

deg = rs.getrows
rs.Close

For i = 0 To UBound(deg)

sorgu = "select [Genel Toplam] from[TblHesap$] where kod = '" & deg(0, i) & "' and sno=1  "

rs.Open sorgu, con, 1, 3

rs("Genel Toplam").Value = deg(1, i)

rs.Update
rs.Close

Next

End Sub

 

[tamer42]

Aşağıdaki kodu kullanabilirsiniz.

Sub denemememmem()

Range("D2:D" & Rows.Count).Clear
Range("D2:D" & Rows.Count).NumberFormat = 0

Set con = VBA.CreateObject("adodb.Connection")
Set rs = VBA.CreateObject("adodb.Recordset")

con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""

sorgu = "select kod,sum(toplam) from[TblHesap$] group by kod "
rs.Open sorgu, con, 1, 3

deg = rs.getrows
rs.Close

For i = 0 To UBound(deg)

sorgu = "select [Genel Toplam] from[TblHesap$] where kod = '" & deg(0, i) & "' and sno=1  "

rs.Open sorgu, con, 1, 3

rs("Genel Toplam").Value = deg(1, i)

rs.Update
rs.Close

Next

End Sub

Erdem Hocam teşekkürler,
buradaki iki işlemi tek sorgu altında yapabilme imkanı yok mudur? Aşağıdaki şekilde bir kod denedim ama;

sorgu = "select kod, [Genel Toplam], sum(toplam) from[TblHesap$] group by kod "

rs("Genel Toplam").Value = .................................

iyi haftasonları

 

[Erdem Akdemir]

Tek sorguda sonuçlar getirilir ama sonuçların yazılması için ikinci bir aksiyon daha gerekli. Sonuçların arasına boşluk vererek yapılabilir mi,bilmiyorum.

 

[tamer42]

Aşağıdaki kodu kullanabilirsiniz.

Sub denemememmem()

Range("D2:D" & Rows.Count).Clear
Range("D2:D" & Rows.Count).NumberFormat = 0

Set con = VBA.CreateObject("adodb.Connection")
Set rs = VBA.CreateObject("adodb.Recordset")

con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""

sorgu = "select kod,sum(toplam) from[TblHesap$] group by kod "
rs.Open sorgu, con, 1, 3

deg = rs.getrows
rs.Close

For i = 0 To UBound(deg)

sorgu = "select [Genel Toplam] from[TblHesap$] where kod = '" & deg(0, i) & "' and sno=1  "

rs.Open sorgu, con, 1, 3

rs("Genel Toplam").Value = deg(1, i)

rs.Update
rs.Close

Next

End Sub

Murat Hocam merhaba,
verdiğiniz kodu başka bir çalışmada Access' e veri aktarmaya çalışıyorum

deg = rst.getrows

ekli görselde olduğu gibi deg kaydında 172 değer olmasına kaşın; UBound(deg) değeri 0 geliyor, dolayısıyla döngüye girmiyor, bu durumu nasıl çözebilirim. Yardımlarınız için şimdiden teşekkürler,

iyi pazarlar.

 

[FERAZ]

Rst yada rs.recordcount -1 olarak denenebilir.

 

[FERAZ]

UBound(deg,2) yada böyle olabilir.Resmi göremediğim için tahminen yazdım.

 

[tamer42]

UBound(deg,2) yada böyle olabilir.Resmi göremediğim için tahminen yazdım.

UBound(deg,2)
ile çözüldü, teşekkürler...

 

[FERAZ]

UBound(deg,2)
ile çözüldü, teşekkürler...

Rica ederim