COMO PESQUISAR VIA SQL ???[Ô] DUVIDA
Olá Pessoal.
Estou fazendo um sistema para Controle Financeiro pessoal e vou postar aqui no VBmania como código fonte para a galera.
Mas estou com um problema para consultar os registros.
Nessa lógica.
Preciso consultar no banco de dados todos os registros Pagos da Conta X
Como faço isso via SQL
Pois quando uso o
Aqui ele só vai selecionar todos os registros cadastrados dessa conta
mas quero somente todos os registros que contem no campo da tabela escrito [Ô]A PAGAR[Ô]
Acredito que dê para entender a lógica...
Valeu pessoal aguardo a ajuda de alguem
Estou fazendo um sistema para Controle Financeiro pessoal e vou postar aqui no VBmania como código fonte para a galera.
Mas estou com um problema para consultar os registros.
Nessa lógica.
Preciso consultar no banco de dados todos os registros Pagos da Conta X
Como faço isso via SQL
Pois quando uso o
SELECT * FROM CONTA_PAGAR WHERE CONTA =[ô][Ô] & CONTAX & [Ô][ô][Ô]
Aqui ele só vai selecionar todos os registros cadastrados dessa conta
mas quero somente todos os registros que contem no campo da tabela escrito [Ô]A PAGAR[Ô]
Acredito que dê para entender a lógica...
Valeu pessoal aguardo a ajuda de alguem
ai esta a foto do sistema que vou postar - esta ficando bom
SELECT * FROM CONTA_PAGAR WHERE CONTA =[ô][Ô] & CONTAX & [Ô][ô][Ô] And CampodaTabela=[ô]A Pagar[ô]
seria
SELECT * FROM CONTA_PAGAR WHERE CONTA =[ô][Ô] & CONTAX & [Ô][ô][Ô] And situacao=[ô]A Pagar[ô]
SELECT * FROM CONTA_PAGAR WHERE CONTA =[ô][Ô] & CONTAX & [Ô][ô][Ô] And situacao=[ô]A Pagar[ô]
Nao funcionou
O vb acusa erro de variavel nao definica
bem onde esta o campo situacao
O vb acusa erro de variavel nao definica
If Combo1.Text = [Ô]Pagas[Ô] Then
SQL = [Ô]SELECT * FROM SAIDA WHERE CONTA=[ô][Ô] & _
Cnt & [Ô][ô][Ô] And [txt-color=#e80000]Situacao[/txt-color] = [Ô]PAGO[Ô]
tbSaida.Open SQL, Conexao, adOpenDynamic, adLockOptimistic
tbSaida.Close
End If
bem onde esta o campo situacao
If Combo1.Text = [Ô]Pagas[Ô] Then
SQL = [Ô]SELECT * FROM SAIDA WHERE CONTA=[ô][Ô] & TXTNUMEROCONTA.TEXT & [Ô][ô][Ô]
SQL = SQL & [Ô] And Situacao = ([ô]PAGO[ô])
tbSaida.Open SQL, Conexao, adOpenDynamic, adLockOptimistic
tbSaida.Close
End If
Valeu Luiz e Anegel
Funcionou aqui
Funcionou aqui
If Combo1.Text = [Ô]Contas Pagas[Ô] Then
SQL = [Ô]SELECT * FROM SAIDA WHERE CONTA=[ô][Ô] & Cnt & [Ô][ô][Ô]
SQL = SQL & [Ô] And Situacao = ([ô]PAGO[ô])[Ô]
tbSaida.Open SQL, Conexao, adOpenDynamic, adLockOptimistic
Call Lista_Reg
End If
SQL = [Ô]SELECT * FROM SAIDA WHERE CONTA=[ô][Ô] & _
Cnt & [Ô][ô][Ô] And Situacao = [ô][Ô] & Combo1.Text & [Ô][ô]
Cnt & [Ô][ô][Ô] And Situacao = [ô][Ô] & Combo1.Text & [Ô][ô]
Tópico encerrado , respostas não são mais permitidas