Galera, eu programo em DAO e estou querendo colocar nos meus programas, atualizações, buscas etc por sql, para economizar tempo, loops etc. Só que eu não sei outro método para mexer com o sql senão pelo data

 

    Data1.DatabaseName = App.Path & "compras.mdb"
    Data1.RecordSource = "select quant,valunit,destino from itenspedido where destino=" & "'" & NumerodaPSPF & "'"
    Data1.Refresh
    Data1.Recordset.MoveMin
    While Not Data1.Recordset.EOF
        ValorTotal = ValorTotal + Data1.Recordset!Quant * Data1.Recordset!valunit
        Data1.Recordset.MoveNext
    Wend

Em DAO existe outro jeito de se incluir o sql ? Se tem alguém poderia em informar como ? Ou se tem algum livro ou site de onde eu possa estar aprendendo mais a mexer com vb e sql.

Obrigado

Um exemplo aí seria:

 

Dim rs as Recordset

 

Set rs = Database.Openrecordset("Select sum(Quant * ValUnit) From Tabela)

 

ValorTotal = Rs(0)

Ghost mais uma vez obrigado ai pelo exemplo, deu uma bela clariada de como posso melhorar o meu sistema

Abraço

no declarations do modulo

Global Banco as Database

Global Area as Workspace

Global Tabela as recordset

 

No sub main

Set Area=DBengine.createworkspace("NewWorkspace","USUARIO","senhadobd")

`OBS se a não houver senha deixa vazio

SET Banco=Area.opendatabase(App.path & "SEUBD.mdb")

 

assim seu banco de dados estará setado

 

para chamar as tabelas usa o sql normal

 

 

ssql="select * from tabela where...blablabla...

depois seta a tabela e manda brasa

set tabela= banco.openrecordset(ssql,dbopensnapshot)

 

Valeu PH1959 pela ajuda, apenas uma pergunta, se eu tiver que exibir um grid com o resultado da pesquisa que tenha 10 linhas, eu utilizo então o mesmo procedimento né

tabela.moveMin '(o site esta subst. o movef irst por moveMin)

while not tabela.eof

   resultado=tabela!nome & chr(9) & tabela!valor ....

   grid.additem resultado

   tabela.movenext

wend

 

Ou com o sql existe uma outra forma de incluir esses dados em um grid, pois quando eu estava trabalhando com o Isql, ele trazia os dados na tela, sei que o sql usado para o vb é diferente do q para o oracle, por isso queria qual é a melhor forma para fazer exibição nesse caso.

Mais uma vez obrigado a todos

depende do grid q vc usa... o datagrid e o mshflexgrid é só setar a propriedade datasource... outros como o ListView tem q ser um a um...