Compartilhe!

Para criar uma função que busque dados do Access basta usar o seguinte modelo:

Function BuscaDados(Data As Double, Tipo As String)
  Dim objCon As ADODB.Connection
  Dim rs As ADODB.Recordset
  File = "C:\Temp\Teste.mdb"
  Tipo = "'" & Tipo & "'"
  Set objCon = New ADODB.Connection
  Set rs = New ADODB.Recordset
  strCnxn = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & File & ";"
  objCon.Open strCnxn
  Set rs = New ADODB.Recordset
  strSQL = "SELECT * from Tabela1 where [Data] = " & Data & " and [Tipo] = " & Tipo
  rs.Open strSQL, objCon, adOpenStatic, adLockReadOnly
  strNaam = rs.Fields(Coluna).Value
  rs.Close
  BuscaDados = strNaam
  Set rs = Nothing
End Function

Outra forma de criar essa função você pode ver aqui.

Caso queria esse arquivo, favor enviar um email para atendimento@exceleaccess.com solicitando.

Você também vai gostar:
Excel – Criando uma função

Vamos criar uma função que calcule a média de dois números, para isso vamos ir no VBA e digitar a Leia mais...

Excel Avançado – Como transpor dados

Muitas vezes os dados que recebemos não ficam de uma maneira de fácil visualização e temos que reorganizar. Vamos mostrar Leia mais...

Excel e Access – Criando uma função que busque dados do Access

Para criar uma função que busque dados do Access basta usar o seguinte modelo: Function BuscaDados(Data As Double, Tipo As Leia mais...

Protegido: Excel Avançado – Como desproteger planilha

Para desproteger uma planilha no excel rode o código abaixo: Sub Deproteger() Dim i As Integer, j As Integer, k Leia mais...

Obrigado pela visita!

www.exceleaccess.com

contato@exceleaccess.com

www.exceleaccess.com

www.exceleaccess.com

www.exceleaccess.com


Compartilhe!

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *