Ado ile Toplama

[unfors]

Set con = CreateObject("adodb.connection")
con.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & kk & ";"
Set rs = CreateObject("adodb.recordset")
sorgu = "SELECT SUM(MALIYET) FROM [URUN_DOSYALARI] where [URUN_KODU] ='" & ListBox1.List(ListBox1.ListIndex, 0) & "'"
rs.Open sorgu, con, 1, 3

Range("a2").CopyFromRecordset rs
textbox1.Value = Range("a2").Text

yukarıdaki kod'da rs kaydını textbox1 'e sayfaya göndermeden nasıl yazdırabilirim.

 

[Haluk]

Kodunuzda aşağıdaki satırları silip,

Range("a2").CopyFromRecordset rs
textbox1.Value = Range("a2").Text

bunu kullanın .....

TextBox1.Value = RS(0)

.