QUEM FOR MAIS EXPERIENTE NO VB6 ME AJUDEM

WSMARTINS 31/05/2010 10:53:18
#343334
BOM DIA. ANTES DE FAZER A MINHA PERGUNTA QUERIA AGRADECER A TODOS VCS QUE ME AJUDARAM A RESOLVER O MEU PROBLEMA E TIRAR A MINHA DUVIDA.
AGORA SE NÃO FOR MUITO INCOMODO QUE PEDIR A VCS QUE QUE SÃO MAIS EXPEIRENTE QUE ME AJUDEM A RESOLVER ESTE PROBLEMA: A MINHA TABELA E ASSIM:
NOME DATA NASC
WAGNER 10/05/1940
ALEX 10/06/1950
ROBSON 10/07/1960
CARLOS 10/08/1970
RODRIGO 10/09/1980
THAIRIK 10/10/1990
QUERIA SABER O CODIGO USADO PARA SELECIONAR E MOSTRAR APENAS AS PESSOS QUE NASCERAM ENTRE A DATA 10/06/1950 A 10/09/1980
SE FOR PRECISO FAZER UM MÓDULO PARA ISTO POR FAVOR ME MANDEM TAMBEM.
SE NÃO FOR PEDIR MUITO ME MANDA COMO DA OUTRA VEZ COM O PROGRAMA JÁ FEITO POIS E BEM MAIS FACIL PARA MIM.
POR FAVOR ME AJUDEM
ASHKATCHUP 31/05/2010 10:57:07
#343338
Basicamente, isso pode ser feito utilizando uma SQL.

Você sabe usar SQLs?

Exemplo:

Select * From Tabela Where Data Between #2000-12-13# and #2010-01-30#
XXXANGELSXXX 31/05/2010 11:00:00
#343341
ta.. primeiro .. qual o banco de dados que utiliza?
WSMARTINS 31/05/2010 11:18:19
#343350
eu uso o banco do acess
WSMARTINS 31/05/2010 11:22:18
#343353
eu queria que aparece por exemplo escrever em uma textbox da data tal ate a data tal e aparecesse
no outro textboxt as pessoas entre essas datas
EDERMIR 31/05/2010 11:28:26
#343359
Citação:

:
Basicamente, isso pode ser feito utilizando uma SQL.

Você sabe usar SQLs?

Exemplo:


Select * From Tabela Where Data Between #2000-12-13# and #2010-01-30#



Isso resolve seu problema. Apenas adaptando:
rs.open [Ô]Select * From Tabela Where Data Between #[Ô] & format(text1.text,[Ô]mm/dd/yyyy[Ô]) & [Ô]# and #[Ô] & format(text2.text,[Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô]

O resultado você coloca no text.
NILTON.VIANNA 31/05/2010 11:30:01
#343361 Resposta escolhida
Eu Fiz Assim e funciona
Dim RS As New ADODB.Recordset
Public FrmListarVenda As Form

Private Sub cmdCancela_Click()
Limpa
MontarLista
MostraSaldoCredito
MostraSaldoReal
txtInicial.Text = Format(Date, [Ô]DD/MM/YYYY[Ô])
cmdSair.Visible = True
cmdExcluir.Visible = False
txtInicial.SetFocus
End Sub

Private Sub cmdSair_Click()
Unload Me
End Sub

