Sum Sql

[rodrigotnoma]

Estou utilizando essa query e não esta retornando, nem erro:

Set rs = cn.execute("select SUM(paginas) as totalpaginas from tb_impressao where cliente='" & cliente & "'")

O campo "paginas" já esta como "numero" no access.

O que estaria errado nessa query?

Obrigado

Rodrigo

[lcs_sp]

Aparentemente nada, tente fazer isto

msgbox "select SUM(paginas) as totalpaginas from tb_impressao where cliente='" & cliente & "'"

e vê o que volta

[kuroi]

talvez esse where na retorne nd. aperta F9 nessa linha e rode o programa. quando chegar ai, copie o select todo com vai ficar e tenta executar no banco pra ver o que da

[rodrigotnoma]

Apareceu isso aqui:

"select SUM(paginas) as totalpaginas from tb_impressao where cliente='" & adidas & "'"

Text1.text rs!totalpaginas

Mas não acontece nada...

[rodrigotnoma]

Private Sub Command1_Click()

Set cn = New ADODB.Connection

connstring = "provider=microsoft.jet.oledb.4.0;data source=\\192.168.0.120\impressao\impressao.mdb;"

cn.Open connstring

Set rp = cn.execute("select sum(paginas) as totalpagina from tb_impressao")

Text1.Text = totalpagina

End Sub

quando clico no botão, nada aparece, nem mesmo erro....

alguém pode me dar uma luz?

[Guest Visitante]

rp num é um recordset ??

Set rp = New ADODB.Recordset

Text1.Text = totalpagina <--????

Text1.Text = rp(0) <-----tente assim

[Guest Visitante]

Não amigo, rp nãop é recordset não....

Em ASP eu sempre utilizei dessa forma e nunca tive problemas, não sei o que esta ocorrendo com VB...

Abços

[Graymalkin]

Claro que rp é um ADODB.Recordset sim, conforme você mostra na linha...

Set rp = cn.execute("select sum(paginas) as totalpagina from tb_impressao")

Sendo que o correto para pegar o campo totalpagina seria:

Text1.Text = rp.fields("totalpagina").value

Abraços,

Graymalkin

[rodrigotnoma]

OK, entendi e deu certo!!!!!!!!!!

Vlw mais uma vez...