Notifications

Clear all

[Resolvido] Dúvida se tem como usar uma variável para informar um campo para buscar dados no bd acess

Post Recente

RSS

Posts: 37

drbeil

Registered

Topic starter

jan 11, 2021 1:03 pm

(@drbeil)

Eminent Member

Entrou: 7 anos atrás

Quero abrir um bd porém queria usar uma variavel que será definida em uma textbox.

Tenho formulario no excel com os dados no acess.

Essa é a linha para abrir: rs.Open "select * from Dados_Source where & Despesa_Fixa_Desp", MiConexao, 3, 3

Tenho dois campos(colunas) que posso buscar os dados que quero.

Campos: Despesa_Fixa_Desp e Despesa_Variavel_Desp

rs.Open "select * from Dados_Source where VARIAVEL ", MiConexao, 3, 3

Unico jeito que consegui fazer funcionar é fazendo duas buscas.

rs.Open "select * from Dados_Source where Despesa_Fixa_Desp", MiConexao, 3, 3

rs("Despesa_Fixa_Desp") = Me.c_despesasdb_item_alterar

rs.Update

rs.close


rs.Open "select * from Dados_Source where Despesa_Variavel_Desp", MiConexao, 3, 3

rs("Despesa_Variavel_Desp") = Me.c_despesasdb_item_alterar

rs.Update

rs.close

Editado pela Moderação. Motivo: Procure utilizar o botão Código (< >) sempre que for inserir código VBA ou Fórmulas.

Daniel Rodrigo

Responder

8 Respostas

Posts: 56

Raygsson

Registered

jan 11, 2021 8:00 pm

(@raygsson)

Trusted Member

Entrou: 1 ano atrás

Não entendi muito bem sua pergunta, voce quer apenas alterar o coluna/campo consultada na tabela?

Se for só isso tira esse * e entra com o nome da coluna:

              rs.Open "select " & SuaVariavel & " from Dados_Source", MiConexao, 3, 3

Se quiser trazer as duas colunas faz assim:

              rs.Open "select  *  from Dados_Source", MiConexao, 3, 3

Editado pela Moderação. Motivo: Procure utilizar o botão Código (< >) sempre que for inserir código VBA ou Fórmulas.

Responder

2 Respostas

drbeil

Registered

(@drbeil)

Entrou: 7 anos atrás

Eminent Member

Posts: 37

jan 13, 2021 10:04 am

Responder a

Raygsson

@raygsson

Deu certinho, valeu.

Daniel Rodrigo

Responder

drbeil

Registered

(@drbeil)

Entrou: 7 anos atrás

Eminent Member

Posts: 37

jan 14, 2021 11:19 am

Responder a

Raygsson

@raygsson bom dia,

Já coloquei como resolvido, mas teria como nessa linha: (rs.Open "select " & SuaVariavel & " from Dados_Source", MiConexao, 3, 3) colocar mais um "argumento". Como nesse usando o like : (rs.Open "select * from Base_compras where Compra_empresa Like '%" & Me.c_compra_empresa & "%'", MiConexao, 3, 3) ou assim: (rs.Open "select * from base_compras where Cod_Compras=" & id4, MiConexao, 3, 3)

Com o código que me passou consigo trocar o campo atraves da combobox, agora precisava um achar um dado definido por uma textbox.

Daniel Rodrigo

Responder

Posts: 37

drbeil

Registered

Topic starter

jan 14, 2021 11:44 am

(@drbeil)

Eminent Member

Entrou: 7 anos atrás

@anderson bom dia,

É só uma opiniao minha se estou com dúvida, busco resposta que esteja no mesmo raciocínio. Você manda esses videos que não tem o mesmo segmento que estou fazendo o meu código. Se for para ficar mandando apenas essas resposta pronta . Melhor nem responder, pula. Li suas mensagens, que depois você apagou, nos dois post que fiz apenas questionando não orientando.

Deve ganhar pontos colocando resposta pronta, deve ser.

Obrigado

Daniel Rodrigo

Responder

1 Responder

drbeil

Registered

(@drbeil)

Entrou: 7 anos atrás

Eminent Member

Posts: 37

jan 14, 2021 1:30 pm

Responder a

drbeil

@anderson Cada pergunta é sobre ma questão especifica. No outro você disse que não dá. Ok, acabou o assunto. Essa questão é outra.