Private Sub cmdConsulta_Click()
Limpa
MontarLista
MostraSaldoCredito
MostraSaldoReal
Consulta ([Ô]select * FROM Saida where shipcountry=#[Ô] & Format(txtInicial.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]# AND #[Ô] & Format(txtFinal.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô])
End Sub

Private Sub txtInicial_GotFocus()
SendKeys [Ô]{HOME}+{END}[Ô]
End Sub
Private Sub txtInicial_KeyDown(KeyCode As Integer, Shift As Integer)
CampoDATA txtInicial, KeyCode
End Sub

Private Sub txtFinal_GotFocus()
SendKeys [Ô]{HOME}+{END}[Ô]
End Sub
Private Sub txtFinal_KeyDown(KeyCode As Integer, Shift As Integer)
CampoDATA txtFinal, KeyCode
End Sub

Private Sub Form_Load()

txtInicial = Format(Now, [Ô]DD/MM/YYYY[Ô])
txtFinal = Format(Now, [Ô]DD/MM/YYYY[Ô])

FG1.ColWidth(0) = 1000
FG1.ColWidth(1) = 1000
FG1.ColWidth(2) = 600
FG1.ColWidth(3) = 4000
FG1.ColWidth(4) = 1800
FG1.ColWidth(5) = 1350

FG1.TextMatrix(0, 0) = [Ô]Venda N°[Ô]
FG1.TextMatrix(0, 1) = [Ô]Data Saida[Ô]
FG1.TextMatrix(0, 2) = [Ô]Horas:[Ô]
FG1.TextMatrix(0, 3) = [Ô]Nome do Cliente[Ô]
FG1.TextMatrix(0, 4) = [Ô]Nome do Vendedor[Ô]
FG1.TextMatrix(0, 5) = [Ô]Total R$:[Ô]

End Sub

Private Sub MontarLista()

Dim RS As New ADODB.Recordset
Dim SQL As String

FG1.TextMatrix(0, 0) = [Ô]Venda N°[Ô]
FG1.TextMatrix(0, 1) = [Ô]Data Saida[Ô]
FG1.TextMatrix(0, 2) = [Ô]Horas:[Ô]
FG1.TextMatrix(0, 3) = [Ô]Nome do Cliente[Ô]
FG1.TextMatrix(0, 4) = [Ô]Nome do Vendedor[Ô]
FG1.TextMatrix(0, 5) = [Ô]Total R$:[Ô]

SQL = [Ô]SELECT PedidoID, Entrega, Hora, Nome, Vendedor, Total FROM CadPedidos WHERE Saida BETWEEN #[Ô] & Format(txtInicial.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]# AND #[Ô] & Format(txtFinal.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]# [Ô]

On Error Resume Next
With RS
.Open SQL, CnSql, adOpenForwardOnly, adLockReadOnly

If .EOF Then

MsgBox [Ô]Lançamento não encontrado[Ô], vbExclamation, [Ô] Sisnews Informções[Ô]
Limpa
FG1.TextMatrix(1, 0) = [Ô][Ô]
FG1.TextMatrix(1, 1) = [Ô][Ô]
FG1.TextMatrix(1, 2) = [Ô][Ô]
FG1.TextMatrix(1, 3) = [Ô][Ô]
FG1.TextMatrix(1, 4) = [Ô][Ô]
FG1.TextMatrix(1, 5) = [Ô][Ô]

Else
Limpa
Do Until .EOF
FG1.AddItem RS(0) & vbTab & RS(1) & vbTab & RS(2) & vbTab & RS(3) & vbTab & RS(4) & vbTab & RS(5)
.MoveNext
Loop
FG1.RemoveItem 1

cmdSair.Visible = False
cmdExcluir.Visible = True

End If
.Close
End With
End Sub

Private Sub Form_Activate()
Consulta ([Ô]select * from CadPedidos[Ô])
cmdImprimir.Enabled = False
End Sub

Private Sub Consulta(sql1 As String)
Set RS = New Recordset
RS.CursorLocation = adUseClient
RS.Open [Ô]Select * From CadPedidos Where Saida Between #[Ô] & Format(txtInicial, [Ô]mm/dd/yyyy[Ô]) & [Ô]# AND #[Ô] & Format(txtFinal, [Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô], CnSql
On Error Resume Next
cmdImprimir.Enabled = True
lblContar.Caption = RS.RecordCount
End Sub

[ô]*********** MOSTRA TOTAL CREDITOS *******
Sub MostraSaldoCredito()
Dim Total As Double
For Linha = 1 To FG1.Rows - 1
On Error Resume Next
Total = Total + CDbl(FG1.TextMatrix(Linha, 4)) [ô] 2 é a coluna a ser somada
Next Linha

txtSomaVenda = Format(Total, [Ô]#,###,##0.00[Ô])
End Sub

[ô]*********** MOSTRA SALDO ATUAL *********
Sub MostraSaldoReal()
Dim Total As Double
For Linha = 1 To FG1.Rows - 1
On Error Resume Next
Total = Total + CDbl(FG1.TextMatrix(Linha, 5)) [ô] 2 é a coluna a ser somada
Next Linha

txtSaldo = Format(Total, [Ô]#,###,##0.00[Ô])
End Sub
[ô] ***************************************

Private Sub cmdImprimir_Click()
If Not TudoOK Then Exit Sub
With PrintRelVendas
PrintRelVendas.Caption = [Ô] Listagem de Vendas por Periódo[Ô]
PrintRelVendas.Title = [Ô]Listagem de Vendas por Periódo[Ô]
Set .DataSource = Nothing
.DataMember = [Ô][Ô]
Set .DataSource = RS.DataSource
With .Sections([Ô]Section1[Ô]).Controls
For i = 1 To .Count
If TypeOf .Item(i) Is RptTextBox Then
[ô]O datamember deverá sempre ser enquanto estiver criando relatorios dinamicos
.Item(i).DataMember = [Ô][Ô]
.Item(i).DataField = RS.Fields(i - 1).Name
End If
Next i
End With
.Show vbModal
End With
Unload PrintRelVendas
End Sub

[ô]DADOS OBRIGATÓRIOS PARA IMPRESSÃO
Private Function TudoOK() As Boolean
If lblContar.Caption = [Ô]0[Ô] Then
MsgBox [Ô]Não a Lançamentos selecionados ! [Ô], vbExclamation, [Ô] Sisnews Informações[Ô]
txtInicial.SetFocus
Else: TudoOK = True
End If
End Function

Private Sub cmdExcluir_Click()

Dim adCmdVenda As New ADODB.Command
Dim Resp As Byte
Dim CaixaID As Long

CaixaID = Val(txtInicial.Text) And Val(txtInicial.Text)
If CaixaID = 0 Then Exit Sub
Resp = MsgBox([Ô]Confirma a Exclução dos Lançamentos: [Ô] & txtInicial & [Ô] Até [Ô] & txtFinal & [Ô] ![Ô], vbYesNo + vbInformation, [Ô] Atenção Excluir Lançamentos[Ô])
Resp = MsgBox([Ô]Atenção Exclução os Lançamentos ! [Ô], vbYesNo + vbInformation, [Ô] Atenção Excluir Lançamentos[Ô])
Resp = MsgBox([Ô]Atenção Confira se a Bkaup dos Lançamentos ! [Ô], vbYesNo + vbInformation, [Ô] Atenção Excluir Lançamentos[Ô])

If Resp = 7 Then

Exit Sub
End If

On Error Resume Next

With adCmdVenda
Set .ActiveConnection = CnSql
.CommandType = adCmdText
.Prepared = True

.CommandText = [Ô]Delete * From CadPedidos Where Saida Between #[Ô] & Format(txtInicial, [Ô]mm/dd/yyyy[Ô]) & [Ô]# AND #[Ô] & Format(txtFinal, [Ô]mm/dd/yyyy[Ô]) & [Ô]#[Ô]
.Execute

End With
Set adCmdVenda = Nothing
cmdCancela_Click

End Sub

Private Sub Limpa()
Dim i As Long
FG1.Redraw = False
For i = FG1.Rows - 1 To 2 Step -1
FG1.RemoveItem (i)
Next
FG1.Redraw = True
End Sub
MARVB6 31/05/2010 11:30:16
#343363
wsmartins.
Continue com a idéia do nosso amigo ASHKATCHUP.
Coloque na tela duas entradas para o usuário informar a data inicio e a data de termino, assim vc implementa essas datas no Beetwen:
Select * From Tabela Where Data Between #2000-12-13# and #2010-01-30#.

Abraço.
WSMARTINS 31/05/2010 11:39:12
#343366
não querendo ser mais ja sendo enjuado não teria como vcs me mandarem o programa ja com os textbox resolvido para eu poder baixar pois preciso muito disso e não estou conseguindo fazer por que e muito dificil para mim e para vcs isto e moleza.
eu sei que vcs estão me ajudando muito mas se for possivel me mande.
muito obrigado a todos
WSMARTINS 31/05/2010 13:37:25
#343388
por favor me mandem o programa estou precisando muito dele.
ASHKATCHUP 31/05/2010 14:13:59
#343394
Cara, não podemos fazer o programa por ti, devido a vários motivos:

-Conhecimento: assim, você não vai aprender
-Tempo: creio que a maioria dos usuários do fórum trabalham durante o dia
-Dados: só você sabe como o programa deve ser e tem o banco de dados já populado

Nós podemos te orientar, seja com pedaços de código ou com dicas, mas não podemos programar por ti...
Página 1 de 2 [14 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar