|
|
Postada em 21/06/2007 14:00 hs
ou então faça assim. Dim rsRecord as new adodb.recordset sql = " Select sum(valor) as Total from vendas " rsRecord.open, (nome da conexão com o banco de dados msgbox " " & RsRecord!Total & " " set rsRecord = nothing |
|
|
|
|
|
Daniel Lima
não registrado
|
|
Postada em 21/06/2007 15:47 hs
Não esta como texto e sim como numero duplo! nenhuma campo está vazio Obs: o mdb é ta no formato do access 97! tem alguma restrição para isso? |
|
|
|
|
|
Postada em 21/06/2007 16:55 hs
Não ... não que eu conheça, você não conseguiu fazer via sql como eu fiz ali em cima ? |
|
|
|
Daniel da Silva
não registrado
|
|
Postada em 21/06/2007 17:53 hs
deu esse erro já no Dim rsRecord As New adodb.Recordset essa mensagem user-defined type no defined precisa instalar algum software ou fazer im referência para isso funcionar? |
|
|
|
Daniel da Silva
não registrado
|
|
Postada em 21/06/2007 20:44 hs
deu certo Michel muito obrigado s´que tuinha que adicionar na referência Microsoft activex data objets 2.8 Libary e o código ficou assim! Dim Tabela As ADODB.Recordset
Dim Conexão As ADODB.Connection Private Sub Form_Load()
Dim Conexão As ADODB.Connection
Set Conexão = New ADODB.Connection
'2º - Criar uma Recordset Set Tabela = New ADODB.Recordset Conexão.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & " \webovasvendaslojawin.mdb" SQL = "Select sum(valor) as wvalor From venda" Tabela.open SQL, Conexão MsgBox format(Tabela!wvalor,"currency") End Sub
|
|
|
|