Umas das minhas tabelas tenho 15 mil linhas com 60 campos. Exemplo fiz 10 código de busca diferentes (um para cada campo) para buscar cada informação que quero. Com isso queria saber se tem como usar o codigo acima usando uma variavel (já foi possivel) porem queria definir a busca por um argumento, uma textbox. Assim eliminaria os 10 códigos é um só.

Exemplo 1, de código que tenho:

Call conecta
With frm_Listagem.ListBox1
.Clear
Set rs = New ADODB.Recordset
rs.Open "select * from Base_balcao where Data_Balcao Like '" & frm_Listagem.c_listagem_data & "%' order by Ident desc", MiConexao, 3, 3

frm_Listagem.ListBox1.ColumnWidths = "40; 70; 150; 60; 60; 60; 50; 40 ; 40 ; 90"

With frm_Listagem.ListBox1
.AddItem
.List(0, 0) = "Balcao"
.List(0, 1) = "Data"
.List(0, 2) = "Empresa"
.List(0, 3) = "Valor"
.List(0, 4) = "Operador"
.List(0, 5) = "Status"
.List(0, 6) = "Caixa"
.List(0, 7) = "Recibo"
.List(0, 8) = "NFe"
.List(0, 9) = "Pagamento"
End With

Do Until rs.EOF
.AddItem

.List(linhalistbox, 0) = Format(rs(0), "00000") 'cod
.List(linhalistbox, 1) = rs(1) 'data
.List(linhalistbox, 2) = rs(6) 'empresa
.List(linhalistbox, 3) = Format(rs(71), "#,##0.00") 'valor Format(rs(10), "#,##0.00")
.List(linhalistbox, 4) = rs(72) 'operador

-------------------------------------------------------------------------------------------------------------------------------------------

Exemplo 2, do código que tenho:

Call conecta
With frm_Listagem.ListBox1
.Clear
Set rs = New ADODB.Recordset
rs.Open "select * from Base_balcao where TOTAL Like '%" & frm_Listagem.c_listagem_adicional & "%' order by Ident desc", MiConexao, 3, 3

frm_Listagem.ListBox1.ColumnWidths = "40; 70; 150; 60; 60; 60; 50; 40 ; 40 ; 90"

With frm_Listagem.ListBox1
.AddItem
.List(0, 0) = "Balcao"
.List(0, 1) = "Data"
.List(0, 2) = "Empresa"
.List(0, 3) = "Valor"
.List(0, 4) = "Operador"
.List(0, 5) = "Status"
.List(0, 6) = "Caixa"
.List(0, 7) = "Recibo"
.List(0, 8) = "NFe"
.List(0, 9) = "Pagamento"
End With

Do Until rs.EOF
.AddItem

.List(linhalistbox, 0) = Format(rs(0), "00000") 'cod
.List(linhalistbox, 1) = rs(1) 'data
.List(linhalistbox, 2) = rs(6) 'empresa
.List(linhalistbox, 3) = Format(rs(71), "#,##0.00") 'valor Format(rs(10), "#,##0.00")
.List(linhalistbox, 4) = rs(72) 'operador

Daniel Rodrigo

Responder

Posts: 56

Raygsson

Registered

jan 14, 2021 2:38 pm

(@raygsson)

Trusted Member

Entrou: 1 ano atrás

@drbeil

Você já tem tudo pra fazer esse ajuste, precisa apenas juntar uma coisa com a outra

ComandoSQL  = "SELECT " & SuaVariavel & " FROM Dados_Source"
ComandoSQL = ComandoSQL  &  " WHERE Compra_empresa LIKE '%" & Me.c_compra_empresa & "%'"
rs.Open ComandoSQL, MiConexao, 3, 3

Estudar um pouco sobre comandos básicos SQL vai te ajudar a entender com funciona:

https://www.devmedia.com.br/comandos-basicos-em-sql-insert-update-delete-e-select/37170

Responder

Posts: 182

Anderson

Registered

jan 14, 2021 2:56 pm

(@anderson)

Estimable Member

Entrou: 2 anos atrás

rs.Open "select * from Base_balcao where " & caixadetexto & " Like '%" & frm_Listagem.c_listagem_adicional & "%' order by Ident desc", MiConexao, 3, 3

Em 90% dos casos em que não se anexa o arquivo, ocorrem mal-entendidos, gerando perda de tempo de ambos os lados.

Responder