none
Uso inválido da palavra chave NEW RRS feed

  • Pergunta

  • Olá sou novo em programar com ACCESS e estou tendo um problema com o código abaixo, estou tentando criar uma conexão com meu próprio banco de dados e usando o recordset para enumerar dados de uma tabela porém sempre que eu executo o programa aparece o seguinte erro: Uso inválido da palavra chave NEW. Tentei ajeitar retirando essa palavra e colocando apenas o AS e com isso apareceu o erro 13: tipos inválidos, gostaria da ajuda de vocês, desde já agradeço:

    Sub conecta_atual()

    Dim minhaconexao  As New Connection

    Set minhaconexao = CurrentProject.Connection

    Dim instrucao As String

    instrucao = "SELECT * FROM droga"

    Dim meurecordset As New Recordset

    meurecordset.Open instrucao, minhaconexao

    Do Until meurecordset.EOF
    Debug.Print meurecordset!nomeDroga

    meurecordset.MoveNext

    Loop

    meurecordset.Close
    Set meurecordset = Nothing

    minhaconexao.Close
    Set minhaconexao = Nothing

    End Sub

    quarta-feira, 5 de dezembro de 2018 02:37

Todas as Respostas

  • Aqui um exemplo de como usar os vba para conexão com bancos de dados :

    se isso te ajudo por favor marca meu post como respondido isso me ajuda e ajuda os outros usuários

    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset

    strFile = ThisWorkbook.FullName
    strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile _
    & ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";"      ' aqui strng de conexao

    Set cn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")

    cn.Open strCon

    strSQL = "SELECT [eng$].[ISSN] , [eng$].[Título] FROM [eng$] INNER JOIN [zoo$] on [eng$].[ISSN]=[zoo$].[ISSN]"

    rs.Open strSQL, cn

    sábado, 8 de dezembro de 2018 05:42