[Resolvido]Recordset com nome do campo em matriz

Olá!

Tenho o seguinte código:

Código:


    strSql = "SELECT * from myTable WHERE MyField like '" & dtaDataImport & "%" & "'"
    Set Rst = New ADODB.Recordset
    Rst.CursorLocation = adUseClient
    Rst.Open strSql, conexaoSQL, adOpenDynamic, adLockOptimistic
   
    ' Variável string convertida em matriz que contém os nomes de campos que existem  no recordset aberto anteriormente
    varListaCampos = Split(varListaCampos, ",")
   
    For i = 0 To UBound(varListaCampos)
   
        Debug.Print Rst!varListaCampos(i) '-> Comando de teste
       
       
    Next i


No código dentro do for/next ocorre o erro "3265 - O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado", porém o nome do campo está correto e ele consta no recordset.

Já tentei também Rst(varListaCampos(i)) sem sucesso.

Como fazer para que o comando dentro do for/next funcione???

Obrigado a todos.

Amigo, qual o Objetivo desse Codigo???

Dica: Coloque para exibir a lista de Campos atraves de uma MsgBox, assim sabera se realmente esta capturando os Nomes dos Campos...

Ex

strSql = "SELECT * from myTable WHERE MyField like '" & dtaDataImport & "%" & "'"
Set Rst = New ADODB.Recordset
Rst.CursorLocation = adUseClient
Rst.Open strSql, conexaoSQL, adOpenDynamic, adLockOptimistic

' Variável string convertida em matriz que contém os nomes de campos que existem no recordset aberto anteriormente
varListaCampos = Split(varListaCampos, ",")

msgbox varListaCampos
Msgbox UBound(varListaCampos)

For i = 0 To UBound(varListaCampos)

Debug.Print Rst!varListaCampos(i) '-> Comando de teste


Next i


Assim sabera se esta tudo ok com os dados ou nao...

Olá FabioPaes.

Utilizo Access 2016 e estou trabalhando com ADODB, BD desvinculado e utilizando a string de conexão:

cnSQL.Open "Provider=SQLOLEDB; Data Source=" & strBDSqlSrvH & "; Initial Catalog=" & strBDSqlDBH & "; User ID=" & strBDSqlUserH & "; Password=" & strBDSqlPassH & ""

Se eu utilizar BD vinculado as seguintes linhas de código funcionam normalmente:

Código:


Dim rs As DAO.Recordset
Dim varListaCampos, i%
varListaCampos = "id,Nomepaciente,nomeMae,dta"
varListaCampos = Split(varListaCampos, ",")
Set rs = CurrentDb.OpenRecordset("tblTeste")
For i = 0 To UBound(varListaCampos)
  Debug.Print rs(varListaCampos(i))
Next
rs.Close
Set rs = Nothing


Nas minhas pesquisas verifiquei que em BD desvinculado meu código não vai funcionar como desejo.
Vou ter que encontrar outra forma de resolver meu problema.

Obrigado pela ajuda.