[Resolvido] Carregar dados em uma textbox

[anabon 0]

Queridos amigo, Boa Tarde eu fiz um programa em VB6 com o banco em acess, nesse programa tem uma tela que mostra toda a movimentação do dia em Cheque, Dinheiro, Cartão e Venda total... Uso para mostra essas coisa 4 MaskEdBox, e para carregar esses MaskEdBox eu usava o seguinte codigo:

 

Set RS = New ADODB.Recordset

Set con = New ADODB.Connection

con.Open (cnSQL)

 

RS.Open "Select * from dinheiro where data_venda = #" & Date & "#", con, adOpenKeyset, adLockOptimistic

If RS.EOF <> True And RS.BOF <> True Then

Me.txtdinheiro = RS.Fields("totaldia")

End If

 

Deu certo no começo mais depois q compilei e instalei no cliente o form simplesmente carrega com o MaskEdBox so aparece em branco...

 

Aonde ta o erro? Por Favor me ajudem já naum sei mais oq fazer....

 

Desde já agradeço!!!!

[Nilson Cl. 0]

Boa Noite anabon.

 

Para recupera um valor para um textbox de um recordSet.

você pode dar um select Sum na tabela.

Ex.

"Select Sum(Valor) From dinheiro where data_venda = #" & Date & "#"

 

Desta maneira o banco de dados ja retorna os valores somados.

Se você tiver 3 linha na tabela e elas pertencerem para o mesmo dia o bd somas elas.

Dia Valor

01/03/2011 2,00

01/03/2011 3,00

No no sum ja vai retornar para você 5,00

ai é so mostrar no texBox

txtTotalDia.text = RS.Fields(0)

 

 

t+

 

boa sorte

[anabon 0]

Boa Noite anabon.

 

Para recupera um valor para um textbox de um recordSet.

você pode dar um select Sum na tabela.

Ex.

"Select Sum(Valor) From dinheiro where data_venda = #" & Date & "#"

 

Desta maneira o banco de dados ja retorna os valores somados.

Se você tiver 3 linha na tabela e elas pertencerem para o mesmo dia o bd somas elas.

Dia Valor

01/03/2011 2,00

01/03/2011 3,00

No no sum ja vai retornar para você 5,00

ai é so mostrar no texBox

txtTotalDia.text = RS.Fields(0)

 

 

t+

 

boa sorte

 

 

 

Olá boa noite amigo mto obrigada pela ajuda ... tentei fazer como você diz só q da o erro :

 Run-Time Error '3265': O item não pode ser encontrado na coleção corresposdente ao nome ou ao ordinal solicitado

 

e alinha apontada do erro é a:

txtdinheiro.Text = RS.Fields("totadia")

, já verifiquei o o campo o o text box os nomes estão corretos, já copiei e colei com medo de ta deixando passar alguma coisa, mais nada!!!!

 

ontem de ontem achei q havia resolvido o problema com o codigo:

 

Private Sub Form_Load()

Set RS = New ADODB.Recordset

Set con = New ADODB.Connection

con.Open (cnSQL)

'On Error Resume Next

 

RS.Open "Select * from dinheiro where data_venda= #" & Date & "#", con, adOpenKeyset, adLockOptimistic

txttotal_venda.Text = RS.Fields("totaldia")

RS.Close

 

Mas funcionou qndo no dia q arrumei e ontem ... hoje já não ta mais funcionando .... pq? oq acontece? ql eh o prblema?

 

desde já agradeço a ajuda e peço desculpas c a solução for muito obbivia, mas eh q eh o meu 1° programa completo e to batendo cabeça dia e noite .......

[anabon 0]

Olá Boa tarde ah todos!!!!

 

o codigo que deu certo para mim foi

 

Private Sub Form_Load()

Set RS = New ADODB.Recordset

Set con = New ADODB.Connection

con.Open (cnSQL)

On Error Resume Next

 

RS.Open "Select * from dinheiro where data_venda= #" & Format(Date, "mm/dd/yyyy") & "#", con, adOpenKeyset, adLockOptimistic

If Not RS.EOF Then

txtdinheiro.Text = RS!totaldia

End If

RS.Close

 

 

RS.Open "Select * from cheque where data_venda = #" & Format(Date, "mm/dd/yyyy") & "#", con, adOpenKeyset, adLockOptimistic

If Not RS.EOF Then

txtcheque.Text = RS.Fields("totaldia")

End If

RS.Close

 

 

RS.Open "Select * from dinheiro where data_venda = #" & Format(Date, "mm/dd/yyyy") & "#", con, adOpenKeyset, adLockOptimistic

If Not RS.EOF Then

txtdinheiro.Text = RS.Fields("totaldia")

End If

RS.Close

 

 

RS.Open "Select * from cartãocredito where data_venda = #" & Format(Date, "mm/dd/yyyy") & "#", con, adOpenKeyset, adLockOptimistic

If Not RS.EOF Then

txtcredito.Text = RS.Fields("totaldia")

End If

RS.Close

 

 

RS.Open "Select * from caixa where data_abertura = #" & Format(Date, "mm/dd/yyyy") & "#", con, adOpenKeyset, adLockOptimistic

If Not RS.EOF Then

txtcx_inicial.Text = RS.Fields("caixa_inicial")

End If

RS.Close

 

RS.Open "Select * from fechacaixa where data_venda = #" & Format(Date, "mm/dd/yyyy") & "#", con, adOpenKeyset, adLockOptimistic

If Not RS.EOF Then

txttotal_venda.Text = RS.Fields("totaldia")

End If

RS.Close

 

RS.Open "Select * from retirada where data_retirada = #" & Format(Date, "mm/dd/yyyy") & "#", con, adOpenKeyset, adLockOptimistic

If Not RS.EOF Then

txtretirada.Text = RS.Fields("total_retirada")

End If

RS.Close

 

End Sub

 

Forte Abraço!!!!!