Tomás Vásquez Fórum

Código: Selecionar todos

Sub ImportarDados()
Plan2.Select
'Declarando Variavel de conecção
Dim Conecção As ADODB.Connection
'Declarando Variavel de armazenamento da dados
Dim Dados As ADODB.Recordset
'Definindo Variavel conecção com nova consulta
Set Conecção = New ADODB.Connection
'Definindo parâmetros para conecção
With Conecção
.ConnectionString = "Provider=Microsoft.Jet.oledb.4.0;Data Source=" & ThisWorkbook.Path & "\Base.mdb"
.Open
End With
'Definindo nova busca e armazenamento dos dados da Tabela
Set Dados = New ADODB.Recordset
'Definindo parâmetros dos dados
Dados.Open "Fornecedores", Conecção, adOpenKeyset, adLockOptimistic, adCmdTable
'Observe que a palavra "banco" representa a tabela
'Declarando variavel WorkSheet
Dim Xlst As Excel.Worksheet
Set Xlst = Sheets("Plan2")
'Copiando os dados para Plan2
Xlst.Range("A2").CopyFromRecordset Dados
'Ajusta a largura das colunas
Plan2.Columns("A:L").AutoFit

Dados.Close
Set Dados = Nothing
Conecção.Close
Set Conecção = Nothing
End Sub

Código: Selecionar todos

Public Function Id()
    
    Dim cx As New ClasseConexao
    Dim banco As ADODB.Recordset
    Dim sql As String
    Dim i As Long
    
    
    sql = "SELECT * FROM Fornecedores"
    Set banco = New ADODB.Recordset
    cx.Conectar
    banco.Open sql, cx.Conn, adOpenKeyset, adLockOptimistic
    Total = banco.RecordCount
    
    For i = 1 To banco.RecordCount
        If banco(0) = frmPesquisa.lstv.SelectedItem Then
            Id = i
            Exit For
        Else
            banco.MoveNext
        End If
   Next
   
   Set banco = Nothing
   cx.Desconectar

End Function