Como fazer function de busca em tabela access

Processos de importação e exportação de dados, interação entre o Excel e demais softwares, interface com Banco de dados, SQL.

Como fazer function de busca em tabela access

Mensagempor JoaoAnacle » Qui Out 03, 2019 8:13 am

Olá, estou tentando fazer uma function para buscar um valor em uma tabela no access. para isso estou usando o seguinte codigo:
Código: Selecionar todos
Public Function BuscaNomeFuncionario(ByVal Num_Reg As Integer)
  Dim lrs As ADODB.Recordset
  Set lrs = New ADODB.Recordset
   
    lsConectar
        lrs.Open "Select Nome from funcionarios where Num_Registro = " & Num_Reg, gConexao
   
    BuscaNomeFuncionario = lrs
   
    If Not lrs Is Nothing Then
        lrs.Close
        Set lrs = Nothing
    End If
    lsDesconectar

End Function


os codigos de conectar e desconectar e os demais de conexão estão funcionando. porem quando eu tento buscar o valor "Nome" na tabela, a função me retorna o erro: #VALOR!

O comando " lrs.Open "Select Nome from funcionarios where Num_Registro = " & Num_Reg, gConexao" funciona, porem não consigo retorna a celula o valor obtido pela busca.
Alguém sabe onde está o erro?
JoaoAnacle
Membro
Membro
 
Mensagens: 4
Registrado em: Qua Out 02, 2019 12:13 pm
Has thanked: 1 time
Have thanks: 0 time

{ SO_SELECT }

Re: Como fazer function de busca em tabela access

Mensagempor rlm » Sex Out 04, 2019 5:21 pm

Não tenho como testar, por sua base/arquivo; vamos pelo exposto:
Aparentemente a função BuscaNome.. "espera" como resposta um valor numérico (integer); porem está "recebendo" um texto (string).
Experimente alterar a definição inicial de sua Function conforme incluindo definição adicional como string:
-->Public Function BuscaNomeFuncionario(ByVal Num_Reg As Integer) As String <--

Se não funcionar disponibilize seu modelo (utilize dados fictícios se necessário) para que possamos testar/acompanhar a execução.

Obs.: CrossPost https://www.tomasvasquez.com.br/forum/viewtopic.php?f=22&t=7305
Reinaldo
Garça - SP / SCS - SP
Avatar do usuário
rlm
Ninja do Excel
Ninja do Excel
 
Mensagens: 410
Registrado em: Qui Out 16, 2014 12:30 pm
Has thanked: 30 times
Have thanks: 183 times


Voltar para Integração Excel & Access

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 1 visitante